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Vorwort 


Diese völlig neue Auflage des alten Graphikbuches zum 
COMMODORE 64 bietet mit einem revolutionär neuen Konzept 
wirklich Neues. Zusammen mit dem dicken und schweren Super- 
graphik-Buch erhält der Graphik-Interessierte ein professionelles 
Programm, das sonst nur einzeln und für sich erhältlich war: Eine 
neue, verbesserte Version der bekannten und erfolgreichen 
Supergraphik. 


Zudem wird das komplette Source-Listing dieser Supergraphik 
abgedruckt und die einzelnen Routinen somit jedem zugänglich 
vorgestellt. Sie erhalten also nicht nur detaillierte Informationen zur 
Realisierung eigener Graphiken und zur Einbindung von Graphik- 
Routinen in eigene Programme, Sie haben sogar die Möglichkeit, eine 
komfortable BASIC-Erweiterung direkt einzusetzen. 


Die neue Version der Supergraphik bietet neben den bekannten 
Befehlen und Features (16 Sprites voll bewegbar, Text-Graphik- 
Mischanzeige, Graphik-Hardcopies für eine Vielzahl von Drukkern 
etc.) einen Befehl zum Ausfüllen beliebiger Flächen sowie einen 
ganzen Befehlskomplex zur Erzeugung von Bildschirmfenstern auf 
Ihrem Rechner. 


Grafik ist nicht nur eine der Hauptstärken des COMMODORE 64; 
COMMODORE hat diese Stärke auch sehr sorgfältig versteckt. Der 
BASIC-Anfänger kennt Grafik nur bewundernd von den vielen 
fertigen Programmen und Aktionspielen, die natürlich über 
entsprechende Routinen - meist in Maschinensprache - die grafischen 
Fähigkeiten des COMMODORE 64 voll ausnutzen. Dieses Buch soll 
nun jedem COMMODORE 64-Anwender die Möglichkeit geben, auch 
in eigenen Programmen die Vielzahl graphischer Möglichkeiten seines 
Computers zu nutzen. 


Schauen Sie sich doch einmal das Inhaltsverzeichnis an, um sich von 
der Vielseitigkeit des Supergraphik-Buches zu überzeugen. 


Bevor wir uns ins Getümmel werfen, möchte ich an dieser Stelle noch 


einen Dank an Klaus Löffelmann richten, der an verschiedenen Stellen 
durch Arbeit unterstützte. 


Düsseldorf, im November 1986 Axel Plenge 
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1. Einleitung 


"64 K RAM, 8 unabhängige Sprites, frei auf dem Bildschirm 
bewegbar, hochauflösende Graphik mit 320x200 Punkten, Mul- 
ticolorgraphik (160x200 Punkte), 16 Farben, 40 Zeichen, 25 Zeilen, 
veränderbarer Zeichensatz, sensationelle Interruptmöglichkeiten, 
ein Computer, den jeder kennenlernen, nein, besitzen muß!" 


So oder ähnlich wird - wohl auch zu Recht - unser guter alter 
Commodore 64 angepriesen. Kaum jemand, der sich auch nur ein 
wenig mit Computern auskennt, wird an solchen Anzeigen 
vorbeischauen, denn Ihr 64er kann wirklich viel. 


Doch bald nach dem Kauf und dem hoffnungsvollen Studium der 
Betriebsanleitung aber bekommt man ein merkwürdiges Gefühl in der 
Magengrube: Kein Wort von der hochauflösenden Graphik, geschweige 
denn von solchen Vorzügen wie Zeichensatzveränderung oder 
Interruptfähigkeiten. Selbst das für die Maßstäbe des Handbuches 
relativ ausführliche Kapitel über die Sprites und ihre Programmierung 
verschleiert die wahren Möglichkeiten des Gerätes. 


Doch wir sollten nicht zu streng mit dieser Kurzanleitung zu Gerichte 
ziehen. Um auch nur annähernd alle Vorzüge unseres Rechners zu 
beschreiben und gar ihre Anwendung zu demonstrieren, bedarf es 
einer etwas umfangreicheren Lehrbuchkonzeption. 


An dieser Stelle greift nun das vorliegende Graphikbuch zum 64er an. 
Dieses Buch soll Ihnen umfassende Kenntnisse über das graphische 
Innenleben eines Computers vermitteln, der nicht umsonst zum 
Computer des Jahres 1983 gewählt wurde. 


Das vorliegende Graphikbuch unterliegt im Vergleich zu anderen einer 
völlig neuen Konzeption. Das neue Graphikbuch wird direkt mit einer 
beiliegenden Diskette geliefert, die alle wesentlichen hier 
abgedruckten Programme enthält. Zusätzlich, und das ist das ganz 
neue und geradezu sensationelle an diesem Werk, wird die Graphik- 
BASIC-Erweiterung SUPERGRAPHIK 64 auf dieser Diskette 
mitgeliefert. Aber nicht nur das; zusätzlich dazu wird das gesamte 
Source-Listing dieser Supergraphik vollständig dokumentiert in diesem 
Buch abgedruckt! Damit wird Graphik für jeden zugänglich und ver- 
ständlich. 


14 Das Supvergraphikbuch zum C64 


Dieses Buch ist also nicht nur für die Commodore-Besitzer interessant. 
Die abgedruckten Routinen der Supergraphik stellen eine Graphik- 
Programmbibliothek für alle Programmierer dar, egal für welchen 
Computer. 


In jedem Teil des Buches wurde darauf geachtet, daß alle Zu- 
sammenhänge möglichst einfach und verständlich dargestellt wurden. 
Die Lernschritte sind gegliedert und gut zu überblicken. 


Damit soll das Buch gerade dem Einsteiger eine gute Hilfe sein. Die 
Fortgeschrittenen unter Ihnen kommen jedoch (wie Sie gesehen haben 
und sehen werden) ganz bestimmt nicht zu kurz! 


Das Buch unterteilt sich im wesentlichen in fünf große Sinnabschnitte: 
Im ersten dieser Abschnitte (das 2. Kapitel) erhalten Sie anhand der 
verschiedenen Befehle der Supergraphik eine Einführung in die 
verschiedensten Graphikbereiche. Alle Befehle werden hier vorgestellt, 
eine ganze Menge interessanter und nützlicher Programme 
demonstrieren nicht nur die Anwendung dieser Befehle, sie vermitteln 
auch Tips und Tricks zur allgemeinen Graphikanwendung. 


Das dritte Kapitel wendet sich an diejenigen, die Graphik für 
fortgeschrittenere Themen einsetzen wollen (Statistik, 3dimensionale 
Graphik, Spiele etc... Dabei werden sich die meisten dieser 
Programme auf die Befehle der Supergraphik stützen. Kurz, hier 
entdecken Sie den tatsächlichen Nutzen des 64ders; auf diesen 
Abschnitt können Sie verweisen, wenn Sie jemand fragt: "Ein 
Computer? Was soll ich damit?" 


Damit Sie aber Graphik nicht nur von der Supergraphik-Ebene, also 
aus einem erweiterten BASIC heraus anwenden können, widmet sich 
das vierte Kapitel den graphischen Möglichkeiten Ihres Rechners 
überhaupt. Hier finden Sie alles, was Sie für Graphik auf dem 64er 
benötigen. Dieses Kapitel wird später wahrscheinlich (neben dem 2. 
Kapitel) das von Ihnen meist "beblätterte" sein, da es sich 
hervorragend als Nachschlagewerk eignet. 


Hier erfahren Sie alles (wirklich alles), was es über die Bild- 
schirmsteuerung durch den VIC (Videocontroller), dem Organisator 
des gesamten Bildgeschehens, zu erfahren gibt. Hier sehen Sie, welche 
Bedeutung beispielsweise den vielen Registern dieses "Managers" 
zukommt, was Sprites sind und wie sie organisiert sind, was man tun 
muß, um Graphik einzuschalten, zu erstellen und zu bedienen. Ihnen 
wird endlich klar, was es mit der bisher ziemlich undurchsichtig 
erscheinenden Graphik-, Zeichensatz- oder Bildschirmspeicher- 
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Verschiebung auf sich hat, allgemein wie der gesamte Speicheraufbau 
des 64ers beschaffen ist und welche Möglichkeiten sich ergeben... 


Im fünften Kapitel schließlich erhalten Sie einen Überblick über die 
programmiertechnische Seite der Graphik. Wie werden Punkte, Linien 
und Kreise am schnellsten, am komfortabelsten, am genauesten 
gezeichnet? Wie programmiere ich Sprites und Zeichensatz? Hierzu 
werden Ihnen zwei sehr komfortable Editorprogramme zur Verfügung 
gestellt, mit denen Sie ohne viele Mühe bequem und handlich diese 
Dinge erledigen können. Sprites werden auf dem Bildschirm bewegt 
und auf Kollisionen etc. überprüft. Weitere Kapitel führen Sie in das 
Laden, Speichern und die Erstellung von Hardcopys der Graphik ein 
und erläutern Ihnen die Interrupttechniken. 


Sie erhalten einen Überblick über die Algorithmen der Graphik- 
programmierung mit jeweiligen Verweisen auf das Source-Listing der 
Supergraphik, das Sie schließlich und letzten Endes in Kapitel 6 
finden. 


Damit Sie leichter Ihre eigenen Graphikroutinen auch ohne die 
Supergraphik in Ihre Programme einbauen können, wird zusätzlich zur 
Supergraphik noch ein kleines, kompaktes Graphikpaket mit den 
wichtigsten Befehlen abgedruckt. 


Wir hoffen, damit jeden 64er-Anwender, Einsteiger wie Fort- 
geschrittenen, zu einem absoluten "Graphik-Freak" zu machen, einem 
Fachmann in allen Fragen, der zu Rate gezogen wird, immer dann, 
wenn andere nicht mehr weiter wissen. Und sollte doch einmal eine 
Gedächtnislücke auftreten, so schlägt er kurz einmal im Anhang nach 
und schon weiß er bescheid. Umfangreiche Hinweise auf 
weiterführende Literatur runden das Buch ab. 
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2. Supergraphik für Einsteiger 


Die ersten Graphik-Gehversuche 


In den folgenden Abschnitten werden wir gemeinsam in die Geheim- 
nisse der Computergraphik mithilfe der Befehle der Supergraphik 
einsteigen. Wir werden anhand kleiner oder größerer Beispielpro- 
gramme die verschiedenen Effekte und Techniken kennenlernen, die 
Graphik an sich ausmachen. 


In diesem zweiten Kapitel beschäftigen wir uns vornehmlich mit ein- 
fachen Graphikstrukturen und deren Anwendungen, die sich aus der 
Erklärung der Supergraphik-Befehle ergeben. Dabei werden wir - 
neben den vielen anderen Demonstrationsprogrammen - ein größeres 
Projekt in Angriff nehmen, das sich durch das gesamte zweite Kapitel 
ziehen wird. Wir werden im Laufe der Zeit ein teilweise Menü-ge- 
steuertes schönes CAD-Zeichenprogramm entwickeln, mit dem Sie am 
Ende dieses Kapitels Ihre eigenen Graphiken direkt am Bildschirm 
erzeugen können. Dabei werden Sie in der Lage sein, dieses Programm 
nachträglich Ihren eigenen Bedürfnissen selbst anzupassen (z.B. durch 
Steuerung mittels Lightpen, Joystick oder Graphiktablett). Diese Gra- 
phiken können Sie dann auf Ihrem Drucker ausdrucken oder auf Dis- 
kette speichern, um es z.B. später oder in anderen Graphikprogram- 
men weiter zu bearbeiten. 


2.1 Supergraphik 64 - Eine Vorstellung 


Nehmen Sie doch einmal die Diskette aus der Buchhülle. Da liegt sie 
also nun vor Ihnen, die BASIC-Befehlserweiterung Supergraphik 64. 
In ihr werden Sie Dinge finden, die bisher in keinem einzigen Pro- 
gramm verwirklicht wurden, zumal als für jeden "BASIC-Sprechen- 
den" gut zugängliche BASIC-Befehlserweiterung. Lassen Sie mich 
Ihnen kurz die allerwesentlichsten Merkmale der neuen Supergraphik 
vor Augen führen, um Ihnen einen schnellen Überblick über die Lei- 
stungsfähigkeit dieses Programmes zu geben. Konnten in früheren 
Versionen noch Angaben über die Anzahl der Befehle und Befehls- 
kombinationen gemacht werden (damals ca. 183), so ist es nun ein 
recht hoffnungsloses Unterfangen angesichts der Vielzahl der 
Variationsmöglichkeiten allein eines Befehls: 
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zwei unabhängige hochauflösende (320x200) oder Multicolor- 
(160x200) Graphikseiten. 


eine Standard-Low-Graphik-Seite (80x50 Punkte) gemeinsam im 
Textmodus 


Verdecktes Zeichnen (z.B. Text sichtbar, Graphikseite 2 wird er- 
stellt etc.) 


Bildschirmfensterbehandlung 


16 (!) unabhängige und unterschiedliche Sprites gleichzeitig auf 
dem Bildschirm und in allen Parametern veränderlich durch Bild- 
schirmfenstertechnik (Windowing). 


Alle 16 Sprites definiert durch einen Befehl! 


Positionieren und Bewegen(!) von 8 bzw. 16 Sprites gleichzeitig und 
unabhängig voneinander, während das übrige Programm weiter- 
läuft, durch bedingungslosen Einsatz der Interrupttechnik. 


Ständige Sprite-K.ollisionsüberprüfung, Joystickunterstützung, 
Paddleabfrage (A/D-Wandler), dadurch Möglichkeit des Einsatzes 
z.B. des Koala Graphiktabletts z.B. zum Zeichnen. 


Automatische Unterbrechung des BASIC-Programms bei Kollisio- 
nen (Interrupt), Sprung in Unterbrechungsroutine, dann Weiter- 
führung des Hauptprogrammes. 


Für jede Anwendung kombinierbare Befehle und Befehls- 
kombinationen (alle Befehle anwendbar auf alle Graphikarten): 


Für alle Zeichenbefehle wählbare Zwischenmodi: 
Zeichnen, 

Löschen, 

Invertieren, 

Punktieren, 

Pinselwahl, 

Graphikcursor bewegen, 

Zeichnen mit/ohne Farbsetzung, 

Punkte zählen. 
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2.) 


3) 


Durch einfache Befehle zu steuernde 
Graphikfiguren: 

Punkt, 

Linie, 

Linienschar, 

Linie vom Graphikcursor, 

Kreise, 

Kreisbögen, 

Ellipsen, 

Ellipsenbögen, 

Vielecke (geschlossen und offen), 
selbstdefinierbare Figuren, 

rotieren und vergrößern dieser Figuren, 
Rahmen, 

Felder, 

Text in Graphik. 

Beliebige Flächen ausfüllen 


Weitere Graphikbefehle: 

Graphikseiten- und Moduswechsel, 

Graphik und Bildschirmfenster maskiert löschen, 

Graphik und Bildschirmfenster maskiert invertieren, 

Kopieren einer Graphikseite in die andere, 

ODER-, UND- und EXKLUSIV-ODER-Verknüpfung der bei- 
den Graphikseiten 

Kopieren und Verschieben von Graphikfenstern 

ODER-, UND- und EXKLUSIV-ODER-Vernküpfung von 
Bildschirmfenstern 

Originalgetreues Kopieren eines TEXT-Bildschirms in eine Gra- 
phikseite (!), dadurch Hardcopy auch des Text-Bildschirms, 
Scrolling von Text- und Graphik 

Wählen der Rahmen-, Hintergrund-, Zeichen- oder Punktfarbe. 


Gleichzeitige Anzeige von Text und Graphik durch Bild- 
schirmfensterdefinition! 


Speichern und Laden von Graphik, Farbe und Text (!) auf Diskette 
(Kassette) (auch verdeckt) in selbst wählbarem Format, dadurch 
Möglichkeit des Einladens aller "Fremd"-Graphiken und deren 
weitere Bearbeitung durch Hardcopy etc. (auch z.B. aller Koala- 
Pad-Bilder) 
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- Hardcopies für EPSON mit DATA-BECKER-Interface, CBM 1526, 
CBM MPS 801, Seikosha GP 100 VC, Farb(!)drucker Seikosha GP 
700 (farbige Hardcopies von Koala-Pad-Bildern etc.) und andere. 


- Komfortable Soundprogrammierung mit Verstellung aller möglichen 
Sound-Parameter (Lautstärke, Klang, Filter, Tonhöhe, Tonlänge) 
ebenfalls unabhängig vom übrigen Programmablauf. 


- Eingebautes Programmier-Set mit: 

RENUMBER (auch GOTO, GOSUB, ON...GOTO, ON...GOSUB, 
RUN, LIST, THEN-Änderung), MERGE (anhängen eines BASIC- 
Programmes an ein anderes), DIRECTORY (anzeigen des Disketten 
Inhaltsverzeichnisses ohne Programmverlust(!), DATASET (setzen 
des DATA-Zeigers auf eine bestimmte Zeile (auch indirekt), KEY 
(Programmierung der 8 Funktionstasten mit 16(!) Zeichen pro 
Taste. 


- Cursorpositionierung im Textmodus. 


- Erleichtertes Programmieren durch "tolerante"” Fehlerakzeptanz 
(ILLEGAL QUANTITY etc.). 


2.2 Starten der Supergraphik 


Nach dem Einschalten von Floppy und Computer legen Sie Ihre Dis- 
kette ein und tippen: 


LOAD "SUPERGRAPHIK",8 (return) 


RUN (return) 


und schon wird Ihre Graphikerweiterung gestartet. 
Nach einiger Zeit erscheint auf Ihrem Bildschirm ein Menü, in dem 
Sie Ihrer Supergraphik angeben, welchen Drucker Sie besitzen. An- 
hand der von Ihnen nun einzugebenden Kennzahl läd Ihre Supergra- 
phik die passende Hardcopyroutine ein, damit Sie auch auf Ihrem 
Drucker einen Graphikausdruck erzeugen können. 


Nachdem Sie die Ihrem Drucker zugeordnete Ziffer eingegeben haben, 
erscheint dann die Meldung und Sie befinden sich im normalen Pro- 
grammiermodus, womit Sie sofort anfangen können. 
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2.3 Kleines Graphik-ABC 


Dieses Kapitel können Sie ruhig überschlagen, falls Sie nicht interes- 
siert sind. Trotzdem wird es Ihnen bei dem Verständnis der nachfol- 
genden Programme in diesem Buch sehr hilfreich sein, sich mit diesem 
Thema einmal ganz kurz auseinandergesetzt zu haben. Wenn Sie nicht 
alles verstehen sollten, so ist das nicht weiter schlimm. Weiter hinten 
im Buch werden diese Dinge sehr ausführlich noch einmal aufgegrif- 
fen. Im folgenden sollen Ihnen nämlich einige wichtige Eigenheiten 
Ihres Rechners in sehr knapper Form dargelegt werden. 


Supergraphik 64 bietet Ihnen 3 Graphikarten an, die Sie nach Bedarf 
auswählen können: 


2.3.1 80x50-Blockgraphik (LGR): 


Allgemeines: 


Diese Graphikart wird zusammen mit dem normalen Text angezeigt 
und basiert auf der Verwendung folgender 8 Graphiksonderzeichen 
des CBM 64 jeweils im normalen oder inversen Zustand: 


ASCI: 32,161,162,172,187,188,190,191 
Diese Zeichen können Sie sich mit dem der BASIC-Anweisung 


PRINT CHRS(32);CHR$C161) ;CHRSC162);CHRSCI72);CHRSCIBT);CHRSCIBB);CHRSCIO 
O);CHR$C191) 


anschauen. 
Die Auflösung beträgt also jeweils 1/4 Zeichen (4x4-HGR-Punkte). 
Bestehender Text wird nicht überschrieben, so daß Sie ohne weiteres 


Graphiken und Text miteinander mischen können. 


Das zum Setzen eines Punktes notwendige Koordinatensystem sieht 
dann folgendermaßen aus: 
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Auffällig ist, daß sich der Nullpunkt dieses Koordinatensystems oben 
links in der Ecke des Bildschirms befindet. Diese Einteilung hat sich 
in der Computerwelt geradezu standardisiert und wird uns noch in 
vielen Anwendungen und Programmen verfolgen. 


Speichernutzung: 


Die Graphikzeichen werden wie der Text im Video-RAM bei den 
Adressen 1024-2023 ($0400-$07E7) (ca. IK-Byte) abgelegt. Die 
Hintergrundfarbe steht im 33. Register des VIC (Video-Interface- 
Chip) (s. Anhang). Die Zeichenfarbe steht im normalen Farb-RAM 
bei den Speicherstellen 55296-56295 ($D800-$DBE7). 


2.3.2 320x200-Hochauflösende Graphik (HGR): 


Allgemeines: 


In diesem Graphikmodus ist jeder kleinste Punkt des Bildschirms 
einzeln ansprechbar, was zu dieser hohen Auflösung führt (ein Buch- 
stabe/Zeichen besteht aus 8x8-Punkten). Ihr CBM 64 benutzt dabei 
ein Bit jedes Bytes des Graphikspeichers als Punktraster (0=Punkt 
nicht gesetzt; 1=Punkt gesetzt). Die Farbauflösung ist hier jedoch 
kleiner: jeweils 8x8 Punkte besitzen die gleiche Farbe (0-15), was zu 
einer besonderen Farbbehandlung führt (s.u.). 


Das zum Setzen eines Punktes notwendige Koordinatensystem sieht 
dann folgendermaßen aus: 


24 Das Supergraphikbuch zum C64 





Supergranhik für Einsteiger 25 
Speichernutzung: 


Es bedarf etwa 8 K-Byte (8000 Bytes), um ein vollständiges Graphik- 
bild zu speichern. Diese 8K werden in der Supergraphik platzsparend 
positioniert, indem sie für Bildseite 1 (s.u.) ab Speicherstelle 57344 
($E000) und für Bildseite 2 ab Adresse 40960 ($A000) in das unter 
dem Betriebssystem liegende RAM abgelegt werden, daher also keinen 
BASIC-Speicherplatz einnehmen. 


Die Hintergrundfarbe kommt aus den unteren 4 Bits jedes Bytes des 
Video-RAMSs, der nach 49152 ($C000), also ebenfalls aus dem BASIC- 
Bereich heraus, verschoben wurde. Die Farbe eines 8x8-Blocks resul- 
tiert aus den oberen 4 Bits des Video-RAMs. 


2.3.3 60x200-Multicolormode (MC): 


Allgemeines: 


Diese Graphikart ist ähnlich dem HGR-Modus. Hier allerdings bilden 
je 2 Bits des Bildspeichers einen doppelt so großen Punkt auf dem 
Schirm, daher die verminderte x-Auflösung. (Bits: 00=Punkt besitzt 
Hintergrundfarbe; Ol=Farbe 1; 10=Farbe 2; I1=Farbe 3). Wie Sie 
sehen, haben Sie im MC-Modus eine größere Farbauflösung. Hier 
können in einem 8x8-Feld also 4 Farben vorkommen. 


Das zum Setzen eines Punktes notwendige Koordinatensystem sieht 
dann folgendermaßen aus: 
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Speichernulzung: 


Zum Bildspeicher ist gleiches zu sagen, wie beim HGR-Modus. Le- 
diglich die Farbrealisierung ist verändert: 

Die Hintergrundfarbe kommt nun aus dem niederwertigen Halbbyte (4 
Bits); Farbe 2 wird aus dem höherwertigen Halbbyte des Videorams 
gewonnen. Farbe 3 schließlich stammt aus dem Farb-RAM. 


Letzteres wirft einige Probleme im Multicolormodus auf: 

Da die Farbe des Textes ebenfalls hier abgelegt wird, kommt es zu 
Unverträglichkeiten beim Gebrauch von Text in der LGR-Seite, 
während ein MC-Bild angezeigt wird: Wird zu diesem Zeitpunkt nor- 
maler Text per PRINT-Statement geschrieben, so ändert sich an der 
entsprechenden Stelle im Farbram, also in der Farbgebung des MC- 
Bildes die Farbe. Gleichzeitig fehlt diese nachher bei der Wiederher- 
stellung des Textbildes. Vermeiden Sie also neuen Text im LGR-Bild, 
während das MC-Bild angezeigt wird (Die LOW-Graphik bleibt davon 
jedoch unberührt). 


2.4 Bemerkung vor dem Start 


Bevor wir richtig in den Befehlsschatz der Supergraphik eintauchen, 
soll hier noch etwas über die Arbeitsweise mit der Supergraphik ge- 
sagt werden. Es handelt sich ja - wie gesagt - um eine BASIC-Er- 
weiterung. D.h. Sie können mit diesem Programm nach dem Start ge- 
nauso arbeiten, wie unter ganz normalem BASIC. Es werden Ihnen nur 
noch eine ganze Menge zusätzliche Befehle zur Verfügung gestellt. 
Um Ihnen nun auch die Arbeit mit ihren Programmen zu vereinfa- 
chen, existieren einige Programmierutilities, die jedoch erst am Ende 
dieses Kapitels erläutert werden, um Sie nicht vorweg schon mit zu- 
viel Theorie zu langweilen. Dort finden Sie Befehle zur Anzeige des 
Disketteninhaltsverzeichnisses, zur automatischen Umnumerierung der 
BASIC-Zeilen usw. Eine Möglichkeit der Supergraphik soll hier aber 
schon einmal kurz angesprochen werden: Sie können die 8 Funktions- 
tasten mit einer beliebigen (max. 16 Zeichen langen) Zeichensequenz 
belegen. Dort können Sie z.B. einige Befehle oder Befehlskombinatio- 
nen ablegen, die Sie ständig benötigen. Wie das gemacht wird, erfah- 
ren Sie beim Befehl KEY am Ende des Kapitels. 


Die Funktionstasten sind aber bereits vorbelegt. Bei dem Betätigen 
einer dieser Tasten unmittelbar nach einem RETURN werden direkt 
schon einige Befehle ausgeführt. Hier eine Aufstellung der Vorbele- 
gungen: 
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f1: LIST 

f2: Bildschirm löschen + LIST 

f3: Disketteninhalt zeigen (ohne Programmverlust) 
f4: Graphik-Text-Mischanzeige, LGR befehligt 

f5: Graphik ausschalten 

f6: Graphik-Text-Mischanzeige, HGR befehligt 

f7: Graphik ausschalten 

f8: Zeilen umnumerieren (RETURN erforderlich) 


Probieren Sie es doch einfach einmal aus: Betätigen Sie eine der 
Funktionstasten und dann RETURN. 


2.5 Alles begann beim Punkt 


Als der große griechische Philosoph Euklid vor mehr als 2000 Jahren 
einmal die Eindrücke einer wunderschönen griechischen Landschaft in 
den Sand zeichnen wollte und er mit seinem Holzstab zum malen an- 
setzte, hielt er einen Moment inne, setzte den Stab wieder ab und be- 
trachtete sich den Eindruck, den dieser im Sand hinterlassen hatte. 
Von diesem Moment an wußte er, daß alles mit dem Punkt begann. 
Obwohl diese Entdeckung lange Zeit in Vergessenheit geraten war, 
bekommt sie im Zeitalter der Computer wieder zentrale Bedeutung. 
Hier sind nämlich alle Graphiken, Bilder und Buchstaben im Endef- 
fekt aus Punkten zusammengesetzt. So, wie also die Materie aus 
kleinsten Teilchen besteht, so verhält es sich mit der Graphik ebenso. 
Die glatteste Fläche, die ebenste Linie ist nur eine Annäherung, die 
unser Auge täuscht. Damit ist ein Befehl, der einen einzelnen Punkt 
auf dem Bildschirm setzt die Grundlage aller Graphik. Alle anderen 
Figuren beruhen auf dieser Rechenvorschrift und stellen lediglich eine 
Erleichterung für uns dar. Wollen wir sehen, wie es sich damit verhält! 


2.5.1 PLOT und was dazu gehört 


Mit dem Befehl PLOT, dem Befehl, der einen einzigen Punkt auf den 
Bildschirm zaubert, wollen wir unsere Einführung in die Graphik auf 
dem Commodore 64 beginnen. Mit diesem Befehl werden Sie eine 
Menge über die wesentliche Struktur der Graphik und der Supergra- 
phik lernen. Dieses Kapitel sollten Sie also besonders aufmerksam 
lesen. Zunächst aber probieren Sie doch einmal das folgende Pro- 
grammbeispiel, das Ihnen das Weiterlesen schmackhaft machen soll. 
Laden Sie also die Supergraphik wie in Abschnitt 2.2. beschrieben ein 
und tippen folgendes: 
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100 REM Wr 


110 REM ** RK 
120 REM ** PLOT-DEMO ** 
130 REM ** er 
140 REM nn 
150 REM 

160 GMODE 0,1 : GCLEAR 
170 SCoL= 0,0 


180 FOR X=0 TO 940 STEP 0.4 

190 PLOT „35*SINCX/15)+160,40*SINCX/50)+100 
200 NEXT X 

210 REM 

220 FOR X=0 TO 940 STEP 0.4 

230 PLOT „40*SINCX/50)+160,35*SINCX/15)+100 
240 NEXT X 


(w 


= 


wen 





Sie müssen nicht unbedingt verstehen, was es mit den merkwürdig 
erscheinenden Formeln in diesem Programm auf sich hat. Es handelt 
sich hier um eine Form der sogenannten Lissajous-Kurven. Diese 
kleine Demonstration sollte Sie nur auf das Thema einstimmen. 
Sprechen wir das Programm doch einmal kurz durch: 


In Zeile 160 wird die hochaufgelöste Graphik durch den Befehl 
GMODE eingeschaltet (wir kommen später noch einmal darauf 
zurück) und der Graphikbildschirm gelöscht (GCLEAR). An- 
schließend legen wir in Zeile 170 die Hintergrundfarbe durch SCOL= 
auf schwarz fest. Nun folgt das eigentliche Zeichenprogramm. Durch 
die FOR... NEXT-Schleife wird die Variable X ständig um 0,4 erhöht, 
die in die Formeln zur Koordinatenberechnung des PLOT-Befehls 
einfließt. Um den PLOT-Befehl, den Befehl also, der einen einzigen 
Punkt auf den Bildschirm zeichnet, näher zu verstehen, schauen wir 
ihn uns doch einmal etwas genauer an: 
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Befehl: PLOT zm,x,y 
Beispiel: PLOT 1,100,199 
Parameter: zm: Zeichenmodus 
x:  x-Koordinate 
y:  y-Koordinate 
Funktion: Setzen (Löschen etc.) eines Punktes 


Dieser Befehl ermöglicht Ihnen also, einen Punkt mit den Koordinaten 
x,y auf dem Bildschirm in der entsprechenden Farbe (s.u.) zu zeich- 
nen. Um das mit den Koordinaten zu verstehen, rufen wir uns noch 
einmal das Supergraphik-interne Koordinatensystem in Erinnerung, 
das bereits in Kapitel 2.3. vorgestellt wurde. In diesem Koordinaten- 
system lag der Nullpunkt ja links oben in der Ecke des Bildschirm- 
fensters. Die Koordinaten der y-Achse wurden nach unten(!) hin, die 
der x-Achse nach rechts immer größer. Dabei kamen folgende Werte 
für x und y in Frage, wenn ein Punkt innerhalb des Bildschirms 
liegen sollte: 


LGR: x: 0 bis 79 
y:0 bis49 

HGR: x: 0 bis 319 
y: O bis 199 

MC: x: 0 bis 159 
y: 0 bis 199 


Dabei bedeuten: 


LGR: Low-graphic (niedrig aufgelöste Graphik) 
HGR: High-graphic (hoch aufgelöste Graphik) 
MC: Multicolor (Multicolor-Graphik) 


In unserem Beispiel haben wir es mit HGR zu tun. Damit befindet 
sich der Punkt mit den Koordinaten x=0 und y=199 in der unteren 
linken und der Punkt mit den Koordinaten x=319 und y=199 in der 
unteren rechten Ecke des Bildschirms. In dem Befehl PLOT zm,x,y 
geben Sie also für x die x- und für y die y-Koordinate des Punktes 
an, der gezeichnet werden soll. Statt diese Werte direkt mit Zahlen 
anzugeben, können Sie natürlich dafür auch jede Variable oder 
Formel einsetzen, die Ihnen in den Sinn kommt, wie dies auch in dem 
obigen Beispiel geschehen ist: z.B. 
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PLOT 0,(x+1)*5,b*2 


10 GMOOE 0,1 : GCLEAR 
20 PLOT 0,159,199 
30 WAIT 198,255 : REM AUF TASTE WARTEN 


Dieses Programm zeichnet einen einzelnen Punkt in die Mitte des 
Bildschirms. Bei einem Tastendruck kehrt das Programm automatisch 
in den Textmodus zurück. Es zeigt Ihnen die Grundkonfiguration 
eines Graphikprogrammes auf: Graphik ein, löschen und zeichnen 
(Zeile 30 ist nur dazu da, damit die Graphik nach dem Setzen des 
Punktes eingeschaltet bleibt). 


Noch eine Wichtigkeit am Rande: Bei allen Befehlen, auch allen 
späteren Kommandos der Supergraphik ist ein allgemeiner Punkt zu 
beachten: Folgt einer IF... THEN-Konstruktion ein Befehl des Super- 
graphik-Befehlsvorrates, so ist nach dem "THEN" unbedingt ein ":" 
(Doppelpunkt) zu setzen, also zum Beispiel: 


10 IF A=3 THEN : PLOT 0,100,50 


Einen Parameter des PLOT-Befehls haben wir in unseren Be- 
trachtungen zunächst noch gar nicht untersucht, den Zeichenmodus 
zm. Mit diesem Zeichenmodus hat es seine besondere Bewandtnis. Er 
ist mit dafür verantwortlich, daß jeder einzelne einer ganzen Reihe 
von Befehlen eine Vielzahl von Ausführungsmöglichkeiten besitzt. Der 
Zeichenmodus wird uns also auf Schritt und Tritt begleiten. Schauen 
wir uns doch erst einmal im Überblick an, was unter "Zeichenmodus" 
zu verstehen ist: 


Der Zeichenmodus gibt an, wie die jeweiligen Figuren (in diesem Fall 
ein Punkt) angesprochen werden sollen. Die folgende Tabelle gibt 
Ihnen die Werte an, die Sie für zm einsetzen können. Für größere 
Werte oder beim Weglassen von zm (s.u.) wird automatisch der Wert 0 
eingesetzt: 


zm| Wirkung |Beispiel 

0| Figur zeichnen |pLOT 0, 160,100 
1| Figur löschen |pLOT 1,160,100 
2| Figur invertieren |pLoT 2,160, 100 
3| Figur punktieren |pLoT 3,160,100 


4| Graphikcursor bewegen |PLOT 4,160,100 
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Wichtig ist, daß unbedingt nach der Angabe des Zeichenmodus ein 
Komma gesetzt wird (auch z.B. bei PLOT 0,TO 20,50 - auf diesen 
Befehl werden wir weiter unten zu sprechen kommen). Der Befehl 
PLOT ‚160,100 ersetzt den Befehl PLOT 0,160,100 (schnellere Bear- 
beitung / speicherplatzsparend). 


zu zm=0: 


Bisher haben wir nur Fälle kennengelernt, in denen ein Punkt tatsäch- 
lich auf den Bildschirm gezeichnet werden sollte. In diesem Fall 
setzten wir für den Zeichenmodus den Wert O ein. In unserem ersten 
Beispiel haben wir ihn sogar weggelassen. Dies ist tatsächlich erlaubt. 
Schreiben wir statt PLOT 0,160,100 nur einfach PLOT ‚160,100, so 
wird exakt das gleiche ausgeführt, vorausgesetzt das Komma direkt 
hinter PLOT wird gesetzt (ansonsten erscheint ein SYNTAX ERROR). 
Dieser Befehl ist kürzer und auch schneller. 


zu zm=1: 


Hier haben wir unser erstes Beispiel, bei dem wir einen anderen Zei- 
chenmodus gewählt haben. Schauen wir es uns doch einmal an: 


100 REM Ks 
110 REM ** x 
120 REM ** BLINKER ** 


130 REM ** “r 
140 REM Wr 


150 REM 

160 GMODE 0,1 : GCLEAR : SCOL= 0,0 
170 FOR Z=1 TO 20 

180 PLOT 0,159,99 : PLOT 0,160,99 
190 FOR X=1 TO 200 : NEXT X 

200 PLOT 1,159,99 : PLOT 1,160,99 
210 FOR X=1 TO 200 : NEXT X 

220 NEXT 2 


Nach den üblichen Formalitäten in Zeile 10 (wir kommen - wie gesagt 
- später darauf zurück), werden in der äußeren FOR...NEXT-Schleife 
zwei Punkte nebeneinander mitten auf dem Bildschirm gezeichnet 
(Zeile 30) und nach einer kurzen Warteschleife (Zeile 40) wieder ın 
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Zeile 50 gesetzt, indem jetzt die beiden Punkte mit denselben Koordi- 
naten nur mit einem anderen Zeichenmodus angesprochen werden. 
Auf diese Weise blinkt der Punkt zwanzigmal, um dann wieder hinter 
dem erscheinenden Textfenster ganz zu verschwinden. 


Das folgende Programm demonstriert Ihnen eine weitere kleine An- 
wendung: 


100 REM Ka 2 2 22 22 2 2 2 2 2 22 22 22 22 202 2 02 2 2 2 202 20207 


110 REM ** ER 
120 REM ** DER RASENDE STECKNADELKOPF ** 
130 REM ** “x 
140 REM eek 
150 REM 

160 GMODE 0,1 : GCLEAR : SCOL= 0,0 

170 2=0 


180 FOR Y=0 TO 199 

190 PLOT 0,50+Y,Y : PLOT 0,51+Y,Y 
200 PLOT 1,50+2,2 : PLOT 1,51+2,2 
210 2z=Y 

220 NEXT Y 


In diesem Programm werden zwei nebeneinander liegende (der 
besseren Sichtbarkeit wegen) Punkte auf einer Diagonalen bewegt. 
Dabei werden sie bei jedem Schleifendurchlauf der FOR..NEXT- 
Schleife in den Zeilen 180-220 einen Punkt weiter gezeichnet (Zeile 
190). Dann werden die in dem vorhergehenden Schleifendurchlauf 
gezeichneten Punkte wieder gelöscht. Dadurch entsteht der Eindruck 
der Bewegung auf dem Bildschirm. Sie können die beiden Punkte jetzt 
natürlich auf alle möglichen anderen Bahnen schicken oder selbst per 
Tastendruck steuern. 


Zu zm=2: 


Dieser Modus erweitert Ihre Möglichkeiten enorm. Die Figur wird 
normal gezeichnet. An den Stellen jedoch, an denen vorher ein Punkt 
gesetzt war, wird dieser Punkt jetzt gelöscht und umgekehrt (Inver- 
tierung). Anmerkung: Im Multicolormodus findet ein Farbwechsel 
statt: 


Farbe O0 wechselt nach Farbe 3 
Farbe 1 wechselt nach Farbe 2 
Farbe 2 wechselt nach Farbe 1 
Farbe 3 wechselt nach Farbe 0 
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wobei unter Farbe 0 jeweils die Hintergrundfarbe gemeint ist.) 


Auf den ersten Blick mag diese Funktion als reine Spielerei er- 
scheinen. Der Vorteil des invertierten Zeichnen liegt darin, daß nach 
jeweils zweimaligem Zeichnens der vorherige Zustand des Bildes 
wiederhergestellt ist. Angenommen, an der Stelle, an der gezeichnet 
werden soll, steht bereits ein Punkt. In diesem Falle wird ja nach der 
Invertierungsvorschrift dieser Punkt gelöscht. Beim nächsten Inver- 
tieren dieses Punktes wird er aber wieder gesetzt und es ist damit alles 
wieder beim alten. Entsprechendes gilt, wenn an der Stelle vorher kein 
Punkt gesetzt war. Dieser Effekt wird ein paar Zeilen weiter unten in 
dem ersten Teilstück unseres großen CAD-Zeichenprogrammes ge- 
nutzt, um einen blinkenden Cursor auf dem Bildschirm darzustellen, 
der jedoch das bereits gezeichnete Bild nicht zerstört. Aber lesen Sie 
ruhig weiter. 


Zunächst wollen wir nämlich diesen Befehl an einem kleinen Beispiel 
kennenlernen: 


100 REM KrrkkkRaRRaRRee 

110 REM ** “* 

120 REM ** INVERTIERUNG ** 

130 REM ** “* 

140 REM ri 

150 REM 

160 GMODE 0,1 : GCLEAR : SCOL= 0,0 

170 FOR ZM=0 TO 2 STEP 2 :REM NORMAL/INVERS-SCHLEIFE 
180 FOR X=20 TO 100 STEP 3 


190 FOR Y=20 TO 100 :REM SENKRECHTE LINIEN 

200 PLOT ZM,X+V,Y :REM PLOT NORMAL ODER INVERS 
210 NEXT Y 

220 NEXT X 

230 REM 

240 FOR Y=20 TO 100 STEP 3 

250 FOR X=20 TO 100 :REM WAAGERECHTE LINIEN 

260 PLOT ZM,X+V,Y :REM PLOT NORMAL ODER INVERS 
270 NEXT X 

280 NEXT Y 

290 V=100 :REM INVERS 100 PUNKTE VERSCHOBEN 


300 NEXT ZM :REM JETZT INVERS ZEICHNEN 
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In diesem Programm wird zunächst ein Feld sich schneidender senk- 
rechter und waagerechter Linien durch normales Zeichnen auf den 
Bildschirm gebracht. Im Anschluß daran (gesteuert durch die äußerste 
FOR..NEXT...-Schleife) wird das gleiche Objekt noch einmal, diesmal 
aber im inversen Modus gezeichnet. Wenn Sie das Programm testen, 
wird Ihnen der Unterschied sofort ins Auge fallen: Die Schnittpunkte 
der Linien des zweiten Feldes wurden durch die Invertierung wieder 
gelöscht. 


zu zm=3 


Nun eine kleine Spielerei: Sie besitzen die Möglichkeit, jede Figur 
(außer Punkten natürlich) punktiert zu zeichnen, d.h. es wird nur 
jeder zweite eigentlich zu zeichnende Punkt gesetzt (Hierdurch ent- 
stehen schöne Effekte: in Feld wird beispielsweise längsgestreift ge- 
zeichnet, was seltsame Farbereignisse bewirkt. Ein Rahmen dagegen 
erhält ein besonderes Aussehen: das eines echten Bilderrahmens!). Da 
dieser Zeichenmodus beim Setzen von Punkten keinen Effekt bewirkt, 
werden wir ihn später noch einmal erwähnen. Hier sei er nur der 
Vollständigkeit halber genannt. 


zu zm=4: 


Ihre Supergraphik 64 merkt sich jeweils den zuletzt gezeichneten 
Punkt und behält ihn als imaginären Graphikcursor, um ihn bei 
einigen Zeichen-Befehlen statt Ihrer Koordinatenangabe einzusetzen, 
so daß Sie direkt an andere Figuren (z.B. Kreisbögen oder Linien) an- 
knüpfen können. Setzen Sie zm nun gleich 4, so wird lediglich dieser 
unsichtbare Graphikcursor bewegt, ohne daß sich sonst irgendwelche 
Veränderungen auf dem Bildschirm ergeben. Auch auf diesen Befehl 
werden wir später noch (beim Zeichnen von Linien und beim T-Zu- 
satz der erweiterten Syntax) zurückkommen. 


2.5.2 CAD-Zeichner, das Zeichenpaket 


Soweit zu der einfachen Anwendung. Jetzt aber wollen wir uns end- 
lich dem ersten großen Teil unseres CAD-Zeichenprogrammes 
widmen. Wir stellen hier das Grundgerüst mit einigen bereits reali- 
sierten Funktionen vor, die wir mit unseren bisherigen bescheidenen 
Mitteln jetzt schon realisieren können. 
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100 
110 
120 
130 
140 
150 
160 
170 
175 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 


TZEN 


280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
900 
960 
970 
980 
990 
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REM Wr 


REM ar ar 

REM ** CAD-ZEICHNER ** 

REM ar ar 

REM wre‘ 

REM 

GMODE 0,1 : GCLEAR : SCOL= 0,0 

x=160 : Y=100 :REM KOORDINATEN INIT 
XA=320 : YA=200 :REM X- UND Y-AUFLOESUNG 
POKE 650,255 :REM AUF ALLE TASTEN REPEAT 
REM 

REM EINGABESCHLEIFE: 

REM 

FL=0 :REM FLAG ZURUECKSETZEN 
PLOT 2,X,Y : PLOT 2,X+1,Y:REM PUNKT INVERTIEREN 
FL=ABS(FL-1) :REM FLAG O<->1 WECHSELN 
FOR 2=1 TO 30 

GET A® : IF Ag=H" THEN NEXT 2 : GOTO 230 

IF FL=1 THEN : PLOT 2,X,Y : PLOT 2,X+1,Y :REM PUNKT WIEDER ZURUECKSE 


REM 

REM 

REM VERZWEIGUNG: 

REM 

A=ASCCA$) 

IF A=17 THEN GOSUB 1300 :REM RUNTER 
IF A=145 THEN GOSUB 1240 :REM HOCH 
IF A=29 THEN GOSUB 1340 :REM RECHTS 
IF A=157 THEN GOSUB 1390 :REM LINKS 
IF A=133 THEN GOSUB 1010 :REM Fi 

IF A=137 THEN GOSUB 1040 :REM F2 

IF A=134 THEN GOSUB 1070 :REM F3 

IF A=138 THEN GOSUB 1100 :REM F4 

IF A=135 THEN GOSUB 1130 :REM F5 

IF A=139 THEN GOSUB 1160 :REM F6 

IF A=136 THEN GOSUB 1190 :REM F7 

IF A=140 THEN GOSUB 1220 :REM F8 

IF A= 19 THEN CF=ABSCCF-1) :REM SCHNELL/LANGSAM 
IF A$="Q" THEN:GMODE 0,0 : END 

GOTO 220 

REM 

REM 

REM AUSFUEHRUNG: 

REM 


1000 REM Fi: PUNKT SETZEN UND RECHTS 
1010 PLOT ‚X,Y : GOTO 1340 

1020 REM 

1030 REM F2: PUNKT LOESCHEN UND RECHTS 
1040 PLOT 1,X,Y : GOTO 1340 

1050 REM 
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1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 


REM F3: PUNKT SETZEN UND LINKS 
PLOT ‚X,Y : GOTO 1390 

REM 

REM F4: PUNKT LOESCHEN UND LINKS 
PLOT 1,X,Y : GOTO 1390 

REM 

REM F5: PUNKT SETZEN UND HOCH 
PLOT ‚X,Y : GOTO 1240 

REM 

REM F6: PUNKT LOESCHEN UND HOCH 
PLOT 1,X,Y : GOTO 1240 

REM 

REM F7: PUNKT SETZEN UND RUNTER 
PLOT ‚X,Y : GOTO 1300 

REM 


REM F8: PUNKT LOESCHEN UND RUNTER 
PLOT 1,X,Y : GOTO 1300 

REM 

REM CURSOR HOCH: 

IF CF=1 THEN Y=Y-9 

Y=Y-1 : IF Y<O THEN Y=YA+Y 
RETURN 

REM 

REM CURSOR RUNTER: 

IF CF=1 THEN Y=Y+9 

Y=Y+1 : IF Y>=YA THEN Y=Y-YA 
RETURN 

REM 

REM CURSOR RECHTS: 

IF CF=1 THEN X=X+9 

X=X+1 : IF X>=XA THEN X=X-XA 
RETURN 

REM 

REM CURSOR LINKS: 


IF CF=1 THEN X=X-9 
X=X-1 : IF X<O THEN X=XArX 
RETURN 


Gehen wir das Programm doch einmal durch: Zunächst einmal können 
Sie sich auf dem Graphikbildschirm mit einem kleinen, blinkenden 
Zwei-Punkte-Cursor mithilfe der Cursortasten frei bewegen. Dabei 


stellt die 


Eingabeschleife (Zeilen 220-260) das blanke Grundgerüst 


dar. In dieser Schleife wird - neben dem Blinken des Cursors (Zeile 
230) - ständig auf einen Tastendruck getestet (Zeile 260). Ist dieser 
Tastendruck erfolgt, so wird die Zeile 270 abgearbeitet, die den ur- 
sprünglichen Zustand des Punktes unter dem Cursor wieder herstellen 
soll. Hierzu wird das Flag FL verwendet, das synchron mit dem Cur- 
sorblinken ständig zwischen 0 und I wechselt. Dieses Wechseln wird 
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durch die Formel in Zeile 240 bewirkt: Ist FL=0, so wird ABS(FL-1) 
eins, ist FL=1, so nimmt die Formel den Wert O an. In Zeile 270 wird 
nun getestet, ob der Cursor zur Zeit ein- oder ausgeschaltet ist und 
gegebenenfalls ausgeschaltet. 


Was nun folgt, ist die Auswertung des erfolgten Tastendrucks. Nach- 
einander wird auf die einzelnen erlaubten Tasten getestet und zu der 
entsprechenden Routine gesprungen (Zeilen 330-460). Die Ausführung 
dieser Routinen beginnt ab Zeile 1000. Im einzelnen haben wir 
folgenden Tasten folgende Funktionen zugeordnet. Diese Zuordnung 
kann selbstverständlich jederzeit von Ihnen geändert werden: 


CRSR hoch - bewegt blinkenden Punkt hoch 
CRSR runter - bewegt blinkenden Punkt hinunter 
CRSR rechts - bewegt blinkenden Punkt nach rechts 
CRSR links - bewegt blinkenden Punkt nach links 
Fl - Punkt setzen und CRSR rechts 

F2 - Punkt löschen und CRSR rechts 

F3 - Punkt setzen und CRSR links 

F4 - Punkt löschen und CRSR links 

F5 - Punkt setzen und CRSR hoch 

F6 - Punkt löschen und CRSR hoch 

F7 - Punkt setzen und CRSR hinunter 

F8 - Punkt löschen und CRSR hinunter 
clr/home - Wechsel zwischen schnell und langsam 
Q - Beenden des Programms 


Unter "Wechsel zwischen schnell und langsam" ist dabei die Anzahl 
der Punkte zu verstehen, mit denen sich der Cursor bei einem Tasten- 
druck fortbewegt. Dies können entweder | oder 10 Punkte sein. 


Beachten Sie hier auch die Anwendung der Regel, die einen Doppel- 
punkt zwischen THEN einer IF... THEN-Anweisung und einem Befehl 
der Supergraphik vorschreibt: Zeilen 270 und 460! 


Mit diesem Programm können Sie bereits aus der Hand - wenn auch 
noch etwas umständlich - eigene Bilder zeichnen. Schauen Sie sich das 
Programm ruhig einmal etwas genauer an und nehmen, wenn Ihnen 
etwas nicht gefällt, Änderungen vor. In den nächsten Abschnitten 
werden wir - wie gesagt - dieses Grundgerüst noch um einige schöne 
Funktionen erweitern. 
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2.5.3 PRINT ist out 


Sie kennen sicher die Möglichkeit Ihres Commodore 64, einfache Gra- 
phiken im normalen Text-Modus mithilfe der Graphiksymbole des 
Commodore-Zeichensatzes zu erzeugen. Wie Sie später noch erfahren 
werden (Kapitel 5.1.), gibt es dafür im wesentlichen drei verschiedene 
Möglicheiten, die sich der beiden Befehle PRINT und POKE 
bedienen. Der Vorteil von PRINT ist dabei die Möglichkeit der 
direkten Eingabe der Graphikzeichen ins Programm und der resultie- 
renden Programmkürze. Großer Nachteil aber: Die jeweilige Bild- 
schirmposition kann nur sehr umständlich mit vielen PRINTs und 
TABs erreicht werden. Der Nachteil der POKE-Methode: Sehr um- 
ständliche Zeicheneingabe und Adressenberechnung jeder Bildschirm- 
position. 


Mit der Supergraphik werden Ihnen nun zwei wesentlich verbesserte 
Möglichkeiten in die Hand gegeben, die die Erstellung solcher Gra- 
phiken in hohem Maße vereinfachen und rationalisieren. Zunächst zur 
ersten Methode: 


2.5.3.1 Positionslichter 


Supergraphik bietet Ihnen einen sehr interessanten Befehl namens 
POS= (nicht zu verwechseln mit dem Befehl "POS(", der innerhalb 
eines PRINT-Statements verwendet wird). Mithilfe dieses Befehles ist 
es Ihnen möglich, den normalen Textcursor an einer beliebigen Stelle 
des Bildschirms zu positionieren. Wenn Sie nun mit PRINT etwas aus- 
geben, so beginnt die Ausgabe exakt an dieser Stelle: 


POS= 


Befehl: POS= s,z 
Beispiel: POS= 10,15 
Parameter: s: Spalte (0-39) 
z: Zeile (0-24) 
Funktion: Positionieren des Text-Cursors 


Das folgende Programm soll Ihnen einen kleinen Einblick in die 
mannigfaltigen Anwendungsmöglichkeiten dieses Befehls geben: 
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100 REM rk 
110 REM ** u 
120 REM ** POSITIONSLICHTER ** 
130 REM ** u. 


140 REM ER 

150 REM 

160 PRINT CHR$C147) : REM BILDSCHIRM LÖSCHEN 

170 FOR X=1 TO 500 

180 POS= RND(1)*40,RND(1)*25 : REM ZUFALLSPOSITION 
190 PRINT "HALLO!"; 

200 NEXT X 


Hier wird, wie Sie sehen, nicht in Graphik umgeschaltet, sondern im 
normalen Textmodus operiert. Dazu wird zunächst in Zeile 160 der 
gesamte Bildschirm gelöscht (shift cIr/home). Dann wird 500 mal an 
zufällige Positionen "HALLO!" geschrieben. Die zufälligen Positionen 
werden wie folgt berechnet: Die Funktion RND(1) übergibt stets Zu- 
fallswerte im Bereich von 0-1. Durch Multiplikation mit 40 (bzw. 25) 
wird dieser Wertebereich auf 0-40 (bzw. 0-25) erweitert. Damit be- 
kommen wir gültige Werte für Spalte und Zeile zur Cursorpositionie- 
rung. Anmerkung: Diese Technik kann natürlich auch zur zufälligen 
Punktsetzung in der hochauflösenden Graphik verwendet werden. 


2.5.3.2 Statische und ... 


Kommen wir nun zu der zweiten Möglichkeit der Graphikerzeugung 
in LGR mit der Supergraphik: 

Und da sind wir auch schon wieder bei unserem PLOT-Befehl. Denn 
PLOT kann nicht nur in der hochauflösenden Graphik (und der 
Multicolorgraphik selbstverständlich) verwendet werden. In LGR, also 
im normalen Textmodus wurde eine weitere Graphikauflösung reali- 
siert, die 50x80-Punktegraphik mit allen Vorteilen des Textmodus. 


Unter Paragraph 2.3.1. können Sie in aller Kürze nachlesen, was es 
mit der niedrig aufgelösten Graphik (LGR) auf sich hat. Grundsätz- 
lich können sie mit ihr fast genauso umgehen (gleiche Zeichenbefehle 
etc.), wie mit der bereits bekannten Graphik. Sie brauchen nicht ein- 
mal einen besonderen Graphikmodus oder ähnliches einzuschalten. Der 
PLOT-Befehl merkt automatisch, daß er jetzt im Textmodus zeichnen 
soll (daß es doch noch etwas anders ist, lesen Sie im Abschnitt 2.5.3. 
nach). Die von ihm auf den Bildschirm gebrachten Punkte werden nur 
dort gezeichnet, wo sich kein Text befindet, um nichts unnötig zu 
zerstören. Doch sehen Sie selbst: 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 


REM RR 

REM ** ** 

REM ** SINUSKURVE ** 

REM ** ** 

REM 

REM 

PRINT CHR$(147) :REM BILDSCHIRM LOESCHEN 
POS= 12,10 : PRINT "SINUSKURVE!" 


REM 

REM 

REM Y-ACHSE ZEICHNEN: 

REM 

2=3 :REM OBERER STARTWERT 


FOR Y=0 TO 49 STEP 6 
FOR T=1 TO6 :REM ALLE 6 PUNKTE EIN TEILSTRICH 
PLOT ‚„8,Y+T  :REM Y-ACHSE 
NEXT T 
PLOT ‚7,Y+T :REM TEILSTRICH 
IF 2<O THEN:PLOT B 45,,3,Y+T :REM MINUSZEICHEN 
PLOT B 48+ABS(2),,5,Y+T :REM ZIFFER 
2=2-1 :REM NAECHSTE ZIFFER 
NEXT Y 
REM 
REM 
REM X-ACHSE ZEICHNEN: 
REM 
2=0 :REM LINKER STARTWERT 
FOR X=0 TO 79 STEP 8 :REM ALLE 8 PUNKTE EIN TEILSTRICH 
FOR T=1 TO 8 


PLOT ‚X+T,25 :REM X-ACHSE 
NEXT T 
PLOT ‚X+T,26 :REM TEILSTRICH 


IF 2<O THEN:PLOT B 45, ,X+T-1,28 :REM MINUS 
PLOT B 48+ABS(2),,X+T,28 :REM ZIFFER 
2=2+1 :REM NAECHSTE ZIFFER 

NEXT X 

REM 

REM 

REM SINUSKURVE ZEICHNEN: 

REM 

FOR X=0 TO 79 STEP 0.5 
PLOT ‚X,20*SIN(X/10)+25 

NEXT X 

REM 

WAIT 198,255 
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Wenn Sie dieses Programm laufen lassen, wird Ihnen eine schöne 
Sinuskurve mit Koordinatenachsen und Beschriftung ausgegeben. 
Gehen wir das Programm doch einmal durch: 


Bevor wir beginnen, im normalen Textmodus zu zeichnen, löschen wir 
zweckmäßigerweise zunächst einmal den gesamten Bildschirm, wie 
dies in Zeile 160 geschieht. Um Ihnen nun zu demonstrieren, daß be- 
reits vorhandener Text nicht von der Punktgraphik überschrieben 
wird, schreiben wir mitten in den Bildschirm (POS=-Befehl, s.o.) den 
Titel "Sinuskurve". 


Dann beginnt die Konstruktion der Koordinatenachsen. (Wenn Ihnen 
das ganze zu kompliziert ist, was bei diesem Programm durchaus der 
Fall sein kann, überlesen Sie einfach diesen Absatz). Zu diesem 
Zwecke konstruieren wir in den Zeilen 230-310 eine FOR...NEXT- 
Schleife, die von oben nach unten die gesamte y-Achse zeichnet. 
Innerhalb dieser Schleife befindet sich eine zweite (Zeilen 240-260), 
die jeweils 6 Punkte der Achse zeichnet. Alle 6 Punkte wird dann in 
Zeile 270 ein Teilstrich gezeichnet und in den Zeilen 280/290 mit 
einer Ziffer beschriftet. Hier taucht auch gleich eine Besonderheit 
auf, die wir erklären müssen: 


Alle Befehle nämlich, die die Angabe des Zeichenmodus verlangen 
(also auch unser PLOT), können zusätzlich durch drei weitere Funk- 
tionen (wahlweise einzeln oder kombiniert) erweitert werden. Dies 
geschieht durch eine Erweiterung der Befehlssyntax. Wir wollen von 
diesen drei Erweiterungsmöglichkeiten zunächst die eine hier ange- 
wandte besprechen. Die beiden anderen folgen in anderen Paragra- 
phen: 


B m - Pinselwahl 
Beispiel: PLOT B 45,,20,40 


An dem obigen Beispiel erkennen Sie die Anwendung dieser Syntax- 
erweiterung. Der entsprechende Buchstabe (hier "B") wird einfach an 
das eigentliche Befehlswort (mit oder ohne Leerzeichen) angehängt. In 
diesem Fall wird durch diese Syntaxerweiterung ein zusätzlicher Para- 
meter m erforderlich. Es wird die Angabe einer Zahl zwischen 0 und 
255 für m gefordert. Diese Zahl hat nun folgende Bedeutung: 
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In niedrigauflösender Graphik: 


In LGR bestimmt diese Zahl den Bildschirmcode eines Zeichens. 
Dieses Zeichen wird dann statt der sonst verwendeten Punkte in das 
Textfenster geschrieben. Da das Zeichen natürlich eine Größe von 2x2 
LGR-Punkten besitzt, muß man im Programm entsprechende Vor- 
kehrungen treffen. Auf diese Weise ist es also auch möglich, statt mit 
Punkten, mit einzelnen Zeichen zu malen, ohne vom PRINT-Befehl 
Gebrauch zu machen. Ein schönes Beispiel für diese Technik ist Ihnen 
bereits aus dem obigen Programm bekannt. Die Bildschirmcodes (nicht 
zu verwechseln mit den ASCII-Codes) aller Commodore-Zeichen er- 
fahren Sie aus dem Anhang des normalen C64-Handbuchs. 


In hochauflösender (Multicolor-) Graphik: 


In HGR bzw. MC bestimmt die Zahl m die Maske für jeden Punkt. 
Wird also ein Punkt gesetzt, so wird nicht der einzelne Punkt ange- 
sprochen, sondern in das betreffende Byte des Graphikspeichers dieser 
eine Wert eingegeben. Betrachtet man diese Zahl dann als Binärzahl (s. 
Anhang), also als eine Folge von Nullen und Einsen, geben die 8 Bits 
dieser Zahl dann also an, welcher Punkt gesetzt, welcher nicht gesetzt 
werden soll. Am besten sieht man den Effekt, wenn man etwas her- 
umprobiert: 


10 GMODE 0,1 : GCLEAR : SCOL= 0,0 
20 FOR M=1 TO 255 

30 FOR X=1 TO 319 

40 PLOT B M,,X,X/2 


50 NEXT X 
60 GCLEAR 
70 NEXT M 


Sehr schöne Effekte bringt diese Befehlserweiterung auch bei den 
anderen Zeichenbefehlen (CIRCLE, FRAME, FILL, ...), die wir 
später noch durchsprechen werden. 


Doch sollten wir uns nach diesem kurzen Intermezzo wieder dem Si- 
nusprogramm in LGR zuwenden, das wir noch nicht ganz zuende be- 
sprochen haben. Die Funktion des B-Zusatzes ist nun geklärt. Damit 
sollten Sie die Möglichkeit haben, zu verstehen, wie die Beschriftung 
der Achsen realisiert wurde. Da natürlich stets nur ein Zeichen 
gleichzeitig mit dem PLOT B-Befehl auf den Bildschirm gebracht 
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werden kann, werden negative Werte von Z (der Variablen, die die 
aktuelle Beschriftungszahl enthält) in Zeile 280 abgefangen. Dort wird 
dann das Minus-Zeichen (Bildschirmcode: 45) an die entsprechende 
Stelle geschrieben. 


Die Zeilen 360-450 bewirken exakt das gleiche wie gerade be- 
schrieben, nur für die x-Achse. Das eben Gesagte kann also hierauf 
übertragen werden. 


Die eigentliche Sinuskurve wird lediglich in den 3 Zeilen 500-520 
gezeichnet. Etwas Allgemeines zur Zeichnung von Sinuskurven, also 
zu der Formel, die in Zeile 510 Verwendung findet: Da eine Sinus- 
funktion f=sin(x) nur Werte von -1 bis I liefert, müssen diese Werte 
für die Graphik vergrößert werden. Dies geschieht in unserem Falle 
durch den Streckungsfaktor 20. Dadurch nimmt die Funktion nun 
Werte zwischen -20 und 20 an. Negative Werte sind in der Graphik 
aber nicht zulässig, also verschieben wir die ganze Kurve durch ein 
"+25" in den positiven Bereich. Die Funktion nimmt nun also Werte 
zwischen 5 und 45 an. Eine Sinuskurve hat einen periodischen Ver- 
lauf. Alle 2*pi Punkte wiederholt sich also der Kurvenverlauf. 2*pi 
sind aber nur ca. 6. Um diese Periode nun zu verlängern, teilen wir 
alle x-Werte noch einmal durch 10. Hierdurch hat unsere Sinusfunk- 
tion nun eine Periode von ca. 60, was sich gut auf dem Graphikbild- 
schirm darstellen läßt. Verändern Sie ruhig einmal diese Werte und Sie 
werden feststellen, daß sich z.B. die Periode verändert, die Amplitude 
(also der Ausschlag der Sinuswellen nach oben und unten) oder die 
ganze Kurve verschiebt. Die hier erläuterten Grundsätze gelten natür- 
lich auch für die hochauflösende Graphik. Hier bieten sich aber dann 
natürlich insgesamt größere Werte an. 


2.5.3.3 ... bewegte Bilder 


Im letzen Abschnitt haben wir die verschiedenen Techniken kennen- 
gelernt, in der niedrig aufgelösten Graphik mit der Supergraphik 
schöne Bilder herzustellen. Hier wird Ihnen nun anhand eines kleinen 
Beispielprogrammes gezeigt, wie Sie bewegte Graphiken leicht reali- 
sieren können. In unserem Fall wollen wir demonstrieren, wie in 
BASIC sogenannte Shapes, also softwaremäßig dargestellte kleinere 
Graphiken in der Graphik realisiert werden können. In Assembler 
geht das natürlich alles viel schneller, weshalb die Supergraphik auch 
dafür (etwas weiter unten) Befehle zur Verfügung stellt. Hier soll aber 
der Spezialfall einer bewegten Graphik mit allen Commodore- 
Graphikzeichen demonstriert werden. Schauen Sie sich doch einmal 
das folgende Programm an: 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 


REM ah e o o 
REM ** ** 1/7 In Sr 
REM ** SPRINGTEUFEL ** — 
REM ir r%* Ö$ N mM 
REM aka 

REM 

PRINT CHR$C147) :REM BILDSCHIRM LOESCHEN 

REM 

REM 

REM DEFINITIONEN AUS DATAS UEBERNEHMEN: 

REM 

DIM A(2,11) :REM DEFINIERE SPEICHERPLATZ 

FOR MN=O TO 2 

FOR MD=0 TO 11 

READ A(MN,MD) :REM DEFINITIONEN EINLESEN 

NEXT MD 

NEXT MN 

REM 

REM 

REM MAENNCHEN ZEICHNEN+BEWEGEN: 

REM 

XN=10 : YN=10 :REM KOORDINATEN INIT 

REM 

MN=2 : GOSUB 550 :REM LOESCHEN 

X=XN : Y=YN :REM NEUE KOORDINATEN UEBERNEHMEN 
MA=ABS(MA-1) :REM NUMMER WECHSELN 

MN=MA : GOSUB 550 :REM MAENNCHEN ZEICHNEN 

REM 

REM 

REM AUF EINGABE WARTEN: 

REM 

GET A$ : IF A$="" THEN 410 


XN=X = YN=Y :REM NEUE KOORDINATEN INIT 

IF ASCCA$)=29 THEN XN=XN+1 : IF XN>35 THEN XN=O 
IF ASCCA$)=157 THEN XN=XN-1 : IF XN<O THEN XN=35 
IF ASCCA$)=17 THEN YN=YN+1 : IF YN>20 THEN YN=O 
IF ASCCA$)=145 THEN YN=YN-1 : IF YN<O THEN YN=20 
REM 

GOTO 330 

REM 

REM 

REM FIGUR ZEICHNEN: 

REM UEBERGABE: MN: MAENNCHEN -NR 


REM X,Y: MAENNCHEN-KOORD. 

REM 

YK=Y 

FOR MD=0 TO 11 STEP 3 

POS= X,YK 

PRINT CHRSCACMN MD) );CHRSCACMN ,MD+1));CHRSCACMN,MD+2)); 
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590 YK=YK+1 

600 NEXT MD 

610 RETURN 

620 REM 

630 REM 

640 REM MAENNCHEN 1: 
650 REM 

660 DATA 32,215, 32 
670 DATA 205,221,206 
680 DATA 32, 84, 32 
690 DATA 206,183,205 
700 REM 

710 REM 

720 REM MAENNCHEN 2: 
730 REM 

740 DATA 32, 32, 32 
750 DATA 32,215, 32 
760 DATA 206, 84,205 
770 DATA 170,183, 180 
780 REM 

790 REM 

800 REM LOESCHEN: 
810 REM 

820 DATA 32, 32, 32 
830 DATA 32, 32, 32 
840 DATA 32, 32, 32 
850 DATA 32, 32, 32 


Das Prinzip ist das folgende: In einem Array (vorher aus DATA- 
Zeilen gelesen (Zeilen 220-260)) werden die Definitionen für ein 3x4- 
Zeichenfeld aus normalen Text-Zeichen bereitgehalten. Was in diesen 
Definitionen nun festgehalten wird (in diesem Fall die Definitionen 
für zwei Männchen und ein Leerfeld) ist vollkommen egal. D.h. das 
übrige Programm braucht in keiner Weise geändert werden, wenn Sie 
hingehen und die in den DATAs definierten Figuren ändern. 


Es existiert nun in den Zeilen 550-610 eine Routine, die stets dann 
vom Hauptprogramm als Unterroutine aufgerufen werden kann, wenn 
ein solches 3x4-Feld (wir nennen es in Zukunft immer Shape) auf den 
Bildschirm gezeichnet werden soll. Dieser Routine werden lediglich 
die Nummer der betreffenden Shape-Definition und die Koordinaten, 
an denen diese Definition gezeichnet werden soll, angegeben. Die 
Unterroutine wird dann zeilenweise dieses Shape ausgeben und durch 
RETURN (Zeile 610) wieder ins Hauptprogramm zurückspringen. 
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Dieses Hauptprogramm kann nun auf mannigfaltige Art und Weise 
gestaltet sein. In diesem Beispiel wird ein Männchen durch Betätigung 
der Cursor-Tasten auf dem Bildschirm hin- und herbewegt. Dabei 
bewegt es Arme und Beine. Realisiert wurden diese Effekte durch 
eine in Zeile 410 programmierte Tastaturabfrage. Wurde eine Taste 
betätigt, so werden entsprechend den Cursortasten die aktuellen Koor- 
dinaten des Shapes geändert (rechts, links, hoch und hinunter). Dies 
geschieht in den Zeilen 430-460. 


Wurden die neuen Koordinaten berechnet, springt das Programm 
wieder zur Bewegungsroutine, die zunächst einmal das Männchen an 
der alten Position löscht. Dieses Löschen geschieht durch einfaches 
Überschreiben des Shapes mit dem Leershape (Zeile 330). Alsdann 
kann das neue Shape an den neuen Koordinaten neu gezeichnet 
werden. Beachten Sie bitte, daß zum Zeichnen eines Shapes stets die 
Unterroutine ab Zeile 550 verwendet wird. 


Dabei wird stets abwechselnd Männchen 1 und 2 (bzw. 0 und |) ge- 
zeichnet. Der Nummernwechsel geschieht in Zeile 350. Die Formel in 
dieser Zeile sollten Sie bereits kennen, wenn Sie das gesamte PLOT- 
Kapitel bis hierhin gelesen haben. 


Sie erkennen also das Prinzip der bewegten Graphiken: Die einzelnen 
Graphiken bewegen sich nicht, es werden vielmehr schnell hinterein- 
ander viele unbewegliche, sich geringfügig unterscheidende Bilder 
gezeigt, die dadurch eine Bewegung simulieren. Wir werden noch des 
öfteren in diesem Buch auf dieses Prinzip stoßen, das schließlich so- 
zusagen das "Ur"prinzip vieler Spiele darstellt. 


2.5.4 Graphikfenster durch Raster-Interrupt 


Was Ihren Commodore ebenfalls auszeichnet, ist die geniale IRQ- 
Steuerung des Betriebssystems. Alle 1/60 Sekunde wird der Prozessor 
(6510) gestoppt und eine sogenannte IRQ-Routine durchgeführt, um 
danach wieder an der gleichen Stelle des eigentlichen Programms 
fortzufahren (dies geschieht natürlich auf der Maschinensprache- 
ebene). Normalerweise dient diese IRQ-Routine z.B. zur Abfrage der 
Tastatur und Speicherung eventuell gedrückter Tasten (so ist es Ihnen 
möglich, während Ihres Programmes Engaben bis zu 10 Tastendrücken 
vorzunehmen, die sich Ihr Rechner merkt und später bearbeitet). Nun 
ist es möglich, eine eigene IRQ-Routine zu schreiben. In der Super- 
graphik wurde dies verwirklicht: 
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So werden die Sprites in der IRQ-Routine bewegt und die Ton- 
steuerung vorgenommen, während Ihr eigenes Programm weiterläuft. 
Mithilfe des Raster-IRQs werden gemischte Text- und Graphik- 
anzeige und 16 Sprites auf dem Bildschirm erzeugt. 


 fpgrmememeinheeieinuntetenehinn rien 
RL 


Dies ist das Text- Fenster 





Was uns in diesem Zusammenhang interessiert, ist die gleichzeitige 
Darstellung von Text und Graphik auf einem Bildschirm. Wie dies 
genau in Assembler realisiert wird, soll uns hier nicht interessieren. 
Falls Sie es doch einmal wissen möchten, so lesen Sie doch einfach in 
den späteren Kapiteln nach. Dort wird es in aller Ausführlichkeit mit 
anschaulichen Beispielprogrammen (auch für nicht-Assembler-Pro- 
grammierer) demonstriert. 


Wie können wir nun solche Dinge aber mit unserer Supergraphik rea- 
lisieren? Nun, dafür ist der bereits altbekannte, aber nie genau er- 
klärte Befehl GMODE zuständig. Dieser Befehl sei nun hier etwas ge- 
nauer unter die Lupe genommen. Damit Sie sich aber genau vorstellen 
können, was unter "gleichzeitiger Text- und Graphikanzeige" zu ver- 
stehen ist, testen Sie doch erst einmal folgendes Programm (vergessen 
Sie nicht, vorher die Supergraphik einzuladen): 
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100 REM KR 


110 REM ** ur 
120 REM ** RASTER-SPIELE ** 
130 REM ** wr 
140 REM RR 
150 REM 

160 REM LGR-KURVE ZEICHNEN: 
170 REM 


180 PRINT CHRS(147); 

190 FOR X=0 TO 79 

200 PLOT ‚X,SAR(X*40) 

210 NEXT X 

220 REM 

230 REM 

240 REM HGR-KURVE ZEICHNEN: 
250 REM 

260 GMODE 0,1 : GCLEAR : SCOL= 0,0 
270 FOR X=0 TO 319 

280 PLOT ‚X,90*SINCX/50)+100 
290 NEXT X 

300 REM 

310 REM 

320 REM FENSTER ROLLEN: 

330 REM 

340 FOR X=1 TO 205 STEP 8 
350 GMODE 0,7,X+48,X 

360 FOR T=1 TO 10 : NEXT T :REM WARTESCHLEIFE 
370 NEXT X 

380 GOTO 340 


Nach dem Zeichnen zweier Kurven - eine in LGR und eine in HGR 
- läuft ein Graphikfenster über den Bildschirm. Dabei taucht in Zeile 
350 eine merkwürdige Form des GMODE-Befehles auf, die wir unter 
anderem im folgenden erklären wollen. Doch stellen wir GMODE 
doch erst einmal offiziell vor: 
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GMODE (s)(‚m)(,or,ur) 
Beispiel: GMODE 0,1 
oder: GMODE 2,7,30,70 
Parameter: s: Seitenmodus (s.u.) 
m:  Graphikmodus (s.u.) 
or: oberer Textrand bei m=7/8 
ur: unterer Textrand bei m=7/8 
Funktion: bestimmen des Graphikmodus 


Schon oft haben Sie sie gebraucht, um von Text auf Graphik umzu- 
schalten und umgekehrt. Nun lernen Sie sie richtig kennen: 


Die Graphikmoduswahl 


zu S! 


Supergraphik 64 besitzt die Möglichkeit, mit 2 unabhängigen Gra- 
phikseiten zu arbeiten, d.h. Sie können gleichzeitig neben dem LGR- 
Bild 2 hochauflösende (bzw. Multicolor) Bilder erstellen und anzeigen 
(ein Graphikbild nennt man Seite, da man es wie eine Buchseite 
aufschlagen oder zuklappen kann). Normalerweise bearbeitet man die 
Seite, die gerade angezeigt wird. Es ist jedoch möglich z.B. die 2. Seite 
mit denselben Befehlen zu erstellen, während die erste sichtbar ist. 
Um diese Möglichkeit auszuwählen, geben Sie s (für Seite) an: 


Graphikseite 1 wird angezeigt und befehligt 
Graphikseite 1 wird angezeigt, Seite 2 aber befehligt 
: Graphikseite 2 wird angezeigt und befehligt 
: Graphikseite 2 wird angezeigt, Seite 1 aber befehligt 


nu u 
uno 


Sie können also Kino spielen: 


Während Sie lange Rechnungen und Zeichnungen auf der unsichtbaren 
Seite ausführen, wird die andere betrachtet, dann schalten Sie um und 
bearbeiten nun die vorher sichtbare Seite. 
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100 REM Krkknnnnnneeeaeenne 

110 REM ** “r 

120 REM ** SEITENWECHSEL ** 

130 REM ** Ar 

140 REM Re 

150 REM 

160 GMODE 0,1 : GCLEAR :REM SEITE 1 ANZEIGEN + LOESCHEN 
170 ScoL= 0,0 

180 GMODE 2 ® GCLEAR :REM SEITE 2 ANZEIGEN + BEFEHLIGEN 
190 SCOL= 0,0 

200 REM 

210 REM KURVE 2 IN SEITE 2: 

220 FOR X=0 TO 319 

230 PLOT ‚X,(X-160)*2/130 


240 NEXT X 

250 REM 

260 REM KURVE 1 IN SEITE 1: 

270 GMOOE 3 :REM SEITE 1 NUR BEFEHLIGEN 


280 FOR X=0 TO 319 

290 PLOT ‚X,EXPC5*SINCX/40))+50 
300 NEXT X 

310 REM 

320 REM SEITEN WECHSELN: 

330 FOR X=1 TO 20 


340 GMODE 0 :REM SEITE 1 EIN 
350 FOR T=1 TO 200 : NEXT T 

360 GMODE 2 :REM SEITE 2 EIN 
370 FOR T=1 TO 200 : NEXT T 

380 NEXT X 


Zunächst wird hier Seite I eingeschaltet und befehligt (Zeile 160), um 
gelöscht zu werden. Das gleiche geschieht mit Seite 2 (Zeile 180). In 
diese zweite Seite wird nun sichtbar eine Kurve eingezeichnet (Zeilen 
220-240). Ist dies geschehen, so schaltet Zeile 270 auf die erste Seite 
um. Dabei bleibt aber die zweite Seite sichtbar, d.h. die Zeichenbe- 
fehle gelten von nun ab für die erste Seite. Auf diese Weise wird nun 
in den Zeilen 280-300 für den Beobachter unsichtbar eine andere 
Kurve in Seite 1 gezeichnet. Während dieser Zeit scheint das Pro- 
gramm für den Beobachter nichts zu tun. 


Erst jetzt (Zeile 340) wird die erste Seite auch angezeigt. Durch 
Warteschleifen getrennt wird nun ständig gewechselt. 
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Sie sehen also, in welcher Weise man mit zwei Graphikseiten arbeiten 
kann. Etwas weiter unten werden wir noch einen Befehl kennenler- 
nen, mit dem wir diese beiden Graphikseiten noch logisch verknüpfen 
können. Hierdurch bieten sich Ihnen eine ganze Reihe von Mögklich- 
keiten, die wir dort ebenfalls anschneiden werden. 


zu m! 


Mit m wählen Sie die Betriebsart Ihrer Graphikerweiterung. Für m 
sind Werte von 0-8 erlaubt. Für jeden Wert existiert eine bestimmte 
Graphikkonfiguration: 


m=0: Textmodus bzw. LGR werden angezeigt und auch befehligt 

m=|!: HGR wird angezeigt und befehligt 

m=2: MC wird angezeigt und befehligt 

m=3: HGR wird angezeigt, LGR jedoch gefehligt, d.h. die Gra- 
phikbefehle beziehen sich auf die unsichtbare Low-Graphik 

m=4: MC wird angezeigt, jedoch LGR befehligt 

m=S5: LGR und normaler Text werden angezeigt, die Befehle gelten 
aber für die hochauflösende Graphik 

m=6: LGR bzw. Text werden angezeigt, MC jedoch befehligt 

m=T: Gemischte Text- und Graphikanzeige, LGR wird befehligt. 


Im Anschluß wird die Angabe der Fensterposition verlangt 
m=8: Gemischte Text- und Graphikanzeige, HGR wird befehligt; 
Angabe der Fensterposition 


Sie können, während Sie z.B. Ihren Text oder Ihr LGR-Bild auf dem 
Bildschirm anzeigen, eine hochauflösende Graphikseite befehligen, 
d.h. alle Befehle gelten für HGR (Modus 5). Das ganze funktioniert 
ähnlich, wie bei der Behandlung der beiden Graphikseiten (s. obiges 
Programm). 
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Eine Anmerkung zu m=7 /8: 


Erinnern Sie sich an das erste Programm dieses Abschnittes? Dort 
wurde der Modus m=7 angewandt. Diese beiden Modi eröffnen Ihnen 
eine völlig neue Dimension: Text und Graphik werden gleichzeitig auf 
dem Bildschirm dargestellt. Sie haben die Möglichkeit, durch die An- 
gabe zweier weiterer Parameter die Ober- und Unterkante des Text- 
fensters anzugeben. Die entsprechenden Befehle lauten dann: 


GMODE 0,7,100,150 oder 
GMODE 0,8,150,100 


Im ersten Fall gelten alle Befehle für LGR, ein kleines Textfenster 
unterbricht das eigentliche Graphikfenster. 

Im zweiten Fall gelten alle Befehle für HGR, da aber der erste an- 
schließende Wert größer ist als der zweite, erscheint nun ein kleines 
Graphikfenster mitten im Text. Einschränkend sind zwei Dinge zu 
bemerken: 


- Wird der Fensterrand mitten in eine Textzeile verlegt, so erscheinen 
ab und zu merkwürdige Zeichen, die auf die hardwaremäßige Be- 
arbeitung des Bildes durch den VIC zurückzuführen sind. Gleich- 
falls werden Sprites nicht abgeschnitten, sondern "zerstückelt". 


- Gleichzeitige Text- und Graphikanzeige schließen die Anzeige von 
16 Sprites aus und umgekehrt. Jeweils der zuletzt gewählte Modus 
hat Priorität. 


Ich brauche Ihnen nicht zu sagen, welche Möglichkeiten Ihnen mit 
dem GMODE-Befehl offenstehen. Sie können mit den verschiedenen 
Graphikarten je nach Belieben wie ein Profi jonglieren. Noch etwas 
zur Syntax: Sie können den Befehl auf mehrerlei Art benutzen, um 
Ihnen die Arbeit zu erleichtern. 


- GMODE s 

- GMODE ‚m 

- GMODE s,m 

- GMODE ‚m,or,ur (nur bei m=7/8) 
- GMODE s,m,or,ur (nur bei m=7/8) 
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Noch eine kleine Anmerkung: beim Drücken der beiden Tasten 
(run/stop) und (restore) wird grundsätzlich der Befehl GMODE ‚0 
ausgeführt, so daß Sie stets wieder in den Textmodus zurückgelangen. 
Desgleichen passiert, wenn irgendwann einmal ein Fehler auftritt, 
damit Sie immer auf dem Laufenden sind. Wird ein Programm ord- 
nungsgemäß beendet (durch END oder durch Erreichen des 
Programmendes), so wird ebenfalls zurückgeschaltet. Nichts derglei- 
chen geschieht, wenn sie Ihr Programm durch den Befehl STOP oder 
nur durch die Taste (run/stop) unterbrechen. 


Aber probieren geht über studieren! Versuchen Sie es doch einmal - 
Sie werden staunen! 


100 REM es 


110 REM ** Kr 

120 REM ** TIEF VERSTECKT, HALB VERDECKT, ... ** 

130 REM ** “r 

140 REM Reken 

150 REM 

160 GMODE 0,5 : GCLEAR :REM TEXT EIN, GRAPHIK BEFEHLIGEN 
170 PRINT CHR$C147) :REM TEXTBILDSCHIRM LOESCHEN 


180 FOR X=1 TO 1000 
190 PLOT ‚320*RND(1),200*RNDC1) :REM ZUFALLSPUNKTE 


200 PRINT CHR$C19);X :REM LAUFENDER ZAEHLER 
210 NEXT X 
220 GMODE ‚1 :REM GRAPHIK EINSCHALTEN 


230 WAIT 198,255 : LIST :REM AUF TASTE WARTEN + LIST 


Da wir gerade dabei sind, wollen wir uns auch noch gleich einem 
anderen Befehl widmen, den wir ebenfalls ständig verwenden, ohne 
ihn vorgestellt zu haben. Das wollen wir hier gleich nachholen: 


Supergraphik_für Einsteiger 55 





GCLEAR 
Befehl: GCLEAR (m)(‚x1,yl TO x2,y2) 
Beispiel: GCLEAR 


GCLEAR 255 
GCLEAR 4,30,40 TO 50,70 
Parameter: m : Löschmaske 
xl: x-Koordinate Fenster oben links 
yl: y-Koordinate Fenster oben links 
x2: x-Koordinate Fenster unten rechts 
y2: y-Koordinate Fenster unten rechts 
Funktion: Löschen des Graphikbildschirms 
bzw. eines Bildschirmfensters 


Dieser Befehl dürfte Ihnen nun schon - ohne Parameter jedenfalls - 
vertraut vorkommen. Er löscht, wie Sie vielleicht schon gemerkt 
haben, die aktuelle HGR- oder MC-Bildseite. Gleichzeitig erhalten 
alle Punkte die aktuelle Punktcolor (s. PCOL=), es wird also ein 
SCOL=-Befehl ausgeführt (s.u.). In LGR verwenden Sie bitte PRINT 
CHR$(147) zum Löschen. Auch im LGR-Betrieb wird durch diesen 
Befehl die Graphikseite gelöscht! 


Dieser Befehl sollte vor jeder neuen Bearbeitung einer Graphikseite 
gegeben werden. 


Der erste Parameter des GCLEAR-Befehls, den Sie bei Bedarf zusätz- 
lich angeben können, bestimmt die sogenannte Lösch-Maske, d.h. der 
Wert des Bytes, der beim Löschen des Graphikbildes in jedes Gra- 
phikspeicherbyte geladen wird. Wenn Sie den hier dezimal angegebe- 
nen Wert binär umrechnen, so erhalten Sie ein Muster von Einsen und 
Nullen, das gesetzten bzw. nicht gesetzten Punkten entspricht. In 
Multicolor bestimmt dieses Byte gleichzeitig ein Farbmuster, mit dem 
gelöscht wird. 


Zusätzlich zu diesem einen Parameter können Sie noch die Eck- 
koordinaten (x1,yl/x2,y2) eines Graphikfensters festlegen. Haben Sie 
dies getan, so wird nur dieses Fenster mit der Lösch-Maske (falls an- 
gegeben) gefüllt. Wie Sie diesen Fensterbefehl anzuwenden haben, er- 
fahren Sie weiter unten beim GCOMB-Befehl. 
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Alles in allem haben Sie die folgenden Syntax- Möglichkeiten: 


GCLEAR 

GCLEAR m 

GCLEAR ‚xl,yl TO x2,y2 
GCLEAR m,xI,yl TO x2,y2 
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2.5.5 Super-Snake - unser erstes Spiel 


Spiele sind oft etwas faszinierendes: Bunte Bälle flitzen über den 
Bildschirm, Flugzeuge, Raketen oder Männchen mühen sich ab, zu 
landen, zu treffen oder Treppen zu erklimmen. Es macht oft Spaß, 
sich stundenlang mit solchen Produkten der Phantasie irgendeines Pro- 
grammierers zu beschäftigen. Doch Spiele selbst zu programmieren ist 
gar nicht so schwer, wie man vielleicht denkt. Man muß nur wissen, 
wie es ungefähr geht und schon wird man selbst zum "Spieleautor". 
Das Schöne dabei ist, man kann selbst bestimmen, wie das eigene Spiel 
aussehen soll. Wenn es irgendwann einmal langweilig wird, ändert man 
selbst etwas an seinem Programm und schon kommt vielleicht ein ganz 
neuer Witz ins Spiel. 


Nun, wir werden hier bestimmt keine Super-Spiele vorstellen, mit 
denen man sich durch 123 Ebenen in atemberaubender Geschwindig- 
keit schlagen muß. Solche Spiele sind meist in Assembler geschrieben, 
und ein Buch würde nicht ausreichen, ein vollständiges Listing abzu- 
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drucken. Die Entwicklungszeit solcher Spiele beträgt manchmal 
Monate intensiver Arbeit. 


Aber man kann auch mit kleinen Mitteln interessante Effekte und 
Spielideen entwickeln. Das einzige Handwerkszeug hierzu ist Ihr Com- 
puter, die Supergraphik und nicht zuletzt Ihre Phantasie. 


Mit dem folgenden - wirklich kleinen - Spiel wollen wir natürlich - 
wie immer - weiter dazulernen. Doch schauen Sie sich das Programm 
doch erst einmal an: 


100 REM aka 

110 REM ** “* 

120 REM ** SUPER-SNAKE ** 

130 REM ** “* 

140 REM alla 

150 REM 

160 GMODE 0,1 : GCLEAR 

170 COLOR= 2,10 :REM RAHMEN DUNKEL-, HINTERGRUND HELLROT 
180 G=4 :REM GESCHWINDIGKEIT 

190 REM 

200 X=-G : Y=0 :REM STARTRICHTUNG: LINKS 

210 A=160 : B=100 :REM STARTKOORDINATEN 

220 GET A$ :REM TASTE HOLEN 

230 IF A$="]" THENX= O0 : Y=-G :REM HOCH 

240 IF AS="M" THENX= 0 : Y= G :REM RUNTER 

250 IF A$="J" THENX=-G : Y= 0 :REM LINKS 

260 IF A$="K" THENX= G : Y= 0 :REM RECHTS 

270 A=A+X : B=B+Y :REM WEITERBEWEGEN 

280 IF A<O OR A>319 OR B<O OR B>199 THEN 400 

290 PLOT T TEST,O,A,B :REM TESTEN, OB BEREITS PUNKT GESETZT + PUNKT SETZ 


EN 

300 IF TEST <> O THEN 400 

310 GOTO 220 :REM WEITER 
320 REM 

330 REM 

340 REM WeRske 
350 REM ** wer 
360 REM ** TREFFERROUTINE ** 
370 REM ** wr 
380 REM kakeskakkkkkkkke 
390 REM 


400 FOR C=1 TO 10 

410 FOR D=0 TO 15 

420 COLOR= D,1 :REM RAHMEN BLINKEN LASSEN 
430 NEXT D 

440 NEXT C 

450 A=INT(RND(1)*319/G)*G 
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460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 


B=INTCRND (1)*199/G)*G 
COLOR= 2,10 
2=2+41 :REM ZAEHLER 


IF Z=12 THEN 590 

GOTO 220 

REM 

REM 

REM Wk 

REM ** Kr 

REM ** ENDE ** 

REM ** Kr 

REM rn 

REM 

GMODE 0,0 :REM GRAPHIK AUS 

PRINT CHR$C147) :REM BILDSCHIRM LOESCHEN 
PoS= 12,10 :REM CURSOR POSITIONIEREN 
PRINT "KEINE PANIK II" 

POKE 198,0 :REM TASTEN LOESCHEN 
WAIT 198,255 :REM AUF TASTE WARTEN 
COLOR= 0,0 :REM FARBEN RUECKSETZEN 





Das vorstehende Spiel funktioniert folgendermaßen: Auf dem Gra- 
phikbildschirm bewegt sich ununterbrochen eine immer länger 
werdende Schlange. Sie haben nun die Aufgabe, mittels der Tasten 
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I für hoch 

M für runter 
J für links 
K für rechts 


entsprechend der Tastenanordnung: 


auf der Schreibmaschinentastatur die Bewegungsrichtung dieser 
Schlange so zu steuern, daß sie sich weder aus dem Bildschirmfenster 
hinaus bewegt, noch gegen einen Teil Ihres Schwanzes stößt. In beiden 
Fällen bekommen Sie Punktabzug. Anschließend erscheint die 
Schlange wieder irgendwo auf dem Bildschirm. Bei 12 solchen Karam- 
bolagen ist das Spiel zu Ende. Sie haben natürlich die Möglichkeit, das 
Spiel nach Ihren Vorstellungen auszufeilen und zu verändern. Sie 
können es z.B. für zwei gegeneinander spielende Spieler umschreiben, 
Punkte zählen, Zeit messen, statt der Tastatursteuerung die Joysticks 
zu Hilfe nehmen und so weiter und so fort. Das Spiel ist extra so 
eingerichtet, daß Sie Änderungen gut und bequem vornehmen können. 


Die Geschwindigkeit der Schlange beispielsweise können Sie in Zeile 
180 leicht verändern (Die Variable G enthält die Geschwindigkeit = 
Schrittweite pro Durchlauf). In den Zeilen 230-260 werden die vier 
Tasten geprüft und dementsprechend die Richtung geändert. Zeile 270 
dann errechnet die neuen Koordinaten. Die Speicher X und Y be- 
stimmen jeweils die Anzahl der Schritte pro Durchlauf in x- bzw. y- 
Richtung. A und B enthalten die aktuellen Koordinaten des zu zeich- 
nenden Punktes, die in Zeile 280 daraufhin geprüft werden, ob sie 
noch innerhalb des Graphikfensters liegen. 


Dieses Beispiel enthält gleich zwei bisher noch unbekannte Befehle. 
Zum einen taucht in dem vorgestellten Programm mehrere Male der 
Befehl COLOR= auf. Mit ihm können Sie Rahmen und Hintergrund- 
farbe des aktuellen Bildschirmfensters festlegen: 
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COLOR= 
Befehl: COLOR= r,h 
Beispiel: COLOR= 2,6 
Parameter: r: Rahmenfarbe 


h:  Hintergrundfarbe 
Funktion: Festlegen der Rahmen- und Hintergrundfarbe 


Mit h wird die Hintergrundfarbe des jeweiligen Graphikfensters fest- 
gelegt. Sie kann für LGR (=Text), Seite | und Seite 2 (HGR/MC) je- 
weils verschiedene Werte annehmen. Beim Umschalten auf einen 
anderen Graphikmodus wird Sie also mit berücksichtigt. Die 
Rahmenfarbe r bleibt stets erhalten. Wir werden auf diesen Befehl 
auch im Kapitel "Farbe" noch einmal zurkückkommen. 


Besonders interessant für uns ist neben dem bereits Gesagten die Zeile 
290. Hier taucht wiederum eine Besonderheit des PLOT-Befehls auf, 
die wir bisher noch nicht kennengelernt haben. Sie erinnern sich viel- 
leicht an die erweiterte Syntax der Zeichenbefehle. Dort hatten wir 
uns bisher nur mit dem B-Zusatz beschäftigt (z.B. PLOT B m...). Hier 
haben wir es nun mit einem weiteren Zusatz zu tun: 


T var - Punkte zählen: 


Hier ist eine weitere Außergewöhnlichkeit Ihrer Graphikerweiterung: 
Der Test-Befehl. Er kann zusätzlich zu allen anderen Syntaxerweite- 
rungen hinzugefügt werden, wobei allerdings die Reihenfolge beachtet 
werden muß, doch darauf kommen wir noch zu sprechen. 


Mit diesem Befehl können Sie die bereits gesetzten Punkte zählen, die 
von Ihrer Figur angesprochen werden; sei es, Sie löschen, setzen, in- 
vertieren, punktieren (wobei die Punktierung ein Wechsel von Löschen 
und Setzen ist, also voll mitgezählt wird) oder bewegen nur den Gra- 
phikcursor. Letzteres ist besonders interessant, da Sie so lediglich 
zählen, ohne auf dem Bildschirm etwas zu verändern. 


Die sich beim Zählen ergebende Zahl steht dann als Rückmeldung in 
der angegebenen Variable (Zahlen über 32768 sind ähnlich der 
FRE(0)-Meldung negativ). Anmerkung: In Zusammenhang mit DRAW 
z.B. könnten Sie ein mit DRAW gezeichnetes Objekt, das druch stetes 
Löschen und verschoben wieder Setzen über den Bildschirm bewegt 
wird, auf Kollisionen mit Teilen des Bildschirms (ähnlich Sprites) 
überprüfen. 
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Wird der T-Zusatz gemeinsam mit dem PLOT-Befehl verwandt, wie 
dies im vorstehenden Programm der Fall ist, so dient er einfach dazu 
zu testen, ob sich an der angesprochenden Stelle bereits ein Punkt be- 
findet. In unserer Anwendung wird dann gleichzeitig in einem Befehl 
genau an diese Stelle dann (also nachdem getestet wurde) ein Punkt 
gesetzt, da wir im Modus O zeichnen. In der Variable TEST (der 
Name ist natürlich frei wählbar) steht dann entweder eine "0", wenn 
an der PLOT-Stelle vorher kein Punkt stand oder eine "]", wenn an 
der Stelle tatsächlich bereits früher schon ein Punkt gesetzt war. 


Das folgende Programm sollte Ihnen den Zusammenhang noch etwas 
verdeutlichen: 


100 GMODE 0,8,161,250 : GCLEAR : SCOL= 0,0 


120 POS= 0,20 

130 GOSUB 180 :REM TESTEN, OB PUNKT GESETZT 

140 PLOT ‚100,100 :REM PUNKT SETZEN 

150 GOSUB 180 :REM TESTEN, OB PUNKT GESETZT 

160 END 

170 REM 

180 PLOT T RUECK,4,100,100 :REM TESTEN OHNE ZEICHNEN 


190 IF RUECK=1 THEN PRINT "PUNKT IST GESETZT!" : GOTO 210 
200 PRINT "PUNKT IST GELOESCHT!" 

210 POKE 198,0 : WAIT 198,255 :REM AUF TASTE WARTEN 

220 RETURN 


Wie gesagt, können die zwei bisherigen Zusätze (insgesamt sind es 
drei, den letzten werden wir im Farbkapitel kennenlernen) sowohl 
einzeln, als auch im Verbund auftauchen. Hier sollen Ihnen anhand 
des PLOT-Befehls zum Zeichnen eines Punktes die bisherigen Mög- 
lichkeiten der Syntaxerweiterung dargelegt werden: 


PLOT (zm),x,y 
PLOT Bm, (zm),x,y 
PLOT T var, (zm),x,y 


PLOT Bm, T var, (zm),x,y 


Die Leerzeichen zwischen den einzelnen Zeichen stehen hier natürlich 
nur der Übersichtlichkeit wegen und können weggelassen werden. zm 
steht in Klammern, da bei Weglassen automatisch der Wert 0 einge- 
setzt wird. 
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2.6 Linien, der gemeinsame Nenner der Natur 


So wie wir vorhin den Punkt als Ursprung aller Graphik erkannt 
haben, so werden wir einsehen müssen, daß in der praktischen Arbeit 
kaum noch mit einzelnen Punkten gearbeitet wird. Hier stellt die Linie 
das Hauptmotiv dar, aus dem alle anderen Figuren konstruiert werden. 
Der Punkt wird dann nur noch zu einem Sonderfall der Linie degra- 
diert, einer Linie mit gleichem Start- wie Endpunkt. Der Punkt als 
der Baustein der Linie verschwindet völlig aus dem Vorstellungsbe- 
reich der Computergraphiker. Auch Kreise, Ellipsen oder andere 
scheinbar runde Gebilde werden durch eine Vielzahl von Linien an- 
genähert. Hierdurch werden sie viel leichter berechenbar. Eine Fläche 
wird dann zu einem allgemeinen Polygon, also einem allgemeinen 
Vieleck. Diese Vereinfachung erlangt in allen Bereichen der 
Computergraphik zentrale Bedeutung. Die Linie wird quasi zum 
gemeinsamen Nenner der Graphik. 


Mit der immensen Wichtigkeit des graphischen Elements Linie, steigt 
auch die Wichtigkeit einer optimalen, schnellen und komfortablen 
Liniendarstellung auf dem Bildschirm oder anderen Ausgabegeräten. 
Aus diesem Grunde wurde der Supergraphik auch eine besonders 
schnelle Linienberechnung mitgegeben. Wenn Sie zufällig im Besitz 
einer anderen Graphik- oder BASIC-Erweiterung sind, so scheuen Sie 
sich nicht, einmal einen Geschwindigkeitsvergleich anzustellen. Sie 
werden erstaunt sein, wie schnell der Supergraphikbefehl trotz allen 
Komforts ist. 
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2.6.1 PLOT... TO ... 


TO 


PLOT ... Fr 


Befehl: PLOT zm,xl,yl TO x2,y2 (TO x3,y3 TO ...) 
Beispiel: PLOT 0,100,199 TO 0,20 
Parameter: zm: Zeichenmodus 


xl: x-Startkoordinate 
yl: y-Startkoordinate 
x2: x-Zielkoordinate 
y2: y-Zielkoordinate 


Funktion: Setzen (Loeschen etc.) einer oder mehrerer Linien 


Da ist er nun, der Befehl, der uns eine ganz neue Welt eröffnet. Das 
langsame Herumschleichen mit dem einfachen PLOT-Befehl hat nun 
ein Ende. Nicht nur die Geschwindigkeit wird zunehmen, die Mög- 
lichkeiten der Graphikgestaltung werden um ein Vielfaches erweitert. 
Doch schauen Sie sich erst einmal die Anwendung dieses Befehls an: 


120 
150 
160 
170 
180 
190 
200 
210 
220 


230 
240 
250 
260 
270 


& 


REM ** DAS HAUS VOM NIKOLAUS *%* 
REM 
GMODE 0,1 : GCLEAR : SCOL= 0,0 
A=5 : B=10 : C=15 
D= 2 : E=10 : F=18 
s=2 :REM GESCHWINDIGKEIT 
REM 
FOR X=0 TO 230/S 
PLOT X/8,A,F TO A,E TO B,D TO C,E TO A,E TO C,F TO A,F TO C,E TOC 


A=A+S : B=B+S : C=C+S 

D=D+4S : E=E+S : F=F+S 

PLOT ,A,F TO A,E TO B,D TO C,E TO A,E TO C,F TO A,F TOC,E TO C,F 
NEXT X 
WAIT 198,255 


In diesem Programm wird durch einen einzigen Befehl ein ganzes 
Haus gezeichnet (Zeile 250) bzw. gelöscht (Zeile 220). Dabei werden 


stets die 


Punkte mit den zwischen den trennenden "TO" stehenden 
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Koordinaten miteinander verbunden. Die Länge eines PLOT ... TO ...- 
Befehls ist dabei theoretisch beliebig und nur durch die Länge des 
Eingabepuffers bzw. einer BASIC-Zeile begrenzt. Sie können den Be- 
fehl - und das wird wohl am häufigsten vorkommen - natürlich auch 
nur zum Zeichnen einer einzigen Linie verwenden. Dabei beschränken 
Sie sich dann auf die Angabe zweier Koordinatenpaare und des Zei- 
chenmodus. 


Wie Sie sehen und wie auch unter PLOT bereits angekündigt, können 
Sie auch hier den Zeichenmodus angeben. Dabei bezieht sich alles 
unter PLOT Gesagte hier dann auf die gezeichnete, gelöschte oder in- 
vertierte Linie. Interessante Effekte lernen Sie dabei im nächsten 
Paragraphen kennen. Sinn bekommt in diesem Zusammenhang nun 
auch der Punktier-Modus zm=3, der beim einfachen PLOT-Befehl 
noch nicht vorgeführt werden konnte. Hier ein Beispiel: 





100 REM Wr 


110 REM ** FR 
120 REM ** ZEICHENMODI ** 
130 REM ** “x 
140 REM were 
150 REM 

160 GMODE 0,1 : GCLEAR : SCOL= 0,0 
170 FOR X=0 TO 160 

180 PLOT ‚0,0 TO X,199 
190 NEXT X 

200 REM 

210 FOR X=160 TO 319 

220 PLOT 3,0,0 TO X,199 
230 NEXT X 

240 REM 

250 FOR X=80 TO 240 

260 PLOT 2,0,0 TO X,199 
270 NEXT X 

280 WAIT 198,255 
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Vergessen Sie bitte nicht, daß die erweiterte Syntax auch auf diesen 
Befehl - wie auch auf jeden anderen der zukünftig vorgestellten Be- 
fehle - angewendet werden kann! So könnte z.B eine kleine Anwen- 
dung des B-Zusatzes aussehen: 


100 REM war 

110 REM ** vr 

120 REM ** DEMO ** 

130 REM ** wr 

140 REM wrhrhrhh 

150 REM 

160 GMODE 0,1 : GCLEAR : SCOL= 0,0 
170 FOR X=1 TO 200 

180 PLOT B X,,0,X-1 TO 319,x-1 
190 NEXT X 

200 FOR X=1 TO 5000 : NEXT X 
210 GCLEAR 

220 FOR X=1 TO 200 

230 PLOT B X,,X-1,0 TO 319,X-1 
240 NEXT X 

250 WAIT 198,255 





Der T-Zusatz, den wir ebenfalls unter PLOT bei unserem kleinen 
Super-Snake-Spiel durchgesprochen haben, erlangt beim Zeichnen von 
Linien eine erweiterte Bedeutung. Es wird nicht nicht getestet, ob die 
Linie einen bereits gezeichneten Punkt berührt, es werden vielmehr 
alle die Punkte gezählt, die die Linie überzeichnet. In der dem T-Zu- 
satz folgenden Variable (in unserem Super-Snake-Spiel TEST genannt) 
wird dann die Anzahl dieser Punkte zurückgegeben. 
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PLOT TO ... 


Befehl: PLOT zm, TO x2,y2 (TO x3,y3 TO ...) 

Beispiel: PLOT 2, TO 100,199 

Parameter: zm: Zeichenmodus 
x2: x-Zielkoordinate 
y2: y-Zielkoordinate 

Funktion: Setzen (Loeschen etc.) einer Linie vom Gra- 
phikcursor 





Sie sollten wissen, daß sich Ihre Supergraphik jeweils den zuletzt ge- 
zeichneten, gelöschten, invertierten, kurz jeden zuletzt angesprochenen 
Punkt als unsichtbaren Graphikcursor merkt. D.h. wenn Sie mit dem 
PLOT-Befehl einen Punkt oder eine Linie zeichnen, so wird dieser 
Punkt bzw. der letzte Punkt der Linie gespeichert. Es gibt nun Be- 
fehle, die von diesem Graphikcursor, also von diesem letzten Punkt 
Gebrauch machen. Einer dieser Befehle ist PLOT TO ... Bei diesem 
Kommando brauchen Sie neben dem Zeichenmodus lediglich eine 
weitere Koordinate anzugeben, um eine Linie von dem Punkt, an dem 
der unsichtbare Cursor steht, bis zu dem Punkt mit den von Ihnen 
festgelegten Koordinaten zu zeichnen. Selbstverständlich können Sie 
wie beim PLOT ... TO ...-Befehl soviele TO ... anhängen, wie es Ihnen 
beliebt. 


Eine Sache sollten Sie beachten: Wie Sie oben sehen, müssen Sie 
zwischen PLOT und TO den Zeichenmodus angeben. Dabei ist das 
Komma hinter dieser Zahl unbedingt notwendig. Also z.B.: PLOT 2, 
TO 100,20 


Der unsichtbare Graphikcursor gibt Ihnen mannigfaltige Mög- 
lichkeiten in die Hand. Zum einen können Sie Linienzüge mit PLOT 
TO ... weiterführen, wie wir das im nächsten Programm sehen werden. 
Zum anderen können Sie im Zeichenmodus 4 (s. PLOT) Punkte oder 
Linien (später auch Kreise etc.) zeichnen, ohne daß sich etwas auf 
dem Bildschirm verändert. Im Zeichenmodus 4 wird dann nur der 
Graphikcursor bewegt, denn die Koordinaten des letzten Punktes 
werden natürlich auch bei diesem Befehl gespeichert. 


Im nächsten Programm stellen wir Ihnen eine kleine Anwendung vor, 
die sich des Graphikcursors bedient: 
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100 REM RR 


110 REM ** er 

120 REM ** FUNKTIONSKISTE ** 

130 REM ** ** 

140 REM elle 

150 REM 

160 GMODE 0,1 : GCLEAR : SCOL= 0,0 

170 DEF FN FCX)= 5O*SINCLOGCX)*5)+50+S*5 :REM FUNKTION DEFINIEREN 
180 FOR S=21 TO 1 STEP -4 :REM STEP-RATE VERAENDERN 


190 PLOT 4,1,FN FC1) :REM GRAPHIKCURSOR FUER X=1 POSITIONIEREN 
200 FOR X=2 TO 319 STEP S 

210 PLOT O0, TO X,FN FCX) :REM LINIE ZEICHNEN 

220 NEXT X 

230 NEXT S 


240 WAIT 198,255 


Wenn Sie sich etwas in BASIC auskennen, dann wird Ihnen bekannt 
sein, daß in Zeile 170 eine Funktion definiert wird, die im späteren 
Verlauf des Programms jedesmal für den Ausdruck FN F(X) einge- 
setzt wird (Zeilen 190 und 210). Dabei wird stets der Wert in Klam- 
mern für das X in der Funktion eingesetzt. Selbstverständlich behalten 
alle anderen Variablen, die in der Funktion vorkommen (hier S) ihre 
Gültigkeit. 


In Zeile 190 wird als Startpunkt nur der Cursor bewegt. Dies ist not- 
wendig, damit die später vom Graphikcursor aus bewegte Linie (Zeile 
210) vom richtigen Punkt ausgeht. Wie Sie sehen, bestimmt die äußere 
der beiden FOR...NEXT-Schleifen den STEP-Wert der inneren. Beim 
ersten äußeren Schleifendurchlauf wird nur an jeder 21. Stelle ein 
Punkt gezeichnet. Trotzdem wird jeder berechnete Punkt der Kurve 
mit dem vorherigen verbunden, es entsteht also ein - wenn auch sehr 
zackiger - kontinuierlicher Verlauf. Daß PLOT TO auch nicht versagt, 
wenn die beiden zu verbindenden Punkte direkt nebeneinander liegen, 
zeigt dann der letzte Schleifendurchlauf mit S=1. 


Ersetzen Sie doch einmal Zeile 210 durch: 
210 PLOT B 23,0, TO X,FN F(X) :REM LINIE ZEICHNEN 
oder durch: 


210 PLOT BS ‚0, TO X,FN F(X) :REM LINIE ZEICHNEN 
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2.6.2 Kleine Spielereien 


Mit den folgenden Ausführungen wollen wir Ihnen demonstrieren, wie 
mannigfaltig die Möglichkeiten der Graphikgestaltung bereits in 
diesem Stadium sind. Vornehmlich der Linienbefehl wird hier eine 
Rolle spielen. Sie brauchen nicht unbedingt jedes Detail eines Pro- 
gramms zu verstehen, sollten jedoch überall einmal Änderungen vor- 
nehmen, um den resultierenden Effekt zu beobachten. Schon kleine 
Änderungen können das ganze Bild föllig verändern. Mit der Zeit be- 
kommen Sie sicher Übung (besonders, wenn Sie sich etwas in der 
Mathematik auskennen und wenn Sie unsere Ausführungen im PLOT- 
Kapitel beherzigen, die uns etwas über Streckung, Verschiebung etc. 
von Sinus-Funktionen sagten). Doch fangen wir gleich einmal an: 





100 REM Wr 


110 REM ** ** 
120 REM ** SPIELEREIEN ** 
130 REM ** * 
140 REM wre 
150 REM 

160 FOR ZM=0 TO 3 : IF ZM=1 THEN NEXT ZM 
170 REM 

180 REM wraar 
190 REM ** .. 
200 REM ** FIGUR 1 ** 
210 REM ** ** 
220 REM wre 
230 REM 


240 GMODE 0,1 : GCLEAR : SCOL= 1,7 : COLOR= 2,2 
250 FOR X=1 TO 319 STEP 4 
260 PLOT ZM,0,0 TO X,40*SIN(X/20)+100 


270 NEXT X 
280 GOSUB 680 
290 REM 


300 REM Kr 


310 REM ** “% 
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320 REM ** FIGUR 2 ** 


330 REM ** xx 
340 REM WR 
350 REM 

360 GCLEAR 


370 FOR X=1 TO 350 STEP 1 
380 A=50*SINCX/10)+160 
390 B=60*SIN(X/20)+100 
400 C=70*SIN(X/30)+160 
410 D=80*SINCX/40)+100 
420 PLOT ZM,A,B TO C,D 


430 NEXT X 

440 GOSUB 680 

450 REM 

460 REM Kirn 
470 REM ** *E 
480 REM ** FIGUR 3 ** 
490 REM ** x 
500 REM Wr 
510 REM 

520 GCLEAR 

530 FOR X=1 TO 319 STEP 4 
540 A=X 


550 B=60*SIN(X/60)+100 
560 C=40*SIN(X/25)+160 
570 D=20*SIN(X/30)+100 


580 PLOT ZM,A,B TO C,D 
590 NEXT X 

600 GOSUB 680 

610 REM 

620 NEXT ZM 

630 END 

640 REM 

650 REM 

660 REM ZEITSCHLEIFE: 
670 REM 


680 FOR T=1 TO 3000 
690 GET A$ : IF A$="" THEN NEXT T 
700 RETURN 
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Damit Sie vielleicht doch ein wenig mit den obigen Formeln anfangen 
können, hier einige Erläuterungen: 


In der ersten Figur wurde jeder Punkt einer Sinuskurve mit dem 
Punkt (0,0) verbunden. Sinuskurven haben wir bereits unter PLOT 
kennengelernt. 


Die zweite Figur setzt sich schon etwas komplizierter zusammen: 
Nehmen wir an, Sie zeichnen in ein normales Kartesisches Koordina- 
tensystem eine Sinuskurve. Normalerweise würden wir hierzu für 
jedes ganzzahlige x zwischen 0 und 319 einen y-Wert berechnen. Das 
tun wir auch. Wir sind aber nicht unbedingt gezwungen, diese x-Werte 
auch für die x-Koordinaten zu verwenden. Wenn wir nun die x- 
Koordinaten nicht (wie die x-Werte) von O bis 319 langsam aufsteigen 
lassen, sondern ebenfalls als Funktionswerte einer Sinuskurve 
(abhängig von den x-Werten) auffassen, so erhalten wir alles andere, 
nur keine Sinuskurve mehr. Diese Kurven heißen - wir haben sie be- 
reits kennengelernt - Lissajouskurven. Wenn wir nun jeden Punkt 
einer Lissajouskurven mit einem korrespondierenden Punkt einer völ- 
lig anderen verbinden, so erhalten wir Figuren wie Figur 2. 


In Figur 3 wurde nun jeder Punkt einer Sinuskurve mit einem korre- 
spondierenden Punkt einer Lissajouskurve verbunden. 


Um Ihnen zusätzlich noch den Effekt verschiedener Zeichenmodi zu 
demonstrieren, wurde um alle Figuren eine FOR..NEXT-Schleife ge- 
legt, die den Zeichenmodus bestimmt. 


Statt Sinus- oder Lissajouskurven können Sie natürlich jede andere 
Kurve verwenden. Sie müssen nur darauf achten, daß die Werte nicht 
außerhalb des Graphikfensters gelangen. 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
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410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 


REM RR 


REM *%* “r 
REM **  SPIELEREIEN II ** 
REM ** “r 
REM ** NACH IDEEN VON ** 


REM ** NORBERT TREITZ ** 


REM ** ar 
REM IT 
REM 

P1=3.14159265 

REM 

REM WR a a 

REM ** “r 

REM ** FIGUR 1 ** 

REM ** ar 

REN RER 

REM 

GMODE 0,1 : GCLEAR : SCOL= 1,7 : COLOR= 2,2 


R=141 
A=160 : B=100 
FOR W=P1/4 TO 3.6 STEP 0.05 
X=R*COSCW) : Y=R*SINCW) 
PLOT „A+X,B-Y TO A-Y,B-X 
PLOT ‚A-Y,B-X TO A-X,B+Y 
REM PLOT ‚A-X,B+Y TO A+X,B-Y 
PLOT ‚A-X,B+Y TO A+Y,B+X 
PLOT ‚A+Y,B+X TO A+X,B-Y 
R=R*0.94 
NEXT W 
GOSUB 680 
REM 
REM WW 
REM ** ur 
REM ** FIGUR 2 ** 
REM ** “r 
REN ER 
REM 
FOR N=4 TO 100 STEP 5 
GCLEAR 
R1=99 : R2=50 
DW=PI/N*2 
FOR 1=0 TO 4 
R3=99-R1 : R4=99-R2 
FOR W=DW TO 2*PI+DW*2 STEP DW 
A=160+R3*COS(W) 
B=100-R3*SINCW) 
PLOT ‚A,B TO 160+R4*COSCW+DW), 100-R4*SINCW+DW) 
PLOT ‚A,B TO 160+R4*COS(W-DW),100-R4*SINCW-DW) 
NEXT W 
R1=R1/2 : R2=R2/2 
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600 NEXT I 

610 GOSUB 680 

620 NEXT N 

630 END 

640 REM 

650 REM 

660 REM WARTESCHLEIFE: 
670 REM 

680 FOR T=1 TO 4000 
690 GET A$ : IF A$="" THEN NEXT T 
700 RETURN 


Die erste dieser Figuren stellt ein sich drehendes Quadrat dar, das sich 
bis zur Unkenntlichkeit verkleinert. Grundlage dieses Programms ist 
die Kreisformel mit: 


x=r*cos(w)+mx 
y=r*sin(w)+my 

mit x x-K.oordinate eines Kreispunktes 

y: y-Koordinate eines Kreispunktes 

w: Winkel zwischen y-Achse und Linie: Kreispunkt-Mittel- 
punkt 

r: Radius 

mx: x-Koordinate Kreismittelpunkt 

my: y-Koordinate Kreismittelpunkt 


Die vier Eckpunkte des Quadrates werden als Punkte eines Kreises 
gesehen, dessen Mittelpunkt im Nullpunkt eines rechtwinkligen Koor- 
dinatensystems liegt. Im Laufe der Routine werden 
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a) der Radius verringert 
b) die Eckpunkte des Quadrats um einen Winkel w um den Mittel- 
punkt des Kreises gedreht 


Wie das ganze genau funktioniert, erfahren Sie im Grundlagenkapitel 
unter "Kreisberechnung" beim Thema "Achtelkreistechnik". 


Die zweite Figur (oder die Figuren, denn es werden eine ganze Menge 
Figuren gezeichnet) zeigt einen hübschen Effekt, der ebenfalls auf der 
Kreisberechnung basiert (oder auf der Anwendung von Polarkoordi- 
naten, je nachdem, was einem lieber ist). Verändern Sie auch hier 
ruhig ein paar Parameter, um zu sehen, was passiert. 


2.6.3 Rechtecke - leicht gemacht 


Wir wollen Rechtecke zeichnen. Nichts leichter als das, werden Sie 
sagen, wir haben ja einen Befehl zum Zeichnen von Linien. Vier 
Linien ergeben ein Rechteck und damit ist das Problem gelöst. Nun 
gut hier ist das BASIC-Programm: 


100 REM KR 


110 REM ** er 

120 REM ** RECHTECKE ** 

130 REM ** BR 

140 REM ek 

150 REM 

160 GMODE 0,1 : GCLEAR : SCOL= 0,0 

170 FOR X=0 TO 150 STEP 7 

180 xX1=2*% : Yi=X 

190 xX2=X+80 : Y2=X+50 :REM ECKPUNKTE FESTLEGEN 
200 ZM=0 :REM ZEICHENMODUS 
210 D=5 :REM RAHMENDICKE 

220 GOSUB 330 :REM RAHMEN ZEICHNEN 
230 NEXT X 

240 WAIT 198,255 

250 END 

260 REM 

270 REM RECHTECKE: 

280 REM UEBERGABE: X1,Y1 - ECKPUNKT 1 


290 REM x2,Y2 - ECKPUNKT 2 
300 REM D - DICKE 

310 REM ZM - ZEICHENMOD. 
320 REM 


330 FOR T=0 TO D-1 
340 XA=X1+T : YA=YI+T 
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350 XB=X2-T : YB=Y2-T 

360 PLOT ZM,XA,YA TO XA,YB 
370 PLOT ZM,XA,YB TO XB,YB 
380 PLOT ZM,XB,YB TO XB,YA 
390 PLOT ZM,XB,YA TO XA,YA 
400 NEXT T 

410 RETURN 


Wir haben es hier mit einem recht komfortablen Rechteckbefehl zu 
tun. Neben Zeichenmodus und Eckpunkten können Sie zusätzlich die 
Dicke des Rechteckrahmens festlegen. Gut und schön, wir haben ver- 
wirklicht, was wir uns in den Kopf gesetzt haben. Warum aber sollten 
wir uns jedesmal solche Umstände machen, wenn Supergraphik uns 
bereits einen Rechteckbefehl mit allen diesen Features bietet. Das 
obige Programm könnte auch so aussehen: 


100 REM Kr 
110 REM ** “* 
120 REM ** RECHTECKE ** 


130 REM ** Wr 
140 REM Kr 


150 REM 

160 GMODE 0,1 : GCLEAR : SCOL= 0,0 
170 FOR X=0 TO 150 STEP 7 

180 FRAME „5,2*X,X TO X+80,X+50 
190 NEXT X 

200 WAIT 198,255 


Ein bißchen kürzer, ein bißchen schneller, ein bißchen richtiger. 


Kürzer? Das werden Sie wahrscheinlich bei ersten Augenschein er- 
kennen. Schneller? Vergleichen Sie, der Unterschied ist deutlich. 
Richtiger? Ja, sehen Sie, wenn Sie im ersten Programm für das erste 
Koordinatenpaar kleinere Werte einsetzen als für das zweite, dann 
geht noch alles in Ordnung. Im Laufe der obigen FOR...NEXT- 
Schleife aber wird auch irgendwann das Gegenteil zutreffen. Schauen 
Sie sich doch dann einmal das Rechteck an. 


Aber was denn? Wir haben unseren neuen Befehl ja noch gar nicht 
vorgestellt! Das ist sofort nachzuholen: 
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FRAME 


Befehl: FRAME zm,d,xl,yl TO x2,y2 
Beispiel: FRAME 0,10,100,100 TO 200,150 
Parameter: zm: Zeichenmodus 
d: Rahmendicke 
xl: x-Eckkoordinate 1 
yl: y-Eckkoordinate I 
x2: x-Eckkoordinate 2 
y2: y-Eckkoordinate 2 
Funktion: Setzen (Loeschen etc.) eines Rahmens definierter 
Dicke 





Es wird ein Rahmen der Dicke d (Einheit I Punkt; für d=0 wird kein 
Rahmen gezeichnet) begrenzt von den angegebenen zwei gegenüberlie- 
genden Eckpunkten gezeichnet. Wird d so groß, daß zwei Rahmen- 
innengrenzen aneinanderstoßen, entsteht eine zusammenhängende 
Fläche. 


10 GMODE 0,1 : GCLEAR 

20 FOR ZM=0 TO 3 

30 FRAME 2M,50,0,0 TO 319,199 
40 NEXT ZM 

50 WAIT 198,255 
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Man staune, es wird ein Rahmen um das ganze Graphikfeld mit der 
Dicke von 50 Punkten gezogen, abgezogen, inverzogen, punzogen. 


Kaum zu glauben, daß selbst bei diesem Befehl die Syntaxer- 
weiterung, die wir unter PLOT und PLOT..TO... kennengelernt 
haben, einwandfrei funktioniert. Probieren Sie es aus! 


Da wir gerade dabei sind, sollten wir uns auch gleich mit einen nahen 
Verwandten des FRAME-Befehls bekannt machen: 


FILL 


Befehl: FILL zm,x1,yl TO x2,y2 
Beispiel: FILL 0,100,100 TO 200,150 
Parameter: zm: Zeichenmodus 

xl: x-Eckkoordinate | 

yl: y-Eckkoordinate | 

x2: x-Eckkoordinate 2 

y2: y-Eckkoordinate 2 
Funktion: Setzen (Loeschen etc.) eines Feldes 


Neben dem Rahmen gibt es auch die Möglichkeit, ein volles Feld zu 
zeichnen. Wie beim Rahmen bestimmen die angegebenen Koordinaten 
die beiden diagonal gegenüberliegenden Punkte des Feldes. 
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100 REM Ba 2022 222 22 22 2 2 2202 

110 REM ** “* 

120 REM ** FLAECHEN ** 

130 REM ** “* 

140 REM Here 

150 REM 

160 GMODE 0,1 : GCLEAR : SCOL= 0,0 
170 FILL 2,20,30 TO 100,150 

180 FILL 2,25,40 TO 180,120 

190 FILL 2,55,10 TO 110, 50 

200 WAIT 198,255 

210 REM 

220 GCLEAR 

230 FOR X=1 TO 100 

240  FILL 2,320*RNDC1),200*RNDC1) TO 320*RND (1), 200*RND(1) 
250 NEXT X 

260 POKE 198,0 : WAIT 198,255 


Weitere Anwendungsmöglichkeiten dieser neuen Befehle finden Sie im 
folgenden Paragraphen, in dem unser CAD-Zeichner erweitert wird. 


2.6.4 CAD-Zeichner: 2. Teil 


Im folgenden werden wir unseren CAD-Zeichner aus dem Kapitel 
2.5.2 um einige Features erweitern, die uns mit den neuen Befehlen 
nun möglich sind. Wir werden hier nicht das ganze Programm aufli- 
sten, sondern nur diejenigen Zeilen, die neu hinzukommen, um nicht 
unnötig Platz zu verschwenden. Im Anhang wird Ihnen dann ein voll- 
ständiges Listing mit kompletter Kurzanleitung geboten. 


Vergessen Sie also nicht: Die folgenden BASIC-Zeilen sind nur ein 
Teilstück des Gesamtprogrammes und nicht für sich allein lauffähig! 


100 REM Area 


110 REM ** ”- 

120 REM ** CAD-ZEICHNER TEIL 2 ** 

130 REM ** u. 

140 REM ke 

150 REM 

470 IF A$="L" THEN FZ=1 : GOSUB 1450 :REM LINIE 
480 IF A$="R" THEN FZ=2 : GOSUB 1450 :REM RECHTECK 
490 IF AS="B" THEN FZ=3 : GOSUB 1450 :REM BOX 
500 IF A$="Nn" THEN GOSUB 5040 :REM NETZ ZEICHNEN 
1430 REM 

1440 REM OBJEKTE ZEICHNEN: 
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1450 X1=X : Y1=Y :REM STARTKOORDINATEN 

1460 X2=X : Y2=Y :REM ENDKOORDINATEN 

1470 ZM=2 : FL=0 :REM FLAG ZURUECKSETZEN 

1480 GOSUB 1730 :REM LINIE, FRAME, FILL 

1490 FL=ABS(FL-1) 

1500 FOR 2=1 TO 30 

1510 GET A$ : IF A$='l THEN NEXT Z : GOTO 1480 
1520 IF FL=1 THEN GOSUB 1730 :REM WIEDER ZURUEKSETZEN 
1530 A=ASC(AS) 

1540 IF A=17 THEN GOSUB 1300 :REM RUNTER 

1550 IF A=145 THEN GOSUB 1240 :REM HOCH 

1560 IF A=29 THEN GOSUB 1340 :REM RECHTS 

1570 IF A=157 THEN GOSUB 1390 :REM LINKS 

1580 IF A=133 THEN ZM=0 : GOTO 1740 :REM Fi 
1590 IF A=137 THEN ZM=1 : GOTO 1740 :REM F2 
1600 IF A=134 THEN ZM=0 : GOSUB 1740 :REM Fi 
1610 IF A=138 THEN ZM=1 : GOSUB 1740 :REM F2 
1620 IF A= 20 THEN X=X1 : Y=Y1 : RETURN :REM DEL => NICHT ZEICHNEN 
1630 IF A= 19 THEN CF=ABSCCF-1) 

1690 REM 

1700 X2=X : Y2=Y 

1710 GOTO 1470 

1720 REM 

1730 ON FZ GOTO 1800,1900,1900 :REM SPRUNG ZU: LINIE, FRAME, FILL 
1740 ON FZ GOTO 1800,1900,2000 :REM SPRUNG ZU: LINIE, FRAME, FILL 
1770 REM 

1780 REM 

1790 REM LINIE ZEICHNEN/LOESCHEN: 

1800 PLOT ZM,X1,Y1 TO x2,Y2 

1810 RETURN 

1870 REM 

1880 REM 

1890 REM RAHMEN ZEICHNEN/LOESCHEN: 

1900 FRAME ZM,1,X1,Y1 TO X2,Y2 

1910 RETURN 

1970 REM 

1980 REM 

1990 REM BOX ZEICHNEN/LOESCHEN: 

2000 FILL ZM,X1,Y1 TO x2,Y2 

2010 RETURN 

5000 REM 

5010 REM 

5020 REM NETZ BZW. RASTER ZEICHNEN 

5030 REM 

5040 GMODE „8,161,250 :REM TEXTFENSTER OEFFNEN 
5050 PRINT CHR$C147) :REM TEXT LOESCHEN 

5060 POs= 0,20 

5070 PRINT "PUNKT-/LINIEN-NETZ (P/L)" 

5080 PRINT "NETZPUNKTE-EINHEIT!" 

5090 POS= 26,20 

5100 INPUT PF$ : IF PF$<>"L" AND PF$<>tpn THEN 5090 
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5110 POS= 26,21 


5120 INPUT NE$ : IF VALCNE$)<2 THEN 5110 
5130 GMODE ‚1 :REM GRAPHIK WIEDER VOLL 


5140 NE=VAL(NES) 

5150 IF PF$="L" THEN 5220 
5160 REM 

5170 REM PUNKTNETZ: 

5180 FOR XN=0 TO 319 STEP NE 
5190 FOR YN=0 TO 199 STEP NE 
5200 PLOT 2,XN,YN : PLOT 2,XN+1,YN 
5210 NEXT YN 

5220 NEXT XN 

5230 RETURN 

5240 REM 

5250 REM PUNKTNETZ: 

5260 FOR XN=0 TO 319 STEP NE 
5270 PLOT 2,XN,O TO XN,199 
5280 NEXT XN 

5290 FOR YN=0 TO 199 STEP NE 
5300 PLOT 2,0,YN TO 319,YN 
5310 NEXT YN 

5320 RETURN 


Hier eine kurze Bedienungsanleitung: 
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Durch folgende Funktionen 


wurde der CAD-Zeichner in dem oben aufgelisteten Programmteil er- 


weitert: 
L - Linie zeichnen 
R - Rechteck zeichnen 
B - Ausgefülltes Rechteck (Box) zeichnen 
N - Rasternetz in die Graphik einzeichnen 


Wollen Sie eine Linie zeichnen, so bringen Sie den kleinen Gra- 
phikcursor an die Stelle auf dem Bildschirm, an der diese Linie be- 
ginnen soll. Betätigen Sie nun die L-Taste. Jetzt befinden Sie sich im 
sogenannten Linien-Modus. Sie haben die Möglichkeit, den Endpunkt 
der zu zeichnenden Linie nun mittels Cursortasten festzulegen. Dabei 
zeigt Ihnen stets eine blinkende Linie ihre momentane Lage, die sie 
einnnähme, wenn Sie den Befehl zum Zeichnen gäben. Im Linien- 
Modus stehen Ihnen die folgenden Befehle zur Verfügung: 
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CRSR hoch - Linienendpunkt hoch 

CRSR hinunter - Linienendpunkt hinunter 

CRSR rechts - Linienendpunkt rechts 

CRSR links - Linienendpunkt links 

clr/home - Cursorgeschwindigkeit 

DEL - Linienmodus abbrechen 

fl - Linie zeichnen 

f2 - Linie löschen 

f3 - Linie zeichnen und mit gleichem Startpunkt 
die nächste Linie 

f4 - Linie löschen und mit gleichem Startpunkt 


die nächste Linie 


Wie im normalen Zeichenmodus können Sie auch hier die Geschwin- 
digkeit des Cursors mit der Taste cIr/home zwischen I und I0 
Punkten Fortbewegung pro Tastendruck wechseln. 


Falls Sie sich bei dem Einstieg in den Linienmodus geirrt haben oder 
doch keine Linie mehr zeichnen wollen, so betätigen Sie die DEL- 
Taste und schon wird alles rückgängig gemacht. 


Sie haben nun den Endpunkt ihrer Linie mithilfe der Cursortasten 
gefunden und wollen tatsächlich eine Linie auf dem Bildschirm 
abbilden. In diesem Fall bieten sich Ihnen die oben aufgeführten ins- 
gesamt 4 Möglichkeiten. 


Zeichnen oder löschen Sie die positionierte Linie mit fl oder f2, so 
gelangen Sie wieder außerhalb des Linienmodus. Der Graphikcursor 
befindet sich dann exakt am Linienendpunkt. Wollen Sie direkt im 
Anschluß an diese gerade gezeichnete Linie eine weitere zeichnen, so 
bewegen Sie den Cursor nicht, sondern drücken gleich wieder "L". 


Sie möchten zwar die Linie zeichnen bzw. löschen, jedoch gleich 
wieder vom selben Startpunkt der alten Linie eine neue bearbeiten, 
also quasi Radien erzeugen, so verwenden Sie die Tasten f3 bzw. f4. 
Sie bleiben im Linien-Modus und können hier gleich Ihre neue Linie 
positionieren. 


Die Taste "R" - im Hauptmodus betätigt - bringt Sie in den Rechteck- 
Modus. Im Prinzip haben Sie hier dieselben Möglichkeiten, die Ihnen 
im Linien-Modus zur Verfügung stehen (Sie werden unten sehen, daß 
es sich hier um den gleichen Programmteil handelt). Wenn Sie in die 
obigen Ausführungen die Wörter "Linie" durch "Rechteck", "Linien- 
endpunkt" durch "Ecke des Rechtecks" ersetzten, so sind Sie auf dem 
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richtigen Wege. In der Tat ist es so, daß Sie durch den Einstieg in den 
Rechteck-Modus einen Eckpunkt dieses Objektes durch die momen- 
tane Cursorposition festlegen. Bewegen Sie nach dem "R" nun den 
Cursor in zwei Richtungen, so erscheint auf dem Bildschirm ein 
blinkendes Rechteck, dessen zweiten Eckpunkt (diagonal gegenüber 
dem ersten) Sie jetzt mit den Cursortasten festlegen können. Probieren 
Sie es doch einfach einmal aus. Bilder sagen mehr als tausend Worte. 


Wollen Sie sogar ein ausgefülltes Rechteck zeichnen (Box), so wählen 
Sie statt "R" einfach "B". Hierbei können Sie alles aus dem vorherigen 
Abschnitt übernehmen. 


Es bleibt ein Kommando: Das Kommando zur Erzeugung eines Ra- 
sternetzes über den gesamten Bildschirm ("N"). Haben Sie diese Taste 
im Hauptmodus angewählt, so erscheint am unteren Teil des Bild- 
schirms ein kleines Textfenster, in dem Sie nach der Art des Netzes 
und seiner Einteilung gefragt werden. Hier können Sie - je nachdem 
ob Sie L oder P eingeben - bestimmen, ob sich Ihr Netz aus einfachen 
Punkten oder aus Linien zusammensetzen soll. Haben Sie Ihre Eingabe 
mit <return> bestätigt, dann geben Sie noch schnell die Anzahl der 
Punkte zwischen zwei Netzlinien oder -punkten an und schon sehen 
Sie zu, wie Ihr Rechner den Bildschirm "vernetzt". 


Dieses Kommando sollte nach Möglichkeit nur einmal und nur am 
Anfang einer Arbeit gegeben werden, da ansonsten alles bisher ge- 
zeichnete durch die Linien oder Punkte überzeichnet wird. Wollte man 
dies verhindern, dann müßte man von jedem gezeichneten Objekt 
(außer dem Netz selbst natürlich) eine Kopie in der zweiten Graphik- 
seite anfertigen. D.h. jedesmal, wenn ein Objekt gezeichnet wird, sei 
es Punkt, Linie, Rechteck oder ausgefülltes Rechteck, müßten Sie 
(verdeckt natürlich) auf die zweite Graphikseite umschalten und es an 
der gleichen Stelle noch einmal zeichnen. Sie brauchen natürlich den 
Graphikcursor und die blinkenden Linien oder Rechtecke nicht in die 
zweite Seite kopieren. Diese Änderungen sind recht einfach in nur 
wenigen zusätzlichen Zeilen zu realisieren. Wenn Sie dann einmal das 
Netz wieder fortnehmen möchten oder z.B. die Netzeinheit ändern, 
dann brauchen Sie nur die gesamte zweite Seite in die erste zu kopie- 
ren. Wie dies mit dem GCOMB-Befehl funktioniert, werden Sie in 
späteren Kapiteln erfahren. Vielleicht versuchen Sie sich ja einmal an 
einer solchen Programmänderung. 


Damit Sie auch das Programm selbst besser verstehen, hier eine Be- 
schreibung der wichtigsten Teile: 
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In den Zeilen 470-500 wurden die neuen Tasten implementiert. Wie 
Sie sehen, wird bei den Modi Linie, Rechteck und Box zur selben 
Routine (nach Zeile 1450) gesprungen. Allein die Variable FZ (Zei- 
chenflag) bestimmt die Art des zu zeichnenden Objektes. Diese ab 
Zeile 1450 beginnende Routine hat einige Ähnlichkeit mit der 
Hauptroutine zum Cursorblinken und der Tastaturabfrage. Statt eines 
einzelnen Punktes blinkt dann aber durch Zeile 1480 je nach FZ eine 
Linie oder ein Rechteck. In dieser Zeile wird nämlich ein Unterpro- 
grammsprung auf eine Zeile unternommen (Zeile 1730), in der ein ON 
FZ GOTO auf die Befehle "Linie zeichnen" oder "Rechteck zeichnen" 
springt. Vorher wurde der Zeichenmodus auf 2 (invertieren) gesetzt, 
um keine bereits vorhandenen Zeichnungen zu zerstören (s. Hauptrou- 
tine). 


Wurde nun eine Taste betätigt, wird einzeln jede erlaubte Taste abge- 
fragt und zu den verschiedenen dafür zuständigen Routinen gesprun- 
gen. Die 4 Cursorroutinen stammen aus dem ersten Programmteil. In 
den Zeilen 1580-1610 wird dann - wie gerade beschrieben - wieder 
auf ein ON FZ GOTO gesprungen, um die jeweils richtige Figur zu 
zeichnen (ZM=0) oder zu löschen (ZM=]|). 


Ab Zeile 5040 beginnt die Netz-Routine. Hierzu wird zunächst in ge- 
nau dieser Zeile ein kleines Textfenster geöffnet, um dann die beiden 
erforderlichen Parameter abzufragen. Das Zeichnen des Netzes über- 
nehmen dann FOR...NEXT-Schleifen. 


Mit diesem Programm können Sie nun schon recht prächtige Graphi- 
ken entwerfen. Vielleicht versuchen Sie ja einmal, die Cursorsteuerung 
statt von der Tastatur, vom Joystick aus vorzunehmen, denn die bis- 
herige Methode ist doch auf die Dauer sehr umständlich. Der später 
besprochene Befehl IF#...THEN... wird Ihnen dabei sicher eine Hilfe 
sein. 


2.7 Kreise und alles, was (fast) rund ist 


Wir können schon sehr viel. Wir könnten auch Kreise zeichnen. Doch 
was ist eine umständliche und zeitraubende Kreisroutine in BASIC 
(wir werden später noch die verschiedenen Möglichkeiten der Kreis- 
zeichnung durchsprechen) gegenüber einem schnellen und von BASIC 
aus einfach zu bedienenden Kreisprogramm? Das hat sich der Autor 
der Supergraphik auch gesagt und einen Kreisbefehl geschaffen. 
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2.7.1 Der CIRCLE-Befehl 
CIRCLE 


Befehl: CIRCLE zm,,xm,ym,xr,yr 
Beispiel: CIRCLE 0,,160,100,80,90 
Parameter: zm: Zeichenmodus 


xm: x-Mittelpunktskoordinate 
ym: y-Mittelpunktskoordinate 
xr: x-Radius 
yr: y-Radius 


Funktion: Setzen (Loeschen etc.) einer Ellipse, Kreis 


Mit diesem Befehl werden Ihnen Welten eröffnet: 

Kreise und Ellipsen (und wie Sie später sehen werden noch eine Reihe 
weiterer Figuren) können durch ein "Fingerschnippen" Ihrerseits auf 
den Bildschirm gezaubert werden. 

xm,ym geben dabei die Koordinaten des Mittelpunktes der Figur an, 
xr den Radius in x-Richtung und yr den in y-Richtung. Sind die 
letzten beiden Werte gleich, so entsteht ein Kreis (außer in Multi- 
color), ansonsten eine Ellipse. Unter Umständen können Verzerrungen 
durch die mangelhafte Einstellung Ihres Bildschirms oder durch die 
speziellen Eigenheiten Ihres Druckers entstehen. 


Wie das alles mit x-Radius, y-Radius, Mittelpunkt pi, pa, po zusam- 
menhängt, soll Ihnen das folgende kleine Programm demonstrieren: 





M(x 


m:Ym) 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
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REM We 

REM ** ** 

REM ** CIRCLE ** 

REM ** ** 

REM Wk 

REM 

GMODE ‚8,193,250 : GCLEAR : SCOL= 0,0 


PRINT CHRSC147) :REM BILDSCHIRM LOESCHEN 
POS= 10,23 

PRINT" XM, YM, XR,  YR"; 

POS= 0,24 

PRINT "CIRCLEO,, 300000, 
XM=160 : YM=100 

XR= 20 : YR= 50 

s=1 :REM SCHRITTWEITE 
REM 

REM HAUPTSCHLEIFE: 

REM 

GMODE ‚1 : CIRCLE ,,XM,YM,XR,YR 


GMODE „8,193 ,250 

PLOT ‚XM,YM : PLOT ‚XM+1,YM :REM MITTELPUNKT ZEICHNEN 
REM 

POS= 10,24 : PRINT XM; 

POS= 15,24 : PRINT YM; 

POS= 20,24 : PRINT XR; 


POS= 25,24 : PRINT YR; 

REM 

GET A$ : IF A$= THEN 370 

A=ASC(CAS$) 

IF A= 17 THEN 530 :REM CRSR RUNTER 
IF A=145 THEN 580 :REM CRSR HOCH 

IF A= 29 THEN 630 :REM CRSR RECHTS 
IF A=157 THEN 680 :REM CRSR LINKS 

IF A$="W" THEN FL=SABSCFL-1) :REM FLAG WECHSELN 


IF A$="S" THEN S=S*10/S”2 :REM ZWISCHEN 10 UND 1 WECHSELN 
IF A$="Q" THEN END :REM ENDE 

GOTO 370 

REM 

REM 

REM AUSFUEHRUNGEN: 

REM 

REM RUNTER: 

REM 

XD= 0 : YD= 1 :REM KOORDINATEN VERSCHIEBUNGEN 
GOTO 740 

REM 

REM HOCH: 

REM 

XD= 0 : YD=-1 :REM KOORDINATEN VERSCHIEBUNGEN 
GOTO 740 
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600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 


REM 

REM RECHTS: 

REM 

XD= 1 : YD= 0 :REM KOORDINATEN VERSCHIEBUNGEN 
GOTO 740 

REM 

REM LINKS: 

REM 

XD=-1 : YD= 0 :REM KOORDINATEN VERSCHIEBUNGEN 
GOTO 740 

REM 

REM 

REM NEUEN KREIS ZEICHNEN: 

REM 

GMODE „1 

CIRCLE 1,,XM,YM,XR,YR :REM ALTEN KREIS LOESCHEN 
GMODE „8,193,250 

PLOT 1,XM,YM : PLOT 1,XM+1,YM :REM ALTEN MITTELPUNKT LOESCHEN 
IF FL=0 THEN 850 :REM RADIEN AENDERN 

REM 

REM MITTELPUNKT AENDERN: 

XM=ABSCXM+XD*S) : YM=ABSCYM+YD*S) 

GOTO 280 

REM 

REM RADIEN AENDERN: 

XR=ABSCXR+XD*S) : YR=ABSCYR-YD*S) 

GOTO 280 


Für eine Befehlsvorstellung scheint dieses Programm vielleicht ein 
bißchen sehr groß geraten. Doch es zeigt Ihnen direkt, wie die einzel- 
nen Parameter des CIRCLE-Befehls wirken. Während sich nämlich auf 
dem Graphikbildschirm die aktuelle Ellipse mit den aktuellen Eigen- 
schaften befindet, wird in den unteren beiden Zeilen des Bildschirms 
direkt der Befehl ausgegeben, der notwendig wäre, um diese Ellipse 


auf den 


Bildschirm zu zeichnen. Dies wird durch Einschalten eines 


kleinen Textfensters (Zeile 160) erreicht. Sie können nun durch fol- 
gende Tasten die auf dem Bildschirm befindliche Ellipse verändern: 
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CRCR runter - Mittelpunkt nach unten verschieben bzw. y- 
Radius verringern 

CRSR hoch - Mittelpunkt nach oben verschieben bzw. y- 
Radius erhöhen 

CRSR rechts - Mittelpunkt nach rechts verschieben bzw. 
x-Radius erhöhen 

CRSR links - Mittelpunkt nach links verschieben bzw. x- 
Radius verringern 

W - Wechsel zwischen: 
- Mittelpunktverschiebung 
- Radiusänderung 

S - Schrittweite der Änderungen in Punkten 

Q - Programmabbruch 


Wenn Sie das obige Programm starten, dann können Sie durch Betäti- 
gung der Cursortasten in der beschriebenen Art und Weise die beiden 
Radien der Ellipse verändern. Bei jedem Druck auf die Tasten ver- 
größern oder verkleinern sie sich um jeweils einen Punkt bzw. um 10 
Punkte, wenn vorher durch die "S"-Taste die Schrittweite erhöht 
wurde. Bei jeder Änderung wird der in der untersten Zeile abgebil- 
dete Befehl aktualisiert mit den neuesten Werten. 


Wollen Sie nicht die Größe der Radien verändern, so betätigen Sie die 
Taste "W". Nun wird gewechselt: Bei jeder Betätigung der Cursortasten 
wird nun der Mittelpunkt der Ellipse (des Kreises) bewegt. Ein 
weiterer Druck auf "W" leitet wieder den Wechsel zurück ein. Wollen 
Sie das Programm beenden, so genügt ein Druck auf "Q". 


Sicher haben Sie bereits das Flackern des Bildschirms bemerkt, wenn 
Sie einen Parameter verändern. Dies rührt daher, daß in den Zeilen 
280/290 und 740-760 vor dem Zeichnen bzw. Löschen einer Ellipse 
das Textfenster aus- und später wieder eingeschaltet wird. Dies ist 
notwendig, um ein noch größeres Flackern zu verhindern. Während 
des CIRCLE-Befehls wird nämlich der Interrupt (s.o.) ausgeschaltet, 
womit auch die Sache mit dem Textfenster zusammenbricht. 


Das Programm ist allgemein möglichst einfach und übersichtlich ge- 
schrieben. Es sollte also kein großes Problem darstellen, es zu verste- 
hen. Vielleicht sollten doch noch ein paar Kleinigkeiten erläutert 
werden. 
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Da ist zum Beispiel die Angelegenheit mit dem Wechseln der Schritt- 
weite in Zeile 440. Die Variable S wechselt durch die Formel 
S=S*10/S*2 ständig zwischen I und 10. Rechnen Sie doch einfach 
einmal nach. Ähnliches bewirkt die inzwischen schon bekannte Formel 
in Zeile 430. Hier wechselt FL immer zwischen O und |. 


In den Zeilen 510-690 werden die Cursorbewegungen vollzogen, bzw. 
hier werden die Werte festgelegt, die (multipliziert mit S) zu den 
Mittelpunktskoordinaten bzw. den Radien addiert werden (Zeilen 810 
und 850). Um Ihnen die Lage des Mittelpunktes zu verdeutlichen, 
wird er noch einmal getrennt eingezeichnet. 


Polygone: 


Befehl: CIRCLE zm,sl,xm,ym,xr,yr 
Beispiel: CIRCLE 0,120,160,100,80,90 
Parameter: zm: Zeichenmodus 
sl:  Seitenlänge (0-255) 
xm: x-Mittelpunktskoordinate 
ym: y-Mittelpunktskoordinate 
xt: x-Radius 
yr: y-Radius 
Funktion: Setzen (loeschen etc.) eines beliebigen Vielecks 


Mit der sl-Ergänzung des CIRCLE-Befehls können Sie das Zeichnen 
von Kreisen und Ellipsen ausweiten auf Quadrate, Rechtecke, 5-, 6- 
„... Ecke. Dabei gibt sl die jeweilige Kantenlänge in Grad des über- 
spannenden Bogens an. Was ist sich darunter vorzustellen? 


Genau genommen können Sie mit sl angeben, in welchem Gradabstand 
die einzelnen Punkte einer jeweiligen Ellipse gezeichnet werden sollen. 
Normalerweise wird alle 2 Grad ein Punkt berechnet und die entste- 
henden Punkte mit einer Linie verbunden (Vielleicht erinnern Sie sich 
noch an die Einführung zum Linien-Kapitel. Dort wurde erläutert, 
weshalb alle Figuren aus Linien angenähert werden. Dies ist auch hier 
beim Kreis so). Vergrößert man nun diesen Abstand, so nimmt die 
Genauigkeit der Zeichnung stetig ab, bis direkt ein Vieleck zu beob- 
achten ist. Interessant sind besonders dabei die folgenden Werte: 
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120  --- gleichseitiges Dreieck 
90  --- gleichseitiges Viereck 
72  --- gleichseitiges Fünfeck 
60  --- gleichseitiges Sechseck 
45  --- gleichseitiges Achteck 
40  --- gleichseitiges Neuneck 
36 --- gleichseitiges Zehneck 


gleichseltiges 
Viereck 
s1=90 


glielchsoeitlges 
Funfsck 
ı1=72 


NSN.SLNDN,N 


NSNNENNNSSNSNNNSNN 
ITTTTTTTT. 
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gilelchseiltiges \ glelchseitiges 
Achteck : Sechsock 
=45 . si=8690 
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Dabei sind jeweils größere Werte immer noch Gebilde mit der ent- 
sprechenden Eckenzahl. Ein CIRCLE-Befehl mit dem sl-Wert 100 z.B. 
produziert immer noch ein Viereck. Die oben angegebenen Werte 
stellen die Übergänge von n+1- zum n-Eck dar. 


Das folgende Programm zeigt Ihnen, wie sich sl auf den CIRCLE- 
Befehl auswirkt: 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 


REM RR 


REM ** r 

REM ** POLYGONE ** 

REM ** ** 

REM We 

REM 

GMODE 0,1 : GCLEAR : SCOL= 0,0 


FOR SL=2 TO 100 STEP 2 
CIRCLE 2,SL,160,100,60,90 
CIRCLE 2,SL,160,100,60,90 

NEXT SL 

CIRCLE 2,SL,160,100,60,90 

WAIT 198,255 





Bevor wir uns weiter mit diesen Möglichkeiten des CIRCLE-Befehls 
beschäftigen, wollen wir nun auch das letzte aus ihm herausholen: 
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Bögen: 


Befehl: CIRCLE zm,(sl),xm,ym,xr,yr,wa,we 
Beispiel: CIRCLE 0,2,160,100,80,90,30,130 
Parameter: zm: Zeichenmodus 

sl:  Seitenlänge (0-255) 

xm: x-Mittelpunktskoordinate 

ym: y-Mittelpunktskoordinate 

xt: x-Radius 

yr: y-Radius 

wa: Anfangswinkel (0-360) 

we: Endwinkel (0-360) 
Funktion: Setzen (Loeschen etc.) von Kreis-, Ellipsen- oder 

Vieleck-Bögen 


Die Spitze des CIRCLE-Befehls wird durch die Angabe des Start- und 
Endwinkels der Ellipse bzw. des Vielecks erreicht. Sie geben also an, 
von welcher Gradzahl an die Figur gezeichnet wird und wo Sie enden 
soll. Auf diese Weise erhalten Sie z.B. Halbkreise, Viertelellipsen etc. 
Sie können auch nur einen einzigen Punkt berechnen lassen und ihn 
als Ausgangspunkt für weitere Zeichnungen verwenden (z.B. zum 
Mittelpunkt mittels PLOT TO ..., um einen Radius zu zeichnen etc.). 

10 GMODE 0,1 : GCLEAR 

20 CIRCLE „,159,99,60,80,0,180 

30 WAIT 198,255 


Hier wird Ihnen die Benutzung des Befehls anhand einer Halbellipse 
mit dem Mittelpunkt auf der Mitte des Bildschirms demonstriert. Dies 
ist einer der "Spiel"-Befehle, deren Möglichkeiten erst im Laufe des 
Probierens voll klar werden. Was halten Sie beispielsweise von diesem 
Programm: 
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10 GMODE 0,1 : GCLEAR 
20 FOR X=1 TO 200 STEP 3 


30 


CIRCLE „,90,99,X,99,0,X 


40 NEXT X 


Sollte Ihr Gebilde einmal größer als der Bildschirm werden, so besteht 
kein Grund zur Beunruhigung. Der Rechner hört früh genug auf. 





Das folgende kleine Programm ist eine Erweiterung des weiter oben 
vorgestellten und nutzt nun alle Möglichkeiten des CIRCLE-Befehls 
aus. Hier können Sie nach Herzenslust probieren und die Wirkung der 
einzelnen Parameter studieren: 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 


REM RR a a a a a a a a a 


REM ** ** 
REM ** CIRCLE - KOMPLETT ** 
REM ** ** 
REM Kr 
REM 

GMODE 0,1 : GCLEAR : SCOL= 0,0 


PRINT CHR$C147) :REM BILDSCHIRM LOESCHEN 
PoS= 9,23 

PRINT " SL, XM, YM, XR, YR, WA, WEI; 

POS= 0,24 

PRINT "CIRCLEO, 3 rn 
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220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
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KO=1E-7 :REM KORREKTURSUMMAND 
SI= 2 :REM SEITENLAENGE 
XM=160 : YM=100 :REM MITTELPUNKT 

XR= 20 : YR= 50 :REM RADIEN 

WA= 0 : WE=360 :REM START-/ENDWINKEL 
s=1 :REM SCHRITTWEITE 
FL=1 :REM FLAG 

REM 

REM HAUPTSCHLEIFE: 

REM 

CIRCLE ‚SL,XM,YM,XR,YR,WA,WE 


GMODE ‚8,193,250 
PLOT ‚XM,YM : PLOT ‚XM+1,YM :REM MITTELPUNKT ZEICHNEN 
REM 


REM WERTE AUSGEBEN: 

PO=13 

VA=SL : GOSUB 1090 

VA=XM : GOSUB 1090 

VA=YM : GOSUB 1090 

VA=XR : GOSUB 1090 

VA=YR : GOSUB 1090 

VA=WA : GOSUB 1090 

VA=WE : GOSUB 1090 

REM 

GET A$ : IF A$="!" THEN 460 

A=ASC(A$) 

IF A= 17 THEN 620 :REM CRSR RUNTER 
IF A=145 THEN 670 :REM CRSR HOCH 

IF A= 29 THEN 720 :REM CRSR RECHTS 
IF A=157 THEN 770 :REM CRSR LINKS 
IF A$="w" THEN FL=FL+1 : IF FL=5 THENFL=1 :REM FLAG WECHSELN 
IF A$="S" THEN S=S*10/S*2 :REM ZWISCHEN 10 UND 1 WECHSELN 
IF A$="Q" THEN END :REM ENDE 

GOTO 460 

REM 

REM 

REM AUSFUEHRUNGEN: 

REM 

REM RUNTER: 

REM 

XD= O0 : YD= 1 :REM KOORDINATEN VERSCHIEBUNGEN 
GOTO 830 

REM 

REM HOCH: 

REM 

XD= O0 : YD=-1 :REM KOORDINATEN VERSCHIEBUNGEN 
GOTO 830 

REM 

REM RECHTS: 

REM 

XD= 1 : YD= O :REM KOORDINATEN VERSCHIEBUNGEN 
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730 GOTO 830 

740 REM 

750 REM LINKS: 

760 REM 

770 xD=-1 : YD= 0 :REM KOORDINATEN VERSCHIEBUNGEN 
780 GOTO 830 

790 REM 

800 REM 

810 REM NEUEN KREIS ZEICHNEN: 

820 REM 

830 GMODE ‚1 

840 CIRCLE 1,SL,XM,YM,XR,YR,WA,WE :REM ALTEN KREIS LOESCHEN 
850 PLOT 1,XM,YM : PLOT 1,XM+1,YM :REM ALTEN MITTELPUNKT LOESCHEN 
860 ON FL GOTO 930,890,970,1030 :REM RADIEN AENDERN 
870 REM 

880 REM MITTELPUNKT AENDERN: 

890 XM=INTCABSCXM+XD*S)+KO) : YM=INTCABSCYM+YD*S)+KO) 
900 GOTO 320 

910 REM 

920 REM RADIEN AENDERN: 

930 XR=INTCABSCXR+XD*S)+KO) : YR=INTCABSCYR-YD*S)+KO) 
940 GOTO 320 

950 REM 

960 REM START-/ENDWINKEL AENDERN: 

970 WA=INTCABSCWA+XD*S)+KO) : WE=SINTCABSCWE-YD*S)+KO) 
980 IF WA>360 THEN WA=0 

990 IF WE>360 THEN WE=0 

1000 GoTO 320 

1010 REM 

1020 REM SEITENLAENGE AENDERN: 

1030 SL=INTCABS(SL+XD*S-YD*S)+KO) 

1040 GOTO 320 

1050 REM 

1060 REM 

1070 REM WERTEAUSGABE: 

1080 REM 

1090 VAS=STRSCVA) 

1100 POS= PO-4,24 : PRINT" "; 

1110 POS= PO-LEN(VAS),24 :PRINT RIGHTSCVAS, LEN(VAS)-1); 
1120 PO=PO+4 :REM NAECHSTE SPALTE 

1130 RETURN 
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2.7.2 Die hochaufgelöste BASIC- Uhr 


Im folgenden möchten wir Ihnen eine sehr schöne und tatsächlich 
auch nutzbringende Anwendung vorstellen. Für alle diejenigen unter 
Ihnen, denen ihr Morgenmuffeltum ständig Ärger und Sorgen bereitet, 
haben wir eine kleine Spezialität vorbereitet. 


Hand aufs Herz! Der allmorgendliche, weckertötende Zorn reißt zu- 
nehmend große Löcher in Ihr monatliches Uhrenbudget. Hier bieten 
wir Ihnen die Lösung: 


Ihr Commodore-Computer übernimmt heldenhaft sämtliche Funktio- 
nen Ihres Weckers. Wenn Sie also morgens zornentbrannt Ihren Wecker 
suchen, um ihm den verstummenden Schlag zu verabreichen, lächelt 
Sie bereits Ihr Rechner an. Sie werden sich schnell eines anderen be- 
sinnen und den Schlag zu einem zärtlichen Tasten"klick" dämpfen - 
entweder aus Liebe zu Ihrem Computer oder eingedenk der drohenden 
Werkstattrechnung. 


Wenn Sie nun darauf brennen, die Lösung all Ihrer Probleme vor 
Augen zu haben, hier ist sie: 


100 REM RR a a a a a a a 


110 REM ** “r 
120 REM ** DIE UHRZEIT, BITTE! ** 
130 REM ** ni 
140 REM rk 
150 REM 


160 GMODE 0,5 : GCLEAR : SCOL= 0,0 

170 P1=3.14 159265 

180 REM 

190 PRINT CHR$C147) :REM BILDSCHIRM LOESCHEN 
200 PRINT "GEBEN SIE DIE UHRZEIT AN!" 

210 PRINT 

220 INPUT "STUNDE, MINUTE, SEKUNDE ";ST$,MI$,SE$ 
230 TIS=ST$+MI$+SE$ :REM UHRZEIT STELLEN 
240 INPUT "DATUM: BITTE TAG ANGEBEN"';TAS 

250 TA=VAL(TA$) 

260 PRINT 

270 INPUT "WECKZEIT: STUNDE, MINUTE";WS$, WM$ 
280 REM 

290 WZS=WSS+WME :REM WECKZEIT MERKEN 
300 REM 

310 GMODE 0,1 :REM GRAPHIK EIN 

320 REM 

330 REM 

340 REM UHR ZEICHNEN: 


Supergraphik_für Einsteiger 


350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 


REM 

TEXT „"TIMERUNNER",120,10,0 
REM 

CIRCLE ,‚,160,100,80,80 
CIRCLE ‚,160,100,60,60 


REM 

REM TEILSTRICHE: 

REM 

Y=2 

FOR W=0 TO 359 STEP 360/(12*4) :REM KREIS IN 48 TEILE 
Y=Y+1 2 IF Y=4 THEN Y=0 :REM JE 4 STRICHE ABZAEHLEN 
FOR X=0 TO 4+4*1NTCY/3) :REM JEDEN 4. STRICH GROSS 


CIRCLE ‚,160,100,62-X,62-X,W,W :REM KREISPUNKT BERECHNEN 
NEXT X 


NEXT W 
REM 
REM ZIFFERN EINZEICHNEN: 
REM 
X=0 : EN=2*P1/12 :REM SCHRITTWEITE 
FOR W= -2*EN TO 9*EN STEP EN 
X=X+1 2 XS=STRECK) :REM ZIFFER 


TEXT „RIGHTSCX$,LENCX$)- 1), 70*COS(W)+156,70*SINCW)+104,0 
NEXT W 
REM 
REM TAGESANZEIGE: 
REM 
FRAME ‚2,186,92 TO 210,108 
REM 
REM 
REM 
REM ZEIGER EINZEICHNEN: 
REM 
S1=0 : M1=0 : H1=0 : FL=0 
REM 
IF LEFTSCTIS,4)=WZ$ THEN GOSUB 1220 :REM WECKEN 
REM 
REM SEKUNDENZEIGER: 


REM 

S2=VAL(RIGHTSCTI$,2)) :REM SEKUNDEN HOLEN 

IF S1=S2 THEN 730 :REM NEUER WERT? 

ZA=S1 : ZN=S2 : R=78 :REM JA-> 

GoSUB 1120 :REM SEKUNDENZEIGER VERSTELLEN 
s1=s2 :REM NEUEN WERT MERKEN 

REM 

REM MINUTENZEIGER: 

REM 

M2=VAL(MIDS(TIS,3,2)) :REM MINUTEN HOLEN 

IF M1=M2 THEN 730 :REM NEUER WERT? 

ZA=M1 : ZN=M2 : R=72 

GOSUB 1120 :REM JA->ZEIGER VERAENDERN 
M1=M2 
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96 


860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
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REM 

REM STUNDENZEIGER: 

REM 

H2=VAL(LEFTSCTIS,2))/12 :REM STUNDE HOLEN+DURCH 12 TEILEN 
H2=60*CH2-INTCH2))+M2/12 :REM 24->12 STUNDEN + MINUTENANTEIL 
IF Hi=H2 THEN 730 :REM WERT GEAENDERT 

ZA=HI : ZN=H2 : R=40 

GoSUB 1120 :REM NEUEN ZEIGER SETZEN 

H1=H2 

REM 

REM TAGESANZEIGE: 

REM 

IF FL=0 THEN FL=1 : GOTO 1020 

IF H1<>0 THEN 690 

TF=TA : TA=TA+1 : IF TA=32 THEN TA=1 

TEXT 2,RIGHTSCSTRSCTF),2),190,104,0 :REM ALTEN WERT LOESCHEN 
TEXT 2,RIGHTSCSTRSCTA),2),190,104,0 :REM NEUEN WERT 
GOTO 690 

REM 

REM 

REM ZEIGER NEU ZEICHNEN: 

REM UEBERGABE: 

REM ZA=ALTE ZEIGERPOSITION 

REM ZN=NEUE ZEIGERPOSITION 

REM R =ZEIGERLAENGE 

REM 

IF FL=0 THEN ZW=360/60 : GOTO 1150 :REM ERSTAUFRUF 
CIRCLE 4, ,160,100,R,R,ZW*ZA ‚ZW*ZA 

PLOT 2, TO 160,100 :REM ALTEN ZEIGER LOESCHEN 
CIRCLE 4,,160,100,R,R,ZW*ZN, ZW*ZN 

PLOT 2, TO 160,100 :REM NEUEN ZEIGER SETZEN 
RETURN 

REM 

REM 

REM WECKEN: 

REM 

VOLUME= 15 :REM VOLLE LAUTSTAERKE 

SOUND 1,1,0,1,15,0,0,500 :REM SOUND STIMME 1 

SOUND 2,4,0,1,15,0,0,500 :REM SOUND STIMME 2 

SOUND 3,4,0,1,15,0,0,500 :REM SOUND STIMME 3 

FILTER 0,0,15 :REM FILTEREINSTELLUNG 

POKE 198,0 :REM TASTEN LOESCHEN 

TUNE 1,12,0,5 :REM TON AUF KANAL 1 

TUNE 2,12,1,5 :REM TON AUF KANAL 2 

TUNE 3,12,2,5 :REM TON AUF KANAL 3 

COLOR= X,X :REM BILDSCHIRMFARBEN WECHSELN 
X=X+1 : IF X=16 THEN X=0 

GET A$ : IF A$=tt" THEN 1280 :REM AUF TASTE PRUEFEN 

REM 

REM TON AUS: 

VOLUME= 0 
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1370 SOUND 1,0,0,0,0,0, 
1380 SOUND 2,0,0,0,0,0 
1390 SOUND 3,0,0,0,0,0 
1400 FILTER 7 

1410 COLOR= 0,0 :REM FARBEN WIEDER NORMAL 
1420 RETURN 


1 
1 
1 


TIMERUNNER 





Wenn Sie dieses Programm geladen und gestartet haben, werden Sie 
zunächst einmal nach der aktuellen Uhrzeit gefragt - Ihre Uhr muß 
schließlich erst gestellt werden. Die Uhrzeit geben Sie bitte in folgen- 
dem Format ein: 


hh,mm,ss z.B.: 23,04,59 


Geben Sie also Stunde (hh), Minute (mm) und Sekunde (ss) stets 
zweistellig und jeweils mit Komma abgetrennt ein. Nur so kann Ihre 
Uhr richtig gehen. Sobald Sie nun <return> drücken, wird die genaue 
Uhrzeit übernommen. 


Als Nächstes sollten Sie das Datum des heutigen Tages eingeben (hier- 
bei ist es gleichgültig, ob der angegebene Wert ein oder zweistellig 
ist). Es genügt nur das Tagesdatum (1-31). 


Nach der Bestätigung mit <return> werden Sie nun gefragt, um welche 
Uhrzeit Sie geweckt werden möchten. Geben Sie hier die gewünschte 
Uhrzeit in folgendem Format ein: 
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hh,mm z.B.: 05,15 


Das Format gleicht also dem obigen mit dem Unterschied, daß die 
Angabe der Sekunden fehlt. 


Haben Sie alle dieses Angaben getätigt, beginnt der Computer mit der 
Arbeit. Wie er das macht, soll im folgenden erläutert werden. 


Es wird also eine normale Analog-Uhr mit Stunden-, Minuten- und 
Sekundenzeiger sowie Datumsanzeige in hochauflösender Graphik auf 
den Bildschirm gezaubert. Dabei wird die aktuelle Zeit ständig aus der 
normalen BASIC-Uhr gewonnen. (Wie Sie wissen steht die aktuelle 
Zeit in der Sondervariablen TI$ in der Form hhmmss.) 


Bevor der kontinuierliche Betrieb beginnt, muß zunächst einmal die 
Uhr gezeichnet werden. Dieser Vorgang beginnt in Zeile 310 mit dem 
Einschalten der Graphik. Zeile 360 schreibt eine Überschrift in die 
Graphik. Dabei wird ein Befehl verwendet, den wir erst im nächsten 
Abschnitt besprechen werden. Zerbrechen Sie sich also noch nicht den 
Kopf darüber. Dieser Befehl gibt einfach einen String ab einer be- 
stimmten Koordinate auf dem Graphikbildschirm aus. 


Die zwei Kreise der Uhr werden - wie Sie leicht erkennen - in den 
Zeilen 380/390 gezogen. Um der Uhr ein professionelles Aussehen zu 
geben, soll als Stundenmarke jede Stunde ein langer Strich gezeichnet 
werden. Dazwischen sollen noch einmal 4 kleinere Striche weiter 
unterteilen. Dieses Vorhaben wird in den Zeilen 430-490 in zwei ver- 
schachtelten FOR...NEXT-Schleifen realisiert: 


Dabei zählen wir die Winkelvariable W von O bis 360 in Schritten zu 
360/48 (wir müssen 48 Striche zeichnen) hoch. Zusätzlich wird die Y- 
Variable ständig von 0-3 gezählt. Der Wert dieser Variable ist wichtig 
für die Länge des Striches, der in der FOR..NEXT-Schleife der 
Zeilen 460-480 gezeichnet wird. Die Formel 4+4*INT(Y/3) wird genau 
4, wenn Y nicht 3 ist, INT(Y/3) also Null wird. Ist Y=3, so wird der 
Wert der Formel 8 und ein Strich mit einer Länge von 8 Punkten wird 
gezeichnet. Der Strich wird durch mehrere CIRCLE-Befehle gezeich- 
net. Dabei wird nur an der Stelle, die der Winkel W und der Radius 
62-X angeben ein Punkt gezeichnet (Start- und Endwinkel des 
CIRCLE-Befehls sind gleich). 


Als nächstes folgen die Ziffern. Auch hier wird wieder der bisher un- 
bekannte TEXT-Befehl verwendet. Entlang eines Kreises werden die 
einzelnen Ziffern ausgegeben. Beachten Sie die Konstruktion 
RIGHT$(X$,LEN(X$)-1) in Zeile 560. Hier wird die Zahl in X$ von 
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dem Leerzeichen befreit, das das Commodore-BASIC stets in die 
Zahlen hineinschmuggelt. 


Für die Tagesanzeige wird in Zeile 610 ein Kasten vorbereitet. 


Jetzt geht es richtig los. Die fixen Teile der Uhr sind gezeichnet. Es 
fehlen die Zeiger und das Datum: 


In Zeile 690 wird zunächst getestet, ob die Weckzeit erreicht ist und 
entsprechend verzweigt (s.u.). In Zeile 730 wird nun aus der TI$-Va- 
riable der aktuelle Sekundenwert geholt. Hat sich der Wert im Ver- 
gleich zum bisherigen geändert (Test in Zeile 740), dann muß der Se- 
kundenzeiger um eine Sekunde verschoben werden. Dies erledigt ein 
Unterprogramm ab Zeile 1120. Diesem Unterprogramm werden die 
notwendigen Daten übergeben (alter und neuer Sekunden-, Minuten- 
oder Stundenwert sowie die Länge des Zeigers in R). 


Hier in Zeile 1120 wird nun die Variable ZW initialisiert und direkt 
nach 1150 verzweigt, falls der entsprechende Zeiger das erste Mal 
gezeichnet werden muß. Dann nämlich entfällt das vorherige Löschen 
das alten Zeigers. Da Löschen und Zeichnen durch den Invertierungs- 
modus geschieht, ist dieses Vorgehen notwendig. Interessant in diesem 
Zusammenhang sind die beiden Zeilen 1130 und 1150. Hier wird (wie 
oben beim Zeichnen der Teilstriche) nur ein Punkt eines Kreises an- 
gesprochen (in diesem Fall der Endpunkt eines Zeigers). Dieser Punkt 
wird jedoch nicht gezeichnet. Es wird vielmehr (durch Zeichenmodus 
4) nur der Graphikcursor an diese Stelle bewegt, um in der jeweils 
nächsten Zeile dann als Startpunkt einer Linie zum Mittelpunkt zu 
dienen. Dieses Vorgehen erspart uns eine eigene komplizierte Kreis- 
berechnung. 


Doch wir waren beim Zeichnen des Sekundenzeigers. Dieser Vorgang 
wird mit Zeile 770 abgeschlossen. Hier wird der neue Sekundenwert 
(S2) in den Speicher für den alten Wert (Si) übertragen, um weiter 
oben (Zeile 740) den Vergleichswert zu haben (s.o.). 


Es folgt das Zeichnen des Minutenzeigers. Hier wird nur geprüft, ob 
sich der Minutenwert geändert hat. Ist dies nicht der Fall, dann geht 
es ganz normal weiter zu den Sekunden. 


Ebenso wird mit dem Stundenzeiger verfahren. Hier kommt eine Be- 
sonderheit hinzu. Anders als bei den Sekunden und Minuten tauchen 
hier Werte von O0 bis 23 auf. Diese Werte sind auch noch für zwei 
Uhrumrundungen zuständig. Weiterhin soll der Stundenzeiger nicht 
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von Stunde zu Stunde hüpfen, sondern gleichsam mit dem Minuten- 
zeiger langsam von einer Stundenmarkierung zur anderen "gleiten". 


Dies wird durch die Formeln in den Zeilen 890 und 900 realisiert. In 
der ersten dieser beiden Zeilen wird zunächst einmal der normale 
Stundenwert (0-23) geholt und als Vorbereitung für die nächste Zeile 
durch 12 geteilt. Auf diese Weise erhalten wir bei Stundenwerten von 
0-11 Werte zwischen O0 und 1, bei Stundenwerten von 12-23 Werte von 
zwischen I und 2. In der nächsten Zeile wird durch die Teilformel 
H2-INT(H2) die Vorkommazahl dieses Wertes abgeschnitten, wodurch 
sich nur noch Werte von 0-1 ergeben, die im folgenden mal 12 ge- 
nommen wieder den Bereich O0-Il abdecken. Damit ereichen wir 
genau 1 Uhrumdrehung (statt der ursprünglichen zwei). 


Nun wird in der Formel aber nicht nur mal 12, sondern mal 12 und 
mal 5 gleich mal 60 genommen. Dies wird so gehalten um Werte von 
0-60 zu erhalten (wie Sekunden und Minutenwerte), da sonst unsere 
Zeigerroutine nicht richtig funktionieren würde. Zum guten Schluß 
wird noch der Minutenanteil hinzuaddiert. Da sich die Minuten nur 
auf ein zwölftel der sonstigen Strecke auswirken sollen (nämlich nur 
von einem Stundenteilstrich zum anderen und nicht rund um die 
Uhr), wird auch nur der zwölfte Teil hinzuaddiert. Dieser so entstan- 
dene Stundengesamtwert wird nun wieder genauso behandelt, wie von 
den Minuten und Sekunden bekannt. 


War es gerade Null Uhr oder wurde das Datum noch nicht in das 
Kästchen gezeichnet, dann muß auch das Datum auf den Bildschirm 
gebracht werden, was ab Zeile 980 passiert. Auch hier wieder der 
TEXT-Befehl. 


Der Weckton wird ab Zeile 1220 erzeugt. Da wir es hier fast nur mit 
den bisher noch völlig unbekannten Sound-Befehlen der Supergraphik 
zu tun haben, wollen wir hier nicht näher darauf eingehen. Der Rech- 
ner weckt solange, bis Sie eine beliebige Taste betätigen. Dann geht er 
zur normalen Anzeige über. 


Scheuen Sie sich nicht, Änderungen vorzunehmen. An die Datumsan- 
zeige kann z.B. ein immerwährender Kalender angehängt werden, die 
Uhrzeit könnte zusammen mit dem Datum noch einmal digital ange- 
zeigt werden. Vielleicht schließen Sie ja auch Ihre Deckenbeleuchtung, 
Ihr Radio und Ihre Kaffeemaschine an den Rechner an, die alle zur 
gleichen Zeit eingeschaltet werden etc. 
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2.7.3. Einige Anwendungen 


Im folgenden werden wir Ihnen wieder einige Spielereien de- 
monstrieren, die Sie zu neuen Programmiererhöhenflügen anregen 


sollen. 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 


REM ArHchee ee 


REM ** “% 
REM ** CIRCLE-DEMOS ** 
REM *%* “x 
REM aachen 
REM 

GMODE 0,1 : GCLEAR : SCOL= 0,0 
REM 

REM Harrer 

REM ** “x 

REM ** ALPHORN ** 

REM ** “r 

REM Haar hehe ee ee 

REM 


FOR X=1 TO 119 STEP 2 

CIRCLE ‚,1.3*X+10,50*SINCX/30- .2)+X+10,X/2+X/8,X/2 
NEXT X 

PLOT ‚130,105 TO 270, 50 

PLOT ‚130,110 TO 280,100 

PLOT ‚130,115 TO 270,150 


GOSUB 1040 

REM 

REM Haren 
REM ** r* 
REM ** DEMO 2 ** 
REM ** “% 
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360 REM Krk 

370 REM 

380 GCLEAR : COLOR= 2,2 
390 FOR X=0 TO 159 STEP 4 
400 CIRCLE ‚,160,100,X,30 
410 CIRCLE ‚,160,100,80,X/2 


420 NEXT X 

430 GOSUB 1040 

440 REM 

450 REM Wk 
460 REM ** ** 
470 REM ** DEMO 3 ** 
480 REM ** x* 
490 REM Krk 
500 REM 


510 GCLEAR : COLOR= 8,8 

520 FOR X=0 TO 100 STEP 8 
530 CIRCLE ‚,160,100,X,100-X 
540 NEXT X 

550 GOSUB 1040 





560 REM 

570 REM Weile 
580 REM ** ** 
590 REM ** DEMO 4 ** 
600 REM ** x 
610 REM Wir 
620 REM 


630 GCLEAR : COLOR= 9,9 
640 FOR X=1 TO 90 STEP 2 
650 CIRCLE ‚X/1.8,X+10,X+10,X,X,%X,X+115 
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660 NEXT X 

670 GOSUB 1040 

680 REM 

690 REM Wr 
700 REM ** ** 
710 REM ** DEMO 5 ** 
720 REM ** ** 
730 REM Wr 
740 REM 


750 GCLEAR : COLOR= 11,11 

760 FOR 2=1 TO 10 

770 FOR X=1 TO 359 STEP 10 

780 CIRCLE 2,90,260-X/2,100,20,50,360-X,359-X 
790 CIRCLE 2,90,260-X/2,100,20,50,360-X,359-X 
800 NEXT X 

810 NEXT 2 

820 CIRCLE 2,90,160,100,20,40,359,358 

830 GOSUB 1040 


840 REM 

850 REM Hr 
860 REM ** "r 
870 REM ** KLEEBLATT ** 
880 REM ** wr 
890 REM Krk 
900 REM 


910 GCLEAR : COLOR= 11,11 

920 FOR X=1 TO 359 STEP 2 

930 A=35*SIN(X/15- .5)+40 

940 CIRCLE 4,,160,100,A,A,X,X 

950 PLOT „ TO 160,100 

960 NEXT X 

970 CIRCLE ,,154,150,15,50,20,180 
980 GOSUB 1040 

990 END 

1000 REM 

1010 REM 

1020 REM WARTESCHLEIFE: 

1030 REM 

1040 FOR T=1 TO 3000 

1050 GET A$ : IF A$="" THEN NEXT T 
1060 RETURN 
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Dies ist nur ein winziger Auszug aus all den vielen Möglichkeiten, die 
Ihnen der CIRCLE-Befehl bietet. Wichtig auch hierbei ist, daß Sie 
persönlich möglichst viele Veränderungen an den Parametern usw. 
vornehmen, um einmal die verschiedenen Reaktionen kennenzulernen. 
Setzen Sie doch einmal statt Zeile 530 folgendes ein: 











530 CIRCLE „,„160,X+100,X,100-X 


Nur eine kleine Veränderung und schon ändert sich das ganze Bild. 
Vielleicht versuchen Sie auch dies: 


530 CIRCLE ‚,160,X+110,X,100-X 


Eben nur fast identisch! 

Das Prinzip ist oft einfach: die verschiedenen Parameter (Mittelpunkt, 
Radien, Start- und Endpunkte etc.) werden einfach auf bestimmte 
Kurven (oft Sinus-Kurven, aber auch Geraden wie im gerade gezeig- 
ten Beispiel) gelegt. Einige Parameter bleiben fix, andere variabel. Oft 
entstehen solche Figuren nur durch spielerisches Probieren, oft durch 
kleine mathematische Überlegungen. 
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2.7.4 CAD-Zeichner: 3.Teil 


Wir haben einen neuen Befehl kennengelernt, also bauen wir ihn auch 
gleich in unseren CAD-Zeichner ein. Diesmal sind es nur ein paar 
wenige Zeilen, die hinzukommen, um unser Vorhaben in die Tat 
umzusetzen, da alles bereits vorbereitet ist. Zwei Zeilen sind zu 
ändern (1730, 1740) und nur 8 weitere hinzuzufügen. Laden Sie also 
die bisher aktuellste Version ein (s. CAD-Zeichner 2.Teil) und tippen 
ganz einfach die folgenden Zeilen ein: 


510 IF A$="K" THEN FZ=4 : GOSUB 1450 :REM KREIS 


1455 IF FZ=4 THEN X=10 : Y=189 :REM KREIS 

1465 SL=2 : WA=0 : WE=359 :REM INITIALISIERUNG CIRCLE 

1730 ON FZ GOTO 1800,1900,1900,2050 :REM SPRUNG ZU: LINIE, FRAME, FILL, 
CIRCLE 

1740 ON FZ GOTO 1800,1900,2000,2050 :REM SPRUNG ZU: LINIE, FRAME, FILL, 
CIRCLE 

2020 REM 

2030 REM 


2040 REM KREIS ZEICHNEN/LOESCHEN: 
2050 CIRCLE ZM,SL,X1,Y1,X2,199-Y2,WA,WE 
2060 RETURN 


In Zeile 510 wird aus dem Hauptprogramm mit dem FLag FZ=4 in 
die Objekt-Routine gesprungen. Dort sorgen die beiden Zeilen 
1455/1465 dafür, daß die Parameter für den Kreis korrekt initialisiert 
werden, da hier X und Y den Radius des Kreises steuern. Die Zeilen 
1730/1740 sind ebenfalls für ein viertes Objekt modifiziert worden. 
Die zweitausender Zeilen schließlich zeichnen, löschen oder 
invertieren einen Kreis mit den entsprechenden Parametern. 


Im Hauptprogramm legen Sie also mit dem normalen Graphikcursor 
den Mittelpunkt des Kreises oder der Ellipse fest. Nach der Taste "K" 
für Kreis können Sie nun mit den Cursortasten die beiden Radien 
verändern. Dabei sollten Sie aufpassen, daß Sie nicht in zu große oder 
negative Bereiche stoßen, da Sie sonst Unsinn auf dem Bildschirm 
erhalten. Bei fl wird der Kreis gezeichnet und es wird zurück zum 
Hauptprogramm gesprungen. Bei f3 wird der Mittelpunkt beibehalten 
und Sie können einen zweiten Kreis zeichnen. Ansonsten bleiben alle 
anderen Funktionen erhalten. 
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Zeile 1465 ist absichtlich eingesetzt worden, um Ihnen die Möglichkeit 
zu schaffen, den CAD-Zeichner zu erweitern. Sie könnten 
beispielsweise im Objekt-Modus Start- und Endpunkt sowie die 
Seitenlänge des CIRCLE-Befehls mit anderen Tasten steuern. Hierzu 
bedarf es nur einer kleinen Erweiterung (zusätzliche Tastenabfrage 
und Änderung der Parameter). Vielleicht gestalten Sie ja die gesamte 
Kreisroutine komfortabler. 


2.8 Text in hochaufgelöster Graphik 


Was uns bisher stets gestört hat, ist die mangelnde Kommunikation im 
Graphikmodus. Das hat nun ein Ende. Von nun an werden wir auch 
Texte in die Graphik bringen können, an jede beliebige Stelle. Hierzu 
steht uns ein Befehl zur Verfügung, der uns bereits von der 
hochauflösenden BASIC-Uhr her bekannt sein sollte: 


2.8.1 Der TEXT-Befehl 


TEXT 


Befehl: TEXT zm,str$,x,y,m 
Beispiel: TEXT 0,"HALLO",100,130,0 
Parameter: zm: Zeichenmodus 
str$:zu schreibender Text 
x:  x-Koordinate 
y:  y-Koordinate 
m: Textmodus (0,1) 
Funktion: Setzen (Loeschen etc.) eines Textes als Graphik 


Ihre Graphiken stehen von nun an nicht mehr anonym im Raum, Sie 
können sie jetzt beschriften oder Erklärungen abgeben. Sie beginnen 
bei x,y und schreiben Ihren unter "str$" abgelegten Text in die 
Graphikseite. Sind Sie am Ende einer Zeile, stoppt der Befehl, und Sie 
müssen neue Anfangskoordinaten angeben. 


m ist ein Parameter, der den Textmodus auswählt: 


0: Groß/Graphikmodus 
1: Groß/Kleinschrift 


m 
m 
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Mitten im Text können Sie also Groß/Kleinschrift und Gra- 
phikzeichen miteinander gleichzeitig kombinieren. Unter Verwendung 
von (rvs on) und (rvs off) steht Ihnen der gesamte Zeichenvorrat des 
CBM 64 zur Verfügung. 


SUPERGRAPHIK 64 





100 REM RR 


110 REM ** x 
120 REM ** TEXT, TEXT, TEXT, ...  ** 
130 REM ** x 
140 REM RR a a a ar 
150 REM 


160 PRINT CHRSC147) :REM BILDSCHIRM LOESCHEN 
170 FRAME ‚3,5,5 TO 75,45 

180 TEXT ‚"SUPER",‚20,18,0 

190 TEXT „"GRAPHIK",12,28,0 

200 TEXT ‚"64",31,38,0 

210 WAIT 198,255 

220 GMODE 0,1 : GCLEAR : SCOL= 0,0 

230 FRAME 3,9,80,80 TO 230,120 

240 TEXT ‚"SUPERGRAPHIK 64",95,103,0 

250 POKE 198,0 : WAIT 198,255 


SUPER 
GRAPHIK 


4 





Ein Rahmen wird gezogen und der Text "SUPERGRAPHIK 64" 
hineingeschrieben: In LGR, in HGR. 
Versuchen Sie es doch einmal mit Ihrem Namen! 
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100 REM Kara 

110 REM ** ar 

120 REM ** ZUFALLSBUCHSTABEN ** 

130 REM ** “%. 

140 REM Hr 

150 REM 

160 GMODE 0,1 : GCLEAR : SCOL= 0,0 
170 FOR X=1 TO 1000 


180 ST$=CHRECRND(1)*224+32) :REM ZUFALLSBUCHSTABEN 
190 TEXT „ST$,RND(1)*320,RNDC1)*200,RND(C1)*2 
200 NEXT X 


210 WAIT 198,255 


Wie Sie sehen, können Sie auch einzelne Buchstaben und einfache 
Stringspeicher für str$ einsetzen. Damit bleiben Ihnen alle 
Möglichkeiten offen. 


2.8.2 Text nach Graphik - geht das? 


Klar geht das! Wir können nicht nur einzelne Strings in die Graphik 
zeichnen, wir können sogar die gesamte Text-Seite in die Graphik 
übertragen. Nach diesem Vorgang meinen Sie, es habe sich überhaupt 
nichts verändert, wenn Sie aber einmal mit den normalen 
Graphikbefehlen in diesem Bild "herumfuschen", werden Sie sehen, 
was sich getan hat. Aber eins nach dem anderen: 


TRANS 


Befehl: TRANS m 

Beispiel: TRANS I 

Parameter: m: Zeichensatz (0/1) 

Funktion: Kopieren der Textseite in die Graphik 


Der TRANS-Befehl ermöglicht Ihnen, Ihre gesamte Textseite mit allen 
Zeichen, Graphiken und Farben etc. als hochauflösende(!!!) Graphik 
darzustellen. Sie können also auf einfachste Art und Weise Ihre 
Textseite erstellen und dann in HGR (MC) weiterbearbeiten. Eine 
weitere Möglichkeit, die Ihnen dieser Befehl bietet und auf die wir 
später noch zurückkommen werden, ist die Erstellung einer Hardcopy 
der Textseite auf jedem Drucker. Ist das nichts? 
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Mit dem Parameter m geben Sie an, in welchem der zwei Zeichensätze 
die Übertragung erfolgen soll: 


m=0 : Groß-/Graphiksatz 
m=| : Groß-/Kleinschrift 


Schreiben Sie doch einfach einmal den gesamten Text-Bildschirm mit 
irgendwelchem Unsinn voll, verwenden Sie dabei soviele Farben wie 
möglich und die unterschiedlichsten Zeichen. Sind Sie mit Ihrem Werk 
zufrieden, dann geben Sie ein: 


TRANS O : GMODE 0,1 : PLOT ‚10,10 TO 300,190 


Ihre Textseite wird in Graphik übertragen, geradezu eingefroren und 
quer über den Bildschirm ein dicker Strich gezogen. Wollen Sie wieder 
zurück, geben Sie einfach blind ein: 


GMODE 0,0 


Geben Sie doch einmal folgende Zeile zusätzlich in das Programm 
vom vorherigen Kapitel (TEXT, TEXT, TEXT, ...) ein: 


225 TRANS 0 


2.8.3 Vergrößerung, Verzerrung, Drehung 
Wir können bereits schöne Buchstaben auf den Bildschirm zeichnen. 
Doch mit relativ einfachen Mitteln sind wir in der Lage, diese 


Buchstaben mathematisch zu "bearbeiten". Sehen wir uns doch einmal 
ein paar Programme an und besprechen dann die einzelnen Effekte: 


a.) Vergrößerung: 


100 REM We a a a hr 


110 REM ** "rn 

120 REM ** VERGROESSERUNG ** 

130 REM ** a 

140 REM Pre 

150 REM 

160 GMODE 0,1 : GCLEAR : SCOL= 0,0 

170 TEXT „"&",0,7,0 :REM VERGROESSERUNGSOBJEKT 
180 X1=10 : Y1=40 :REM STARTKOORDINATEN 


190 FOR V=.5 TO 5.5 STEP .5 :REM VERGROESSERUNGSFAKTOR 
200 xX1=X1+V*8 : Y1=Y1 :REM AKTUELLE STARTKOORDINATEN 
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210 FOR X0=0 TO 7 STEP .99/V 
220 FOR YO=0 TO 7 STEP .99/V 


230 PLOT T TEST,4,X0,YO 

240 IF TEST=1 THEN : PLOT ‚X1+X0*V,Y1+YO*V 2 GOTO 260 
250 REM PLOT 1,X1+X0*V,Y1+YO*V 

260 NEXT YO 

270 NEXT XO 

280 NEXT V 

290 REM 

300 REM wre‘ 

310 REM ** “r 

320 REM ** VERGROESSERUNG 2 ** 

330 REM ** “r 

340 REM were 

350 REM 

360 X1=10 : Y1=120 :REM STARTKOORDINATEN 

370 v=1 :REM STARTVERGROESSERUNGSFAKTOR 
380 FOR T=1 TO 11 :REM ANZAHL BUCHSTABEN 


390 xX1=X1+V*9 : Y1=Y1 :REM AKTUELLE STARTKOORDINATEN 
400 FOR X0=0 TO 7 STEP 1/(2*V) 
410 V=V+.01 


420 FOR YO=0 TO 7 STEP .9/V 

430 PLOT T TEST,4,X0,YO 

440 IF TEST=1 THEN : PLOT ‚X1+X0*V,Y1+YO*V : GOTO 460 
450 REM PLOT 1,X1+X0*V,Y1+YO*V 

460 NEXT YO 

470 NEXT XO 

480 NEXT T 


490 WAIT 198,255 
Nur die Ruhe, wird alles erklärt! Was haben wir gemacht? Nun, im 
ersten Teil dieses Programmes haben wir ein Zeichen (in diesem Fall 
das kaufmännische "und", Sie können jedoch jedes beliebige Zeichen 
einsetzen) kontinuierlich vergrößert. Dabei diente uns ein normales 
Zeichen links oben in der Ecke quasi als Vorlage. 


Zunächst einmal wird das betreffende Zeichen eben in besagte Ecke 
geschrieben (Zeile 170). Dann werden drei ineinander verschachtelte 
FOR...NEXT-Schleifen eröffnet. Die äußere mit der Laufvariablen V 
ändert bei jedem Durchlauf den Vergrößerungsfaktor V um 0,5 (Zeile 
190). Die Koordinaten, an denen das vergrößerte Zeichen starten soll 
(angegeben wird stets der obere linke Punkt des Zeichens) wurden 
bereits in Zeile 180 initialisiert und werden nun in Zeile 200 soweit 
verändert, daß jedes Zeichen genügend Platz hat, egal wie groß es 
wird. 


”SSSSEE EHE 
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Interessant sind nun die beiden folgenden FOR...NEXT-Schleifen. 
Hier wird jeder Punkt des Vorlagenzeichens (8x8-Matrix) einzeln 
abgefragt. Dabei erhöht die äußere Schleife ständig die Spalte X0, die 
innere die Zeile YO. Wenn Sie kritisch sind, werden Sie fragen, wieso 
dabei Zeile und Spalte nicht jedesmal um I erhöht werden. Das wäre 
rein theoretisch möglich. In diesem Fall aber würde zwar das Zeichen 
vergrößert, es hätte aber genau so viele Punkte (64) wie das 
Originalzeichen. Die einzelnen Punkte lägen dann also nur weiter 
auseinander. Das kann ja nicht unser Ziel sein. 


Tatsächlich abgefragt wird jeder einzelne der 8x8=64 Punkte unseres 
Zeichens in Zeile 230. Hier wird die Variable TEST gleich 0, wenn an 
der betreffenden Stelle kein und gleich I, wenn dort ein Punkt gesetzt 
ist. Ist ein Punkt gesetzt, so muß natürlich an der entsprechenden 
Stelle des vergrößerten Zeichens ebenfalls ein Punkt gesetzt werden. 
Dies geschieht in Zeile 240. Hier findet auch die Vergrößerung statt. 
Die Zeichenkoordinaten X0 und YO werden mit dem 
Vergrößerungsfaktor malgenommen und zu der Startkoordinate 
(X1/Y1) hinzuaddiert. 


Ist der Punkt des Zeichens nicht gesetzt, so erfolgt in der abge- 
druckten Version nichts. Wenn Sie aber das "REM" aus Zeile 250 
entfernen, so wird an der entsprechenden Stelle ein Punkt gelöscht. 
Das kann in manchen Fällen wichtig sein, wenn es auch in unserem 
Beispiel keinen Unterschied bewirkt. 


& 


sSBEEBBBAH 5 #5 


Das Prinzip ist also klar: Man schreibt (vielleicht später unsichtbar in 
schwarz) ein Zeichen in den Graphikbildschirm und tastet mit der 
Test-Funktion des PLOT-Befehls jeden einzelnen Punkt der 
Zeichenmatrix ab. Mit den gewonnenen Koordinaten der gesetzten 
Punkte des Zeichens können wir nun machen, was wir wollen: Wir 
können vergrößern, verzerren, spiegeln, drehen, projizieren und so 
weiıter. 
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Im zweiten Programmteil wird nicht jedes Zeichen mit einem für das 
Zeichen konstanten Faktor vergrößert, der Vergrößerungsfaktor nimmt 
vielmehr auch innerhalb des Zeichens zu. Ein Zeichen wird also 
hinten größer also vorne. Man erreicht hierdurch eine gleitende 
Vergrößerung. 





b.) Spiegelung: 


100 REM Were 


110 REM ** x 

120 REM ** SPIEGELUNG ** 

130 REM ** ** 

140 REM wur 

150 REM 

160 GMODE 0,1 : GCLEAR : SCOL= 0,0 

170 TEXT „"R",0,7,0 :REM SPIEGELOBJEKT 
180 X1=160 : Y1=100 :REM STARTKOORDINATEN 
190 X2=150 : Y2= 90 :REM STARTKOORDINATEN 


200 XM=(X2+X1)/2 
210 YM=(Y2+Y1)/2 
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220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 


PLOT ‚XM, 0 TO XM,199 
PLOT , 0,YM TO 319,YM :REM 
REM 
FOR X0=0 TO 7 
FOR YO=0 TO 7 
PLOT T TEST,4,X0,YO 
IF TEST=O THEN 330 
PLOT ‚X1+X0,Y1+YO :REM 
PLOT ‚X1+X0,Y2-YO :REM 
PLOT ‚X2-X0,Y1+YO :REM 
PLOT ‚X2-X0,Y2-YO :REM 
NEXT YO 
NEXT X0O 
WAIT 198,255 
REM 
RER 
REM ** ar 
REM ** SPIEGELUNG 2 ** 
REM ** ar 
REM 
REM 
GCLEAR : SCOL= 0,0 
TEXT „"SPIEGELUNG",‚20,10,0 
CIRCLE ‚,50,70,40,30 
PLOT ,„ 5,25 TO 140,60 
FRAME 3,4,120,70 TO 158,98 
REM 
XA=160 : YA=100 :REM 
PLOT ‚XA, 0 TO XA,199 
PLOT , 0,YA TO 319,YA :REM 
REM 
FOR X0=0 TO XA-1 :REM 
FOR YO=0 TO YA-1 
PLOT T TEST,2,X0,YO 
PLOT 2,X0,YO 
IF TEST=O THEN 610 
PLOT „, X0,2*YA-YO 
PLOT „2*XA-X0, yo 
PLOT ‚2*XA-X0,2*YA-YO 
NEXT YO 
NEXT X0O 
POKE 198,0 : WAIT 198,255 


SPIEGELACHSEN 


NORMAL 
X-GESPIEGELT 
Y-GESPIEGELT 

X + Y-GESPIEGELT 


SPIEGELACHSENNULLPUNKT 


SPIEGELACHSEN 


FELD ABTASTEN 


:REM X-GESPIEGELT 
:REM Y-GESPIEGELT 
:REM X + Y-GESPIEGELT 


113 


114 Das Supergraphikbuch zum C64 


Interessante Dinge lassen sich durch Spiegelungen erreichen. Das 
abgedruckte Programm zeigt Ihnen, wie Sie dabei vorgehen können. 


Im ersten Programmteil beschränken wir uns zunächst einmal auf die 
Spiegelung eines einzigen Buchstabens. Dabei wenden wir die gleiche 
Technik an, wie wir sie bereits beim Vergrößern von Buchstaben 
kennengelernt haben: Wir schreiben einen Buchstaben (hier "R") in die 
obere linke Ecke des Bildschirms (Zeile 170) und tasten ihn Punkt für 
Punkt ab (Zeile 270). Da wir diesen Buchstaben jeweils um die 
Waagerechte, die Senkrechte und um beide gleichzeitig spiegeln 
möchten, legen wir zunächst einmal die Koordinaten fest, bei denen 
die gespiegelten Buchstaben erscheinen sollen (Zeilen 180/190). Dabei 
wird der originale Buchstabe nach (160/100) kopiert. Um Ihnen die 
Spiegelung etwas zu verdeutlichen, werden in den Zeilen 220 und 230 
noch kurz die Spiegelachsen eingezeichnet. 


Dann geht es richtig los. Wie bekannt werden alle Punkte des Zeichens 
abgetastet. Die gesetzten Punkte werden dann ab Zeile 290 


- original nach X1,Y1 kopiert 
- um die x-Achse gespiegelt 
- um die y-Achse gespiegelt 
- um beide Achsen gespiegelt 


Dies geschieht durch Addition bzw. Subtraktion der einzelnen 
Koordinaten von den Startkoordinaten. Wenn Sie sich die Prozedur 
anschauen, werden Sie erstaunt sein, wie mathematisch simpel eine 
solche Spiegelung ist. 


So 
2|% 
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Im zweiten Teil wird die Spiegelung nun auf einen ganzen 
Bildschirmbereich ausgedehnt. Der Bildschirm wird durch zwei 
Spiegelachsen in 4 gleich große Teile geteilt (Zeilen 500 und 510). Das 
obere linke Viertel dient dabei als Vorlage und wird jeweils um die 
Achsen in die drei anderen Viertel gespiegelt. 


Dazu werden zunächst einmal diverse Objekte in besagten Bild- 
schirmbereich eingezeichnet (Zeilen 440-470). Dann wird das gesamte 
Feld in zwei FOR...NEXT-Schleifen (Zeilen 530-620) Punkt für Punkt 
abgetastet (wie sonst die Zeichenmatrix). Für jeden gesetzten Punkt 
innerhalb dieses Feldes wird in den anderen drei Feldern jeweils an 
der richtigen Stelle ebenfalls ein Punkt gesetzt. Sie müssen sich etwas 
in die Formeln der Zeilen 580-600 hineindenken. Sie werden sehen, es 
ist recht einfach. Um Ihnen die Sache nicht zu langweilig werden zu 
lassen, wird gleichzeitig mit dem Punkt-Test in Zeile 550 ein Punkt 
invertiert gezeichnet, der natürlich in der folgenden Zeile wieder ge- 
löscht werden muß. Auf diese Weise können Sie stets den kleinen 
abtastenden Punkt: beobachten, der auf dem Original hin- und 
herläuft. 


Die beiden gerade besprochenen Programmteile zur Spiegelung sollten 
Ihnen als Vorlage für Ihre eigenen Spiegeleien dienen. Gerade die 
Spiegelung zeigt mit geringem Arbeits- und Zeitaufwand sehr schöne 
Effekte. 


SPIEGELUNG MUA1F3931492 





ZbIELCETNME INNI13931IdS 
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c.) Drehung: 


100 REM Krk 


110 REM ** “r 

120 REM ** DREHUNG ** 

130 REM ** “r 

140 REM rk 

150 REM 

160 GMODE 0,1 : GCLEAR : SCOL= 0,0 

170 TEXT ‚"R",0,7,0 :REM DREHOBJEKT 

180 X1=10 : Y1=40 :REM STARTKOORDINATEN 

190 v=1.5 :REM VERGROESSERUNGSFAKTOR 


200 P1=3.14159265 

210 FOR D=0 TO PI STEP 22.5*P1/180 
220 xX1=X1+30 

230 FOR X0=0 TO 7 STEP 1/(V+.5) 


240 FOR YO=0 TO 7 STEP 1/(V+.5) 
250 PLOT T TEST,4,X0,Y0 
260 IF TEST=1 THEN : PLOT ‚X1+V*CX0*COS(D)- 


YO*SINCD)),Y1+V*CXO*SINCD)+YO*COS(D)) 
270 NEXT YO 

280 NEXT XO 

290 NEXT D 


Bisher haben wir die einzelnen Zeichen stets aufrecht und wohl- 
geformt vor uns auf dem Bildschirm erscheinen sehen (von der 
Spiegelung einmal abgesehen). Wir können natürlich gleichfalls jedes 
beliebige Objekt in alle Richtungen drehen. Daß wir uns in diesem 
Abschnitt, wie auch bei den vorherigen meist auf Buchstaben 
versteifen, soll nicht heißen daß z.B. die Drehung oder Vergrößerung 
nicht auch auf Linien, Kreise, Ellipsen, Häuser oder ganze Bilder 
übertragbar wären, wie wir dies bereits bei der Spiegelung 
demonstriert haben. Doch nichtsdestotrotz bleiben wir auch bei diesem 
Beispiel bei unserem Lieblingsobjekt, den Buchstaben. 


RRen m» + > 


Das obige Programm zeichnet eine Reihe von "R" jeweils um 22,5 
Grad verdreht auf den Bildschirm. Die Abtastroutine in den Zeilen 
230-280 sollte Ihnen inzwischen geläufig sein. Lediglich die Formel in 
Zeile 260, die verwendet wird, um die abgetasteten Punkte gedreht 
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wieder aufzuzeichnen ist Ihnen bisher unbekannt. Das ganze wird 
Ihnen plausibler, wenn Sie die Formeln zum Drehen eines Punktes um 
den Winkel D mit Drehzentrum im Koordinatennullpunkt sehen: 


’= x*cos(D)-y*sin(D) 
y’= x*sin(D)-y*cos(D) 


Dabei bedeuten: 


x,y! Die Koordinaten des nicht gedrehten Punktes 
x’,y’: Die Koordinaten des gedrehten Punktes 
D: Der Drehwinkel um den Nullpunkt 


Genau diese Formeln finden Sie in der betreffenden Zeile angewandt. 
Dort werden die Werte noch mit einem Vergrößerungsfaktor V 
malgenommen und zu den Startkoordinaten X1,Y1 hinzuaddiert. Sie 
werden sehen, daß der Prozess des Zeichnens bereits wesentlich länger 
dauert, als wir es bisher gewohnt waren. 
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2.8.4 Text im Raum 


Zum Abschluß unserer Buchstabenmanipulationen möchten wir Ihnen 
noch eine recht schöne Anwendung vorstellen. Dabei wird ein ganzer 
Schriftzug auf eine Kugel projiziert. Den Schriftzug können Sie 
selbstverständlich durch Ihren eigenen Namen ersetzen. Bitte haben 
Sie etwas Geduld. Das Zeichnen dieses Bildes dauert einige Zeit. 
Machen Sie vielleicht in der Zwischenzeit einige Besorgungen, Ihr 
Rechner wird ein paar Stunden beschäftigt sein. Die Anregung zu 
diesem Programm hat der Autor dem wirklich hervorragenden und für 
Leute mit Sinn fürs Schöne empfehlenswerten Buch "Spiele mit 
Computergrafik" von Norbert Teitz (Hagemann-Verlag) entnommen. 


100 REM WR a a a a a a a 


110 REM ** "% 
120 REM ** KUGELPROJEKTION ** 
130 REM ** “. 
140 REM HR 
150 REM 

160 GMODE 0,1 : GCLEAR : SCOL= 0,0 
170 SI=SINC1) : CO=COS(1) 

180 S$="SUPERGRAPHIK-64/" 


190 BO=-1 

200 FILL 1,0,0 TO 7,7 :REM BUCHSTABEN LOESCHEN 
210 A=A+1 : IF A>LENCS$) THEN A=1 :REM NAECHSTER BUCHSTABE 
220 TEXT ‚MID$(S$,A,1),0,7,0 :REM AUSGEBEN 

230 BO=B0+0.008/COS(BO) :REM WINKELWERTE FUER KUGEL 


240 LO=L0+0.2 /COS(BO) 

250 IF B0>1.3 THEN 420 

260 FOR X0=0 TO 7 STEP 0.5 
270 FOR YO=0 TO 7 STEP 0.5 
280 PLOT T TEST,4,X0,7-YO 
290 IF TEST=0 THEN 390 
300 B=80+0.02*YO 

310 L=L0+0.02/C0S(BO)*X0 
320 X=SIN(L)*COS(B) 

330 Y=COS(L)*COS(B) 

340 Z=SIN(B) 

350 X1= Y*CO+Z*SI 

360 Y1=-Y*SI+Z*CO 


370 IF X1<O THEN 200 :REM UNSICHTBAR 
380 PLOT ,160+100*X,100- 100*Y1 

390 NEXT YO 

400 NEXT X0 


410 GOTO 200 
420 WAIT 198,255 
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2.8.5 CAD-Zeichner: 4.Teil 


Natürlich darf ein so wichtiger Befehl wie TEXT nicht in unserem 
CAD-Zeichner fehlen. Wir begnügen uns hier mit der reinen 
Implementierung des Befehls. Sie können natürlich nach Lust und 
Laune Gebrauch von Spiegelung, Drehung, Vergrößerung machen, wie 
es sich für ein anspruchsvolles CAD-Programm gehört. 


Wie immer geben wir hier nur die Zeilen an, die neu hinzukommen 
bzw. die sich ändern. Sie werden sich wahrscheinlich schon denken 
können, daß es sich hierbei wieder um recht wenige Zusätze handelt, 
da prinzipiell bereits alles für eine Erweiterung vorbereitet ist. Doch 
schauen Sie selbst. 


520 IF A$="T THEN FZ=5 : T$="n ; GOSUB 1450 : REM TEXT SCHREIBEN 

1640 IF (A>=32 AND A<=127) OR A>=160 THEN IF LENCT$)<=40 THEN T$=T$+A$ : 
REM TEXT 

1730 ON FZ GOTO 1800, 1900,1900,2050,2100 :REM SPRUNG ZU: LINIE, FRAME, F 
Til 5. 

1740 ON FZ GOTO 1800,1900,2000,2050,2100 :REM SPRUNG ZU: LINIE, FRAME, F 
ILL, ... 

2070 REM 

2080 REM 

1090 REM TEXT ZEICHNEN/LOESCHEN: 

2100 IF T$="m THEN:PLOT ZM,X2,Y2 : GOTO 2120 

2110 TEXT ZM,T$,X2,Y2,1 

2120 RETURN 


Viel braucht hier nicht gesagt werden, wenn Sie bereits die früheren 
Versionen dieses Programmes aufmerksam beobachtet haben. Durch 
Zeile 520 wird Ihnen im Hauptprogramm durch Druck auf die Taste 
"T" ermöglicht, normalen Text mit Groß- und Kleinbuchstaben in Ihre 
Graphik einzugeben. Dabei sind alle Zeichen im Groß-/Klein-Modus 
zugelassen (Zeile 1640). Der Text wird in T$ gespeichert und in Zeile 
2110 ausgegeben. Mit den Cursortasten können Sie nun die Position 
des gesamten Strings auf dem Bildschirm hin- und herbewegen. 


Leider können Sie bereits eingetippte Buchstaben nicht mehr editieren. 
Haben Sie sich vertippt, dann hilft nur noch ein Betätigen der DEL- 
Taste und der gesamte String ist gelöscht. Hier könnten Sie durch ein 
paar wenige zusätzliche Befehle Abhilfe schaffen. 


122 Das Sunergraphikbuch zum C64 


Die Eingabe von <rvs on> und <rvs off> zur Invertierung der 
Buchstaben wäre eigentlich möglich, wurde hier aber nicht erlaubt. 
Das können Sie nachholen. Dazu müssen Sie den IF-Ausdruck in Zeile 
1640 erweitern. 


Ich bin sicher, die Erweiterung durch den TEXT-Befehl wird Ihnen 
sehr viel Freude bereiten. 


2.9 Shapes, schon ’mal gehört? 


Shapes sind selbständige kleine Graphiken, die softwaremäßig 
unabhängig von der übrigen Graphik auf den Bildschirm gezeichnet 
werden. Sie können auf dem Bildschirm bewegt und eventuell sogar 
vergrößert und gedreht werden. Es gibt zwei verschiedene Arten von 
Shapes. Bei der einen wird das gesamte Shape in einer n mal m 
Punktematrix untergebracht - etwa vergleichbar mit einer 
Buchstabenmatrix in HGR -, die andere - in der Supergraphik 
verwirklichte - Möglichkeit bedient sich sogenannter Zeichenvektoren. 
Die besagte Figur wird definiert durch eine Reihe von Vektoren und 
Punktbefehlen, die jeweils einen Graphikcursor bewegen und an 
definierten Stellen Punkte setzen. 


Das Ganze sieht also so aus: Sie geben mit dem Befehl zum Zeichnen 
eines Shapes die Startkoordinaten an, an die der Graphikcursor gesetzt 
wird. Von diesem Punkt ausgehend können Sie nun den Graphikcursor 
einen Punkt bzw. eine Einheit nach rechts, links, oben oder unten 
bewegen. Soll an dieser Stelle ein Punkt gesetzt werden, so geben Sie 
dies in dieser Definition an. Im Shape werden dann alle direkt neben- 
oder übereinander liegenden Punkte miteinander verbunden. So 
können Sie ein recht komplexes Gebilde konstruieren, das Sie zudem 
noch vergrößern und drehen können. Aber sehen Sie selbst: 
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DRAW 


Befehl: DRAW zm,3str$ ON x,y 
Beispiel: DRAW 2,A$ ON 160,100 
Parameter: zm: Zeichenmodus 
str$:Definitionsstring 
x:  x-Koordinate 
y:  y-Koordinate 
Funktion: Setzen (Loeschen etc.) einer frei definierbaren Figur 


Überlegen Sie sich, welche Möglichkeiten Ihnen dieser Befehl gibt! Sie 
können eine Figur beliebiger Ausdehnung frei definieren (in Form des 
Strings str$) und jederzeit an der gewählten x,y-Koordinate auf dem 
Bildschirm erscheinen lassen, weiterbewegen, vergrößern und rotieren 
lassen. Bei vielen - auch recht teuren - Computern ist dies die einzige 
Möglichkeit, bewegliche Figuren in z.B. Spielen etc. einzusetzen. 
Vorteil dieser Figurendefinition ist die Möglichkeit, immer wieder 
auftauchende Figuren einfach und bequem einmal zu definieren und 
immer wieder zu zeichnen. 


Wie macht man das? Nun, zunächst einmal muß die Figur definiert 
werden. Dies geschieht sehr einfach durch Bewegen des unsichtbaren 
Graphikcursors um jeweils einen Punkt (eine Einheit) in eine der vier 
Grundrichtungen nach oben, unten, rechts, links. Jeder Richtung ist 
eine Ziffer zugeordnet: 
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0 = hoch 
1 = rechts 
2 = runter 
3 = links 


Wollen Sie nun vom Ausgangspunkt z.B. nach oben, so schreiben Sie 
eine 0 in den zuständigen String. Auf dem Bildschirm jedoch wird 
sich solange nichts tun, bis die Aufforderung kommt, einen Punkt an 
der derzeitigen Position des Graphikcursors zu zeichnen. Dies 
geschieht mit dem Zeichen "." (Punkt). Gehen Sie danach mit dem 
Graphikcursor wieder weiter und setzen sofort wieder einen Punkt, so 
werden diese beiden Punkt miteinander verbunden. Gehen Sie dagegen 
zwei oder mehr Schritte weiter, ohne einen Punkt zu zeichnen, dann 
werden die beiden nächst zusammenliegenden Punkte nicht 
miteinander verbunden. Das Beispiel eines Rechtecks möge dies 
erläutern (zur besseren Beobachtung im LGR-Modus): 


10 GMODE 0,0 : PRINT CHR$C147) : REM BILDSCHIRM LOESCHEN 
20 SCALE 0,0 
30 DRAW ‚".0.0.0.0.1.1.1.1.1.1.2.2.2.2.3.3.3.3.3.3." ON 39,24 


Wie Sie sehen, wurde noch ein anderer Befehl (SCALE) verwendet; er 
dient zur Vergrößerung und Rotation der Figur um den Anfangspunkt 
(s.u.). Sollte Ihre Figur einmal über den Rand hinausragen, so kommt 
sie zweckmäßiger Weise gegenüber wieder zum Vorschein. 


Angenommen, Sie beabsichtigen, ein vorgegebenes Gebilde (z.B. einen 
Buchstaben) mit Hilfe des DRAW-Befehls auf den Bildschirm zu 
bringen. In diesem Fall gehen Sie folgendermaßen vor. Zeichnen Sie 
das gewünschte Gebilde eins zu eins auf ein Blatt mit normalen 
Rechenkästchen. Dabei symbolisieren die Schnittpunkte zweier Linien 
des Rechenblatt-Rasters einen Punkt auf dem Graphikbildschirm. 


Suchen Sie sich nun einen geeigneten Startpunkt, um die Figur in 
möglichst wenigen Anweisungen zu zeichnen. Bewegen Sie nun, wie in 
der unten stehenden Skizze demonstriert, Ihren Bleistift von Punkt zu 
Punkt der Figur und zeichnen einen Punkt an die Stellen, an denen 
ein Punkt auf dem Bildschirm erscheinen soll. Beachten Sie, daß Sie 
immer nur in die vier Grundrichtungen auf einmal gehen können, nie 
diagonal! 


Supergraphik für Einsteiger 125 


Haben Sie die Figur insgesamt abgeschritten, dann übersetzen Sie die 
Gehrichtungen Ihres Bleistifts in das obige DRAW-Format und schon 
haben Sie die notwendige Definition, die in einem String 
untergebracht wird. Die folgenden Programme werden Ihnen zeigen, 
wie Sie den DRAW-Befehl einsetzen können. Doch bevor wir uns 
diesen Beispielen zuwenden, sollten hier noch einige andere 
Möglichkeiten des Shape-Einsatzes vorgestellt werden. 


DRAW 


Befehl: DRAW zm,3str$ 

Beispiel: DRAW 2,A$ 

Parameter: zm: Zeichenmodus 
str$:Definitionsstring 

Funktion: Setzen (Loeschen etc.) einer frei definierbaren Figur 
vom Graphikcursor aus 


Dieser Befehl funktioniert analog zu dem gerade besprochenen. Hier 
wird die Figur jedoch vom unsichtbaren Graphikcursor aus 
gezeichnet. Dies ist z.B. von besonderem Vorteil, wenn Ihre Figur so 
groß ist, daß ein String als Definition nicht mehr ausreicht. So können 
nun beliebig viele Teilstücke hinzugefügt werden, um ganz komplexe 
Figuren zu zeichnen. 


10 GMODE 0,0 : PRINT CHRSC147) : REM BILDSCHIRM LOESCHEN 
20 SCALE= 0,0 

30 DRAW „".0.0.0.0.1.1.1.1.1.1." ON 39,24 

40 DRAW „".2.2.2.23.3.3.3.3.3." 


An die erste Hälfte des Rechtecks wird die 2. angehängt. Dieser 
Befehl arbeitet wie PLOT TO ... mit dem unsichtbaren Graphikcursor. 
Sie sollten also bereits aus dem Linienkapitel wissen, was unter einem 
solchen Graphikcursor zu verstehen ist. 
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SCALE= 


Befehl: SCALES= r,s 
Beispiel: SCALE= 1,5 
Parameter: r: Rotationswinkel 
s Größe 
Funktion: Rotieren und Vergrößern einer DRAW-Figur 


Dieser Befehl wird in Zusammenhang mit DRAW verwendet: 

Mit r bestimmen Sie den Rotationswinkel Ihrer DRAW-Figur. Diese 
Figur wird dann um Ihren Ausgangspunkt (also um den Startpunkt des 
DRAW-Befehls) gedreht gezeichnet, wobei r Werte von 0-63 
annehmen kann, um eine volle Umdrehung zu erreichen. Eine Einheit 
entspricht dabei 5,625 (5 5/8) Altgrad. Die Funktion dieses Befehls ist 
allerdings von dem Vergrößerungsfaktor s abhängig: Bei s=0 
beispielsweise gibt es nur 8 Drehrichtungen, d.h. r=1 hat den gleichen 
Effekt wie r=0. 


Mit s wird der Vergrößerungsfaktor s+l einer DRAW-Figur bestimmt, 
wobei s Werte von 0-255 annehmen kann. Bei sehr großen 
Vergrößerungsfaktoren ragen Teile Ihrer Figur über die Ränder hinaus 
und kommen auf der anderen Seite wieder zum Vorschein (s. DRAW), 
was dann manchmal zu einem wahren Strichchaos führen kann. 


10 GMODE 0,1 : GCLEAR 

20 SCALE= 16,5 

30 DRAW „".3.3.3.3.0.0.0.0.0.0." ON 159,99 
40 WAIT 198,255 


Von der Mitte des Bildschirms aus wird ein L um 16*5,625 = 90 Grad 
gedreht und 5+1=6 fach vergrößert gezeichnet. 


Mit diesen Befehlen werden Sie viel Spaß bekommen. Versuchen Sie 
dies doch einmal: 


10 GMODE 0,1 : GCLEAR 

20 A$=".3.3.0.0.0." 

30 FOR X=0 TO 64 

40 SCALE= x,10 : DRAW 1,A8 ON 159,99 
50 SCALE= x+1,10 : DRAW 0,A$ ON 159,99 
60 NEXT X 

70 WAIT 198,255 
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Setzen Sie doch einmal andere Werte für s ein oder tauschen Sie s und 
r aus. Es gibt unzählbar viele Möglichkeiten. 


Auch die beiden folgenden Programme sollen Ihre Kreativität anregen. 
Probieren Sie doch einmal: 


rer rel, ei 


PRRAHAESEN T IE RT 


100 REM reelle 


110 REM ** “r 

120 REM ** SHAPES ** 

130 REM ** “r 

140 REM Wenn 

150 REM 

160 GMODE 0,1 : GCLEAR : SCOL= 0,0 

170 X=160 : Y=100 :REM SHAPEPOSITION 

180 S= 10: R= 0 :REM GROESSE+ROTATION INIT 


190 DIM S$(9) 
200 N=0 : FL=0 


210 REM 

220 REM HAUPTSCHLEIFE: 

230 REM 

240 SCALE= R,S :REM GROESSE/ROTAITON SETZEN 
250 GOSUB 610 :REM SHAPE ZEICHNEN 


260 GET A$ : IF A$="" THEN 260 
270 A=ASC(CA$) 


280 GOSUB 610 :REM SHAPE LOESCHEN 
290 REM 

300 REM TASTATURAUSWERTUNG: 

310 REM 


320 IF AS="Q" THEN END 

330 IF A$="W" THEN FL=ABS(FL-1) :REM FLAG WECHSELN 
340 IF FL=0 THEN 500 

350 REM 

360 REM BEI FLAG=1: 

370 REM 

380 IF A= 29 THEN 
390 IF A=157 THEN 
400 IF A= 17 THEN 
410 IF A=145 THEN 
420 IF S>255 THEN 
430 IF S< O THEN 


+1 :REM GROESSE 


:REM ROTATION 


+ 
20 


:REM WERTE UEBERPRUEFEN 


oo m a, no 
DOOR Ra © 
. 
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440 IF R>255 THEN R=0 

450 IF R< O THEN R=255 

460 GOTO 240 

470 REM 

480 REM BEI FLAG=O: 

490 REM 

500 IF A = 29 THEN S$CN)=SSCN)+"1" :REM RECHTS 
510 IF A =157 THEN S$CN)=SECN)+"3" :REM LINKS 

520 IF A = 17 THEN SSCN)=SSCN)+"2" :REM RUNTER 

530 IF A =145 THEN S$CN)=SSCN)+"0" :REM HOCH 

540 IF AS=" " THEN SSCN)=SECN)+"." :REM PLOT 

550 IF LEN(SS(CN))=255 THEN N=N+1 :REM NAECHSTEN DEFINITIONSSTRING 
560 GOTO 240 

570 REM 

580 REM 

590 REM SHAPE ZEICHNEN/LOESCHEN: 

600 REM 

610 DRAW 2,5S$C0) ON X,Y :REM ERSTEN STRING ZEICHNEN 
620 FOR T=1 TO 9 


630 DRAW 2,S$(T) :REM EVENTUELL FOLGENDE STRINGS ANHAENGEN 
640 NEXT T 
650 RETURN 


Dieses erste der beiden vorzustellenden Programme stellt ein kleines, 
ausbaufähiges Programm zur einfachen Konstruktion von Shapes bzw. 
Shapedefinitionen dar. Mit Hilfe dieses Programmes können Sie direkt 
auf dem Graphikbildschirm in der gewünschten Vergrößerung und mit 
dem von Ihnen zu bestimmenden Rotationswinkel Shapes (fast) 
beliebiger Länge konstruieren. Die Definition dieser Shapes wird 
sofort in einem String-Array S$(n) festgehalten. 


Folgende Funktionen stehen Ihnen in diesem Programm zur 
Verfügung: 


Q - Programmende 
W - Wechsel zwischen Modus O0 und I 


unter Modus 0: 


CRSR hoch: Graphikcursor eine Einheit hoch 

CRSR runter: Graphikcursor eine Einheit hinunter 

CRSR rechts: Graphikcursor eine Einheit rechts 

CRSR links: Graphikcursor eine Einheit links 

SPACE: Punkt setzen und mit evtl. vorigem Punkt verbinden 
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unter Modus 1: 


CRSR hoch: Rotationswinkel verringern 
CRSR runter: Rotationswinkel vergrößern 
CRSR rechts: Vergrößern 
CRSR links: Verkleinern 


In kurzen Worten soll hier das Prinzip dieses Programmes erläutert 
werden: Nach der lInitialisierung verschiedener Werte (Start- 
koordinaten, Startgröße, Startrotation etc.) beginnt in Zeile 240 die 
ständig durchlaufene Hauptschleife. Hier wird die neue (bzw. aktuelle) 
Größe und Rotation des Objektes realisiert (SCALE=-Befehl) und das 
neue Shape an den aktuellen Koordinaten gezeichnet (Zeile 250). 
Hierzu wird ein Unterprogramm aufgerufen, das in Zeile 610 beginnt 
und lediglich das Shape mit der im String-Array S$(n) festgehaltenen 
Definition zeichnet. Dabei werden die verschiedenen Strings des 
Arrays hintereinandergezeichnet, so daß eine zusammenhängende 
Figur entsteht. 


Nach dem Aufruf dieses Unterprogramms wird nun in Zeile 260 auf 
eine Taste gewartet. Ist dieser Tastendruck erfolgt, so wird das 
nunmehr alte, auf dem Bildschirm befindliche Shape durch 
nochmaligen Aufruf von 610 gelöscht (Invertiermodus), um sofort die 
Auswertung des Tastendrucks anzuschließen (ab Zeile 320). 


Hier werden alle unter den beiden Modi erlaubten Tasten getestet 
(s.0.) und entsprechend ausgeführt. Dabei ist speziell die Zeile 550 
interessant. In den fünf Zeilen davor wurden je nach 
Bewegungsrichtung einzelne Ziffern (oder der Punkt) an den aktuellen 
String S$(n) angehängt. Ist der String voll (255 Zeichen), so wird 
automatisch der nächste String des Arrays "eingeschaltet", der ja ab 
Zeile 610 an den vorherigen nahtlos angehängt wird. 


Dieses Programm sollten Sie erweitern. Sie könnten z.B. den 
Graphikcursor sichtbar machen und ein Verbessern bzw. Editieren 
erlauben. So wird es Ihnen ein Einfaches sein, Ihre Shapes zu 
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Das folgende Programm dient zu Ihrer Belustigung und sollte Ihnen 


ein klein 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 


wenig die Möglichkeiten der Shapes vor Augen führen: 


REM Frhr 


REM ** ar 
REM ** SHAPE-DEMO ** 
REM sr ar 
REM Wrack 
REM 
GMODE 0,1 : GCLEAR : SCOL= 1,7 
COLOR= 6,6 
GOSUB 780 :REM BUCHSTABENDEFINITIONEN UEBERNEHMEN 
REM 
Y=70 
FOR B=1 TO 10 :REM 10 BUCHSTABEN 
R=A(B) :REM STARTROTATION AUS ARRAY 
x2=300 : ZM=4 
FOR X=281 TO B*30-28 STEP -3 
SCALE= R,3 :REM ROTATION 
DRAW ZM,ASCB) ON XZ,Y :REM BUCHSTABEN LOESCHEN 
ZM=2 :REM INVERTIERMODUS EIN 
R=(R+4)/64 
R=(R- INTCR))*64 :REM NEUER ROTATIONSWINKEL 
SCALE= R,3 :REM SETZEN 
DRAW ZM,ASCB) ON X,Y :REM BUCHSTABEN ZEICHNEN 
XZ=X :REM ALTEN X-WERT MERKEN 
NEXT X 
NEXT B 
DRAW ‚ASC11) ON 304,Y :REM LETZTEN BUCHSTABEN NUR ZEICHNEN 
REM 
REM 
TEXT," PRAESENTIER T'",70,100,0 
REM 
FOR T=1 TO 3000 : NEXT T :REM ZEITSCHLEIFE 
REM 
REM 
D=6 : SCALE= 0,4 :REM BREITE, GROESSE 
REM 
REM 
REM ERSTES WORT: 
REM 
FOR X=0 TO 4 :REM ERSTEN 5 BUCHSTABEN "SUPER" 
FOR Y=0 TOD :REM BREITE D 
DRAW „KECX) ON A6tr4A*X+2*Y ,50+Y 
NEXT Y 
NEXT X 
REM 
REM 
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550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 


REM ZWEITES WORT: 
REM 
FOR X=0 TO 6 :REM NAECHSTE 7 BUCHSTABEN "GRAPHIK" 
FOR Y=0 TO D 
DRAW ‚K$(X+5) ON 10+44*X+2*Y ,110+Y 
NEXT Y 
NEXT X 
REM 
REM 
REM DRITTES WORT: 
REM 
FOR X=0 TO 1 :REM LETZTE ZWEI BUCHSTABEN "64" 
FOR Y=0 TO D 
DRAW ‚K$(X+12) ON 110+44*X+2*Y,170+Y 
NEXT Y 
NEXT X 
REM 


720 POKE 198,0 : WAIT 198,255 


730 
740 
750 
760 
770 
780 
790 
800 
MS 
810 
MU 
820 
MP 
830 
ME 
840 
MR 
850 
MG 
860 
MR 
870 
MA 
880 
MP 
890 
MH 
900 
MI 
910 
.0." 
920 
M6 


END 

REM 

REM 

REM BUCHSTABENDEFINTIONEN: 

REM 

DIM K$C15),A$C11),AC11) 

REM 

KSC 0)="0.1.2.1.1.1.1.0.0.0.0.3.3.3.3.0.0.0.0.1.1.1.1.2.1" 

K$C 1)="00000000.2.2.2.2.2.2.2.2.1.1.1.1.0.0.0.0.0.0.0.0" 

KSC 2)=".0.0.0.0.0.0.0.0.1.1.1.1.2.2.2.2.3.3.3.3." 

K$C 3)="1111.3.3.3.3.0.0.0.0.1.1.1.333.0.0.0.0.1.1.1.1." 

KSC 4)=K8(2)+"1.2.1.2.1.2.1.2.1." 

KSC 5)=".1.1.1.1.0.0.0.0.3.3.3.22223.0.0.0.0.0.0.0.0.1.1.1.1.2." 
KSC 6)=K$(4) 

KSC 7)=".0.0.0.0.0.0.0.0.1.1.1.1.2.2.2.2.2.2.2.2.0000.3.3.3.3." 
K$C 8)=K$(2) 

KSC 9)=".0.0.0.0.0.0.0.0.2222.1.1.1.1.0000.2.2.2.2.2.2.2.2." 


K$(10)="1.1.1.1.1.33.0.0.0.0.0.0.0.0.33.1.1.1.1." 


:RE 


:RE 


:RE 


:RE 


:RE 


:RE 


:RE 


:RE 


:RE 


:RE 


K$(11)=".0.0.0.0.0.0.0.0.2222.0.1.0.1.0.1.0.1.22222222.3.0.3.0.3.0.3 


K$(12)=".1.1.1.1.0.0.0.0.3.3.3.3.2.2.2.20000.0.0.0.1.0.1.1.1." 


:RE 
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930 K$(13)="1111.0.0.0.0.0.22.1.1.3.3.3.3.3.0.0.1.0.1.0.1.0.1." :RE 
M& 

940 REM 

950 REM 

960 ASC 1)=".0.0.0.0.0.0.1.1.1.2.1.2.2.2.2.3.2.3.3.3 :RE 
MD 

970 AC 1)=8 

980 ASC 2)=".0.0.0.0.0.0.1.1.1.1.2.2.2.3.3.3.31111.2.2.2" :RE 
MA 

990 Al 2)=48 

1000 A$C 3)="111.0.0.0.0.0.0.3.3.3111.1.1.1" :RE 
MT 

1010 AC 3)=25 

1020 A$( 4)=A$(2) :RE 
MA 

1030 AC 4)=0 

1040 AS 5)=tn :RE 
M SPACE 

1050 AC 5)=0 

1060 ASC 6)=".0.0.0.0.0.0.1.1.1.1.2.2.2.3.3.3.31111.2.2.2.3.3.3.3"  :RE 
MB 

1070 AC 6)=16 

1080 AS$C 7)=".1.1.1.1.133333.0.0.0.1.1.1.13333.0.0.0.1.1.1.1.1" :RE 
ME 

1090 A 7)=57 

1100 A$C 8)=".1.1.1.13333.0.0.0.0.0.0.1.1.1.1" :RE 
MC 

1110 AC 8)=32 

1120 ASC 9)=".0.0.0.1.2.1.2.1.2333000.1.0.1.0.1.0333.2.2.2" :RE 
MK 

1130 At 9)= 7 

1140 A$C10)=A$(7) :RE 
ME 

1150 A(10)=48 

1160 A$C11)=".0.0.0.1.2.1.2.1.2333000.0.0.0.1.1.1.2.2.2.3.3.3" :RE 
MR 

1170 AC11)=60 

1180 RETURN 


In diesem Programm wurden verschiedene Buchstaben als Shapes 
definiert und diverse Effekte erzeugt. Wir wollen dieses Programm 
hier nicht näher erläutern. Schauen Sie es sich an, und Sie werden mit 
etwas Überlegung keine Probleme haben, die verschiedenen Vorgänge 
zu verstehen. 


Supergraphik_für Einsteiger 133 


2.10 Beliebige Flächen ausfüllen 
- Das Juwel der Graphikbefehle 


Setzen Sie sich erst einmal hin, bevor Sie weiterlesen, und halten Sie 
sich fest, das könnte Sie glatt vom Hocker hauen. Ich darf Sie mit 
einem Befehl bekannt machen, der Ihnen viel, sehr viel Arbeit 
abnimmt: 


PAINT 


Befehl: PAINT zm,x,y 
Beispiel: PAINT ‚160,100 
Parameter: zm: Zeichenmodus 
x x-Koordinate des Testpunktes 
y: y-Koordinate des Testpunktes 
Funktion: Ausfüllen einer beliebigen umschlossenen Fläche 


Sie geben ihm auf Ihrem Bildschirm eine beliebige Fläche vor - 
irgendetwas, was sie wollen. Dann tritt er in Aktion und Ihre Fläche 
beginnt zu strahlen. 


Nun, bleiben wir auf dem Boden! Ihre Supergraphik bietet Ihnen 
etwas recht Hübsches: Angenommen, Sie wollen nicht nur mit dem 
inzwischen bekannten CIRCLE-Befehl einen einfachen Kreis (oder 
eine Ellipse) zeichnen, sondern diesen auch ausgefüllt wissen. Oder Sie 
haben sich eine schöne abgeschlossene Figur ausgedacht und haben das 
gleiche damit vor. In diesem Falle arbeiten Sie folgendermaßen: Sie 
zeichnen zunächst einmal die Umrandung der Ihnen vorschwebenden 
Figur auf den Bildschirm. Dabei achten Sie darauf, daß es keine 
Lücke in dieser Umrandung gibt. Nun bestimmen Sie einen einzigen 
Punkt, der innerhalb dieser Figur liegt und übergeben dessen 
Koordinaten in altbekannter Weise dem PAINT-Befehl als 
sogenannten Testpunkt. Das übrige erledigt sich von selbst: PAINT 
findet Ihre Umrandung und füllt die Figur mit Punkten vollständig 
auf. Der umgekehrte Fall gilt beim Löschen: hier erkennt PAINT alle 
gelöschten Punkte als Rand und löscht gleichfalls alle innerhalb 
liegenden Punkte (samt ehemaliger Umrandung). 


Natürlich können Sie auch einen Punkt außerhalb der Figur angeben. 
In diesem Falle wird der gesamte Bildschirm außer allen 
abgeschlossenen Figuren in ihm ausgefüllt (gelöscht). 
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Es kann schon einmal vorkommen, daß bestimmte Teile von Figuren 
(besonders in den spitzen Ecken) nicht ausgefüllt werden. Das jedoch 
liegt nicht am PAINT-Befehl, sondern vielmehr an der Art und Weise, 
wie Linien und Ellipsen etc. auf den Bildschirm gebracht werden. 
Wenn Sie genau hinschauen, werden Sie sehen, daß diese "Lücken" 
tatsächlich für sich bereits eigenständige und abgeschlossene kleine 
Flächen sind (manchmal nur einen Punkt groß). 


Die einzelnen Zeichenmodi sind zwar verfügbar, können allerdings oft 
nur mit Einschränkungen verwendet werden (z.B. der Punktier- 
Modus). 


Falls die verschiedenen Figuren zu komplex sind, wird dies durch ein 
"OUT OF MEMORY ERROR" verkündet. Dies kann passieren, da 
sich der PAINT-Befehl alle Einbuchtungen usw. merken muß, um sie 
später noch auszufüllen. Wenn dieser als Stack organisierte Speicher 
voll ist, kann der Befehl nicht weiter ausgeführt werden. 


Zur Demonstration einige Beispiele: 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
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REM Wr 


REM ** “* 
REM ** PAINT-BEISPIEL ** 
REM ** “* 
REM PR 
REM 

REM 

REM Krrkrkaea 

REM ** “r 

REM ** OVAL ** 

REM ** “r 

REM KrRkRkre 

REM 


GMODE 0,1 : GCLEAR 

CIRCLE ‚,160,100,50,80 :REM ELLIPSE ALS FIGURBEGRENZUNG 
PAINT ‚160,100 :REM AUSFUELLEN 

FRAME ‚1,10,10 TO 60,70:REM RECHTECK ALS FIGURBEGRENZUNG 
PAINT „11,11 


REM 

GOSUB 1240 :REM WARTEN 
REM 

REM 

REM rk 
REM ** ** 
REM ** FIGUR 2 ** 
REM ** ** 
REM Kr 
REM 

GCLEAR 

REM 


REM Krach 


REM FELD UMREISSEN: 

REM er 

REM 

PLOT ‚100,120 TO 50, 50 TO 150,120 TO 120,20 
PLOT ‚TO 300,199 TO 160,100 TO 160,170 
PLOT ‚TO 60,130 TO 100,120 

PAINT ,101,101 :REM FELD AUSWAEHLEN 
GOSUB 1240 

REM PAINT 1,101,101 :REM FELD LOESCHEN 
GOSUB 1240 

REM 

REM 

REM Krk 

REM ** “r* 

REM ** FIGUR 3 ** 

REM ** “r 

REM Krrkkr 

REM 

GCLEAR 

REM 


Supergraphik 


610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 


CIRCLE ‚,160,10 
CIRCLE ‚,160,10 
CIRCLE ,,160,10 
PAINT „160+29 ,1 
PAINT ‚0,0 

REM 

GOSUB 1240 

REM 

REM 

REM Wr 
REM ** 

REM ** BLUEMCH 
REM ** 

REM Wr a 
REM 

GCLEAR 

CIRCLE ‚160,10 
CIRCLE ‚160,10 
CIRCLE , ‚160,10 


PAINT , 160,1 
PAINT , 160,1 
PAINT , 160,1 
PAINT „160+48, 1 
PAINT ‚160-481 
GOSUB 1240 

REM 

REM 

REM Wr 
REM ** 

REM ** FIGUR 5 
REM ** 


REM Kr 
REM 
GCLEAR 
CIRCLE ‚160,10 
CIRCLE „,125, 4 
CIRCLE „,195, 4 
CIRCLE ‚,160, 9 
CIRCLE ‚,160,10 
CIRCLE ‚160,1 
CIRCLE „,130, 
CIRCLE „,190, 
CIRCLE ‚132, 
CIRCLE ‚,188, 
CIRCLE ‚230, 
CIRCLE „„ 90, 
CIRCLE ‚230, 
CIRCLE „, 90, 
PLOT ‚180,185 
PLOT ‚140,185 
FRAME „1,145, 
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0,30,40 :REM INNEN 
0,50,60 :REM MITTE 
0,70,80 :REM AUSSEN 


00+39 :REM MITTLEREN STREIFEN AUSFUELLEN 
:REM AUSSERES FELD AUSFUELLEN 


rk 
“%* 
EN ** 
ar 
rk 


0,10,10 
0,30,40 
0,50, 20 
00 
00+38 
00-38 
00 

00 


rk 
ar 
ar 
ar 
Krk 


0,70,90 

0,20,25 

0,20,25 

3,15,50 
0,62,62,147,213 
00,50,75,135,227 
48,10,10 
48,10,10 
52,4,4 

52, 4,4 

85 ,20,60,305 ‚205 
85,20,60,155, 55 
85 ,10,30,305 ‚205 
85 ,10,30,155, 55 
To 180,199 

TO 140,199 

37 TO 175,43 
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1120 PAINT ,‚160+20,100 
1130 PAINT „160,30 

1140 PAINT ‚130,48 
1150 PAINT ‚190,48 
1160 PAINT ‚230+15,85 
1170 PAINT „ 90-15,85 
1180 WAIT 198,255 : END 
1190 REM 

1200 REM 


1210 REM WARTESCHLEIFE: 
1220 REM Krrrarrrreae 


1230 REM 


1240 FOR T=1 TO 600 : NEXT T 
1250 RETURN 


2.11 Die Welt der Sprites 


Eines der hervorstechendsten Merkmale Ihres Commodore 64 ist die 
Fähigkeit, Sprites darzustellen. Sprites sind eigenständige kleine 
Graphiken, die unabhängig voneinander und von dem übrigen 
Bildschirminhalt in dem Text- oder Graphikfenster bewegt werden 
können. Im Unterschied zu Shapes werden Sprites hardwaremäßig 
realisiert und sind dadurch extrem schnell zu handhabende Objekte. 
Insgesamt haben Sie die Möglichkeit, 8 Sprites gleichzeitig auf den 
Bildschirm zu bringen. 


Sprites können bezüglich Ihrer Farbe, Ihrer Größe und der Priorität 
vor den Hintergrundzeichen und auch gegeneinander variiert werden. 
Kollisionen zwischen Sprites untereinander und mit dem Hintergrund 
lassen sich feststellen. 


All diese Funktionen können sehr leicht mit Hilfe des VIC 
(Videocontroller 6567) und seinen Registern realisiert werden. 
Supergraphik erleichtert zudem die Handhabung dieser Sprites noch 
enorm, so daß Sie sämtliche Funktionen leicht und überschaubar auf 
wenige Befehle komprimiert vor sich liegen sehen. 


Zunächst einmal wollen wir uns mit dem Aufbau der Sprites befassen: 
Jedes Sprite besteht aus 504 Punkten, die Sie einzeln setzen können. 
Verwendet wird dabei eine 24x2l-Punktematrix, d.h. ein Sprite ist 24 
Punkte breit und 21 Punkte hoch. Innerhalb dieses Bereiches können 
Sie nun die unterschiedlichsten Graphiken oder Figuren erstellen. Wir 
können diesen Sachverhalt in einer kleinen Skizze darlegen: 
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Supergranhik 


Spalte 2 








SAL 
RR 





RR 
un 
RI 
SS 
&: 
v 
5% 


x 
x 
Rx 
1% 
RS 


“ 


\? 
> 
I 

> 

2 

N 


n 


25 
RS 
x 

x 
x 
5% 


\? 
x > 
® 
2 
a 
ER 


%5 


es; 
u 
RR 


2 
$ 


u 


0 

% 

%S 

5% 
Spalte 0 Spalte ı 
765432100178 543210f7r8e 543210 
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Dabei wird jede Zeile in drei Spalten zu je 8 Punkten unterteilt. Diese 
jeweils 8 Punkte stellen im Speicher 8 Bit und damit ein Byte dar 
(Werte von 0-255). D.h. die ersten 8 Punkte der ersten Zeile werden 
zu einem Byte zusammengefaßt. Dabei stellt jeder gesetzte Punkt eine 
l und jeder nicht gesetzte Punkt eine 0 dar. Die 8 
hintereinanderstehenden Einsen und Nullen werden dann als Dual- 
bzw. Binärzahl verstanden (s Anhang) und in die dezimale 
Schreibweise übersetzt. 


Auf die gleiche Weise verfährt man mit den zweiten und dritten 8 
Punkten einer Zeile. Danach widmet man sich der nächsten Zeile und 
so fort. Auf diese Weise erhalten wir insgesamt 3x21=63 Werte, die die 
Definition eines Sprites darstellen. Ganz genau wird das in dem 
Kapitel Hardwaregrundlagen erläutert. 


Sie haben die Möglichkeit, die Farbe der gesetzten Punkte getrennt 
von dieser Definition aus 16 möglichen Farben zu bestimmen (s.u.). 


Nicht jedes Sprite jedoch besitzt diesen 24x21-Punkte-Aufbau. Sie 
können jeweils zwischen hochauflösenden und sogenannten 
Multicolor-Sprites wählen. Erstere besitzen den gerade geschilderten 
Aufbau. Die Multicolor-Sprites hingegen werden ähnlich der 
Multicolor-Graphik gebildet. Aus diesem Grunde besitzt ein solches 
Sprite in x-Richtung die halbe Auflösung. Hier befinden sich also nur 
12, jedoch doppelt breite Punkte in einer Zeile. Dafür kann ein 
Gebilde aus insgesamt vier verschiedenen Farben (mit der 
Hintergrundfarbe) zusammengesetzt sein, während, wie gesagt, ein 
hochauflösendes (HGR-) Sprite nur zwei Farben beinhaltet. 


Im Speicher sieht die Definition der Multicolor-Sprite haargenauso 
aus, wie die eines HGR-Sprites, mit dem einen Unterschied: Beim 
MC-Sprite stellen jeweils zwei Bits (also zwei Einsen oder Nullen) 
einen doppelt breiten Punkt dar. Da zwei Bits aber vier verschiedene 
Werte annehmen (00,01,10,11) können, stellen diese vier Werte die 
vier möglichen Farben des Punktes dar. Diese vier Farben sind in 
verschiedenen Registern des VIC untergebracht (s. Hardwarkapitel). 
Einschränkend muß jedoch gesagt werden, daß lediglich die Farbe 2 
für alle Sprites unterschiedlich sein kann. Die anderen Farben (Farben 
1 und 3 neben der Hintergrundfarbe) sind jeweils für alle Sprites 
gleich, da sie aus identischen Registern gewonnen werden. Entgegen 
den Angaben des CBM 64 Benutzerhandbuches können auch in 
Multicolor sämtliche 16 Farben zur Erstellung Ihrer Figuren 
verwendet werden. 
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Neben der Farbe und der Definition der Sprites können noch einige 
Dinge verändert werden: Sie haben die Möglichkeit, Ihre Gebilde in 
x-, in y- oder in beide Richtungen um den Faktor 2 zu vergrößern. 
D.h. Ihr Sprite wird doppelt breit, doppelt hoch oder beides. 


Zudem geben Sie an, welche Priorität das jeweilige Sprite vor dem 
Hintergrund besitzt, d.h. ob Ihr Sprite nun vor den Zeichen oder der 
übrigen Graphik steht (oder fliegt), sie also verdeckt, oder ob es sich 
dahinter befindet, durch diese also verdeckt wird. Gleichzeitig 
bestimmen Sie durch die Nummer eines Sprites (jedes der acht 
möglichen Sprites besitzt eine Nummer von 0 bis 7) die Priorität der 
Sprites untereinander. Diejenigen Sprites mit der höheren Nummer 
besitzen die höhere Priorität, verdecken bei Überschneidungen also 
stets die Sprites mit einer niedrigen Nummer. So können Sie recht 
einfach 3-dimensionale Effekt erzeugen. 


Doch damit nicht genug. Ihr Commodore 64 bietet Ihnen noch eine 
Reihe weiterer Bonbons, die Ihnen das Leben versüßen und auf die 
Sie ganz schön scharf sein werden, wenn Sie wissen, um was es geht! 
Ihr Computer registriert nämlich jegliche Berührung (oder Kollision) 
eines Sprites mit einem Hintergrundzeichen (oder überhaupt mit einem 
Punkt auf dem Bildschirm) oder einem anderen Sprite. Dieses Ereignis 
wird ebenfalls in verschiedenen Registern des VIC abgelegt, was Sie 
jedoch nicht weiter zu interessieren braucht, da Ihnen die 
Supergraphik diese Arbeit weitgehend abnimmt. Hierbei sind nur 
einige Dinge zu beachten, die unter den jeweiligen Befehlen 
(IF#...THEN) aufgeführt sind. Wichtig ist lediglich die Tatsache, daß 
zwischen K.ollisionen Hintergrund-Sprite und Sprite-Sprite 
differenziert werden kann. Im letzteren Fall kann noch entschieden 
werden, welche der acht Sprites zusammengestoßen sind. 


Sie sehen also, mit den Sprites werden Ihnen Möglichkeiten in die 
Hand gegeben, die Sie erst bei der Erprobung und Anwendung völlig 
ausschöpfen können. Sehr geeignet sind diese Figuren, die ja 
hardwaremäßig erzeugt werden und deswegen sehr schnell zu 
handhaben sind, zur Produktion von schönen Spielen oder auch 
Laufschriften. Lassen Sie sich etwas einfallen. Die einzelnen 
Beispielprogramme bei den Erläuterungen der einzelnen Befehle sollen 
Ihnen hier Ansätze und Ideen vermitteln, die bei Ihrem nächsten 
Programm vielleicht Anwendung finden. 
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2.11.1 Unser erstes Sprite 


Bevor wir tatsächlich unser erstes Sprite auf den Bildschirm zaubern 
können, müssen wir leider eine ganze Menge Dinge festlegen. Das 
beginnt bei der Definition des Sprites und hört bei Farben und Größe 
noch nicht auf. Der erste Befehl, den wir hierzu vorstellen, hat dann 
auch noch eigentlich gar nichts mit Sprites direkt zu tun: 


SREAD 


Befehl: SREAD str$ 

Beispiel: SREAD A$ 

Parameter: str$:Zielstringvariable 
Funktion: Einlesen von 63 Spritedaten 


Dieser Befehl ist eine sehr nützliche Hilfe bei der Definition von 
Sprites. Sprites werden mit Hilfe von Strings, die die erforderlichen 63 
Bytes als ASCII-Werte enthalten, definiert (s. SDEFINE). Statt nun 
umständlich aus DATA-Zeilen Byte für Byte einzulesen, geben Sie 
einfach z.B. SREAD A$ ein und schon sind sie im Speicher A$. Dieser 
Befehl ersetzt also die BASIC-Zeile: 


FOR X=1 TO 63 : READ B : AS=AS+CHR$CB) : NEXT X 


Man spart also Platz, Aufwand und Zeit (die Daten werden etwa drei 
mal so schnell eingelesen). Die Fehlermeldungen entsprechen denen 
eines normalen READ-Befehls. Die Anwendung von SREAD wird in 
weiter unten stehenden Programmen demonstriert. Dieses Kommando 
kann selbstverständlich auch für andere Zwecke verwendet werden. 


Zusätzlich zu den Befehlen der Supergraphik befindet sich auf Ihrer 
Diskette ein kompletter Spritegenerator, der Ihnen hilft, sehr 
komfortabel Ihre individuellen Sprites zu generieren und im Kapitel 
"Supergraphik intern" beschrieben ist. 


Im folgenden bedeutet "s" immer die Spritenummer und geht von 0- 
15(!), x und y sind nun die Spritekoordinaten: 


x: 0-511 
y: 0-255 


Supergraphik_für Einsteiger 143 


Wie Sie sehen, stimmen hier die Koordinaten nicht mit denen der 
hochauflösenden Graphik oder der Graphik allgemein überein. Sie 
können Sprites nämlich auch außerhalb des Bildschirms positionieren, 
um ein Sprite langsam hinter dem Bildschirmrand verschwinden lassen 
zu können. Vielleicht erstaunt Sie auch der Wertebereich der 
Spritenummern von 0-15, wo wir doch nur 8 Sprites gleichzeitig auf 
dem Bildschirm darstellen können. Mit Supergraphik jedoch ist es 
Ihnen möglich, auch 16 völlig unterschiedliche Sprites gleichzeitig auf 
dem Bildschirm darzustellen. Dies wird durch die Interrupttechnik der 
Supergraphik möglich. Mehr davon aber beim Befehl SPOWER. 


SDEFINE 
Befehl: SDEFINE s,str$ 
Beispiel: SDEFINE 9,A$ 
Parameter: s: Spritenummer (0-15) 


str$: Definitionsstring 
Funktion: Spritedefinition - Einschalten/Ausschalten 


Dies ist unser erster richtiger Sprite-Befehl: Mit diesem Befehl 
definieren Sie ein Sprite, dessen Daten in einem String str$ wie folgt 
untergebracht sind: Im Vorspann dieses Abschnitts haben wir kurz den 
Aufbau eines Sprites im Speicher kennengelernt. Dabei haben wir 
festgestellt, daß sich eine Spritedefinition aus 8x21=63 Bytes, also 
auch 63 Werten zusammensetzt, die jeweils das Bitmuster des Objektes 
darstellen (s. auch Hardwarekapitel). Diese 63 Bytes werden nun als 
ASCII-Werte von 0-255 hintereinander in einen String gepackt, der 
hier als Definitionsstring verwendet wird. 


Diese Daten werden dem Sprite mit der Nummer s zugeordnet. 
Grundsätzlich können alle 16 möglichen Sprites ein völlig anderes 
Aussehen haben. Die Sprites mit den Nummern 8-15 jedoch werden 
erst eingeschaltet, wenn Sie den Befehl SPOWER eingegeben haben. 
Doch damit muß ein Sprite noch nicht unbedingt sichtbar sein! 
Zunächst müssen weitere Parameter und die Lage auf dem Bildschirm 
bestimmt werden. 


Allgemein kann aber gesagt werden, daß Sprites nur in der HGR- 
bzw. MC-Anzeige verfügbar sind (dies hängt mit der Verschiebung 
des Video-RAM zusammen). 
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Wollen Sie ein Sprite wieder ausschalten, so darf der String kein 
Zeichen enthalten (z.B.: SDEFINE 0,"" - Sprite O0 wird ausgeschaltet). 


Das folgende kleine Demonstrationsprogramm soll Ihnen die 
Anwendung der Befehle SREAD und SDEFINE veranschaulichen. 
Damit überhaupt etwas auf dem Bildschirm erscheint, mußten wir in 
den beiden Zeilen 180 und 200 etwas vorgreifen und noch unbekannte 
Befehle verwenden. Dies sollte Sie aber nicht stören. 


100 REM Hrkickieheie nk 


110 REM ** “* 

120 REM ** SPRITES ** 

130 REM ** “r 

140 REM Krk 

150 REM 

160 GMODE 0,1 : GCLEAR : SCOL= 0,0 

170 SREAD A$ :REM SPRITEDEFINITION AUS DATAS NACH A$ UEBERNEHMEN 
180 SMODE 0,3,1 :REM SPRITE O: MODUS 3, FARBE GELB 


190 SDEFINE 0,A$ :REM SPRITE O EINSCHALTEN MIT DEF. IN A$ 
200 SSET 0,100,150 :REM SPRITE POSITIONIEREN 
210 WAIT 198,255 

1000 REM 

1010 REM 

1020 REM SPRITEDEFINITION: 

1030 REM 

1040 DATA 0, 7, 0 

1050 DATA 56, 13,128 

1060 DATA 25, 31,224 

1070 DATA 126, 31,204 

1080 DATA 25, 12,252 

1090 DATA 56, 7, 0 


1100 DATA 0, 14, 0 
1110 DATA 0, 14, 0 
1120 DATA 0, 15,128 
1130 DATA 0, 14,192 
1140 DATA 0, 30, 96 
1150 DATA 0, 62, 48 
1160 DATA 0, 46, 0 
1170 DATA 0, 79, 0 
1180 DATA 0,155,128 
1190 DATA 1, 25,192 
1200 DATA 2, 24, 96 


1210 DATA 3, 24, 96 
1220 DATA 127, 24,120 
1230 DATA 188, 24, 0 
1240 DATA 36, 30, 0 
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Hier wird in Zeile 170 die gesamte Definition des Sprites in den 
DATA-Zeilen als ASCII-Werte in den String A$ übertragen. Die 
Definition in A$ dient dann in Zeile 190 als Grundlage des Befehls 
SDEFINE zum Definieren und Einschalten des Sprites mit der 
Nummer 0. 


Die DATA-Zeilen sind jeweils so angeordnet, daß eine DATA-Zeile 
einer Zeile des Sprites entspricht. Nehmen wir uns die ersten beiden 
DATA-Zeilen heraus (Zeilen 1040/1050), so können wir aus ihnen 
ablesen, welche Punkte in der ersten beiden Zeilen des Sprites gesetzt 
und welche gelöscht sind: 


Erste Zeile: DATA-Zeile: 0, 7, 0 
Bit-Muster: 00000000 00000111 00000000 
Sprite se 

Zweite Zeile: DATA-Zeile: 56, 13, 128 
Bit-Muster: 00111000, 00001101, 10000000 
Sprite ae a 


Das Bit-Muster ist lediglich die Übersetzung des Wertes in der 
DATA-Zeile ins Duale (Binäre) Zahlensystem (s. Anhang). Aus den 
Nullen und Einsen ergeben sich dann die gesetzten Punkte im Sprite. 


Kommen wir zu einem weiteren Sprite-Befehl, der eine ganze Reihe 
von Möglichkeiten des Rechners bei der Spritedarstellung ausschöpft: 


SMODE 


Befehl: SMODE s,m,fl (‚f2,f3) 
Beispiel: SMODE 1,3,7 
oder SMODE 1,8,7,2,14 
Parameter: s: Spritenummer 
m: Spritemodus (s.u.) 
fl: Farbe | (individuell)(0-15) 
f2: Farbe 2 (Multicolor-einheitlich)(0-15) 
f3: FArbe 3 (Multicolor-einheitlich)(0-15) 
Funktion: Bestimmen der Spriteeigenschaften 
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Dieser Befehl definiert das weitere Aussehen des Sprites mit der 
Nummer s. m gibt dabei den Spritemodus an, wobei gilt: Werte für m 
gehen von 0 bis 15: 


m|m| Vergrößerung | Priorität 
MC|HGR|x-Richtung|y-Richtung|vor dem Hintegrund 


8| 0| nein | nein | ja 
9 1] ja | nein | ja 
10| 2| nein | ja | ja 
11| 3] ja | ja | ja 
12| 4| nein | nein | nein 
13| 5] ja | nein | nein 
14| 6| nein | ja | nein 
151 7] ja | ja | nein 


Wie Sie sehen, haben Sie die Möglichkeit, 16 verschiedene Ein- 
stellungen vorzunehmen. Dabei bestimmen die Werte 8-15 ein 
Multicolor-Sprite und fordern damit noch die Angabe der Werte f2 
und f3. Diese Werte geben die Farben 2 und 3 der Multicolor-Sprites 
an, die allerdings für alle Sprites gleich sind (die Spritegruppen 0-7 
und 8-15 jedoch können auch in dieser Eigenschaft differieren). Bei 
hochauflösenden Sprites genügt die Angabe von fl. fl definiert (auch 
in MC) die Farbe 1, die für alle Sprites unterschiedlich sein kann. Für 
die Farbnummern gelten folgende Zuordnungen: 


Farbtabelle: 
f1,f2,f3 |Farbe IIfi,f2,f3 |Farbe 
(Farbnr .)| | |cFarbnr. )| 
0 |schwarz || 8 |orange 
1 |weiß I 9 |braun 
2 |rot || 10 |hellrot 
3 |zyanblau || 9 |dunkel grau 
4 [violett || 12 |nittelgrau 
5 |grün II 3% |hellgrün 
6 |blau II 1% |hellblau 
7 |gelb || 95 |hellgrau 
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Selbst mit diesem Befehl braucht unser Sprite noch nicht sichtbar zu 
sein, denn es kann ja irgendwo auf dem oder außerhalb des 
Bildschirms positioniert sein. Aus diesem Grunde wollen wir uns noch 
schnell das Wissen über einen weiteren Befehl aneignen, der diesen 
Mangel behebt. 


SSET 


Befehl: SSET s,x,y (,sp) 
Beispiel: SSET 1,100,120 
oder SSET 1,100,120,4 
Parameter: s: Spritenummer 
x:  Sprite-x-Koordinate 
y: Sprite-y-Koordinate 
sp: Geschwindigkeit für Spritebewegung 
Funktion: Positionieren eines Sprites 


Durch diesen Befehl sind Sie in der Lage, ein Sprite s (0-15) an die 
Position x,y auf dem Graphikbildschirm zu beordern, wobei die 
Koordinate stets den Ort der rechten oberen Ecke des Sprites 
bezeichnet. Sie können mit Ihrem Sprite bekanntlich aus dem 
Bildschirmfenster herausfahren. Die Sprite-Koordinate stimmt also 
nicht mit der Graphikkoordinate überein - sie ist relativ zu ihr um 
einige 10 Punkte verschoben. Finden Sie doch einmal heraus, um 
wieviele; so lernen Sie die Spritebefehle näher kennen. Nebenbei: die 
Auflösung finden Sie auch im Hardwarekapitel. 

Mit sp (speed) können Sie die Geschwindigkeit dieses Sprites für 
einen späteren SSET...TO... - Befehl vorprogrammieren, doch darüber 
unterhalten wir uns noch etwas weiter unten. 


Im folgenden Programm können Sie sich einmal anschauen, wie Sie 
mit den beiden gerade besprochenen Befehlen umgehen können und 
welche Wirkung die einzelnen Parameter besitzen: 


100 REM Ahern 


110 REM ** ide! 

120 REM ** SMODE,SSET ** 

130 REM ** En 

140 REM Ark 

150 REM 

160 GMODE 0,1 : GCLEAR : SCOL= 0,0 : SCOL= 1,9 

170 SREAD A$ :REM SPRITEDEFINITION AUS DATAS NACH A$ UEBERNEHMEN 


180 SDEFINE 0,A$ :REM SPRITE O EINSCHALTEN MIT DEF. IN A$ 
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190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
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X=100 : Y=150 :REM SSET-PARAMETER 
MODUS=3 : FARBE=1 :REM SMODE-PARAMETER INIT 
FILL B 15,,50,50 TO 150,140 

FL=0 :REM FLAG 

REM 

REM 

REM HAUPTSCHLEIFE: 

REM 

REM 

REM WERTE AUSGEBEN: 

FILL 1,10,183 TO 170,190 

TEXT "FARBE :"+STRSCFARBE)+" MODUS: "+STR$SCMODUS), 10,190, 1 
REM 


SMODE 0,MODUS , FARBE :REM WERTE REALISIEREN 
SSET 0,X,Y 

GET T$ : IF T$=M THEN 340 

T=ASC(T$) 


IF T$="Q" THEN END 

IF T$="W" THEN FL=ABSCFL-1) :REM FLAG WECHSELN 
IF FL= 1 THEN 580 

REM 

REM 

REM BEI FLAG=0: 

REM 

IF T= 29 THEN FARBE=FARBE+1 :REM RECHTS 
IF T=157 THEN FARBE=FARBE-1 :REM LINKS 
IF T= 17 THEN MODUS=MODUS+1 :REM HOCH 
IF T=145 THEN MODUS=MODUS-1 :REM RUNTER 
REM 

REM WERTE UEBERPRUEFEN: 

IF FARBE>15 THEN FARBE= 0 

IF FARBE< O THEN FARBE=15 

IF MODUS>15 THEN MODUS= 0 

IF MODUS< O THEN MODUS=15 

GOTO 290 

REM 

REM 

REM BEI FLAG=1: 

REM 

IF T= 29 THEN X=X+10 :REM RECHTS 
IF T=157 THEN X=X-10 :REM LINKS 
IF T= 17 THEN Y=Y+10 :REM HOCH 
IF T=145 THEN Y=Y-10 :REM RUNTER 
REM 

REM WERTE UEBERPRUEFEN: 

IF X>511 THEN X= 0 

IF X< 0 THEN X=511 

IF Y>255 THEN Y= 0 

IF Y< 0 THEN Y=255 

GOTO 330 

REM 
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700 REM 

710 REM SPRITEDEFINITION: 
720 REM 

730 DATA 0,24, 0 

740 DATA 0, 60, 0 

750 DATA 0, 60, 0 

760 DATA 0, 24, 0 

T7O DATA 6, 24, 9% 

780 DATA 3, 24,192 


790 DATA 1,153,128 
800 DATA 0,219, 0 
810 DATA 48,126, 6 
820 DATA 127,255,255 
830 DATA 127,255,255 
840 DATA 48,126, 6 
850 DATA 0,219, 0 
860 DATA 1,153,128 


870 DATA 3, 24,192 
880 DATA 6, 24, 96 
890 DATA 0, 24, 0 
900 DATA 0,60, 0 
910 DATA 0, 60, 0 
920 DATA 0, 24, 0 
930 DATA 0, 0, 0 


Dies ist wieder eines der Programme, bei denen Sie direkt auf dem 
Bildschirm beobachten können, was die einzelnen Parameter der 
Befehle SMODE und SSET bewirken. Lassen Sie uns kurz die 
Möglichkeiten darlegen, die Sie besitzen, wenn Sie das Programm 
gestartet haben. Nach dem Start wird ein Sprite, das in den Zeilen 
730-930 in DATA-Zeilen festgehalten wurde auf den Bildschirm 
gebracht. Das Sprite erscheint über einem gestreiften Feld, durch das 
die Priorität des Sprites vor dem Hintergrund deutlich wird. Etwas 
weiter unten werden die aktuellen Einstellungen von Sprite-Modus 
und Farbe angezeigt, die beide durch den Befehl SMODE festgelegt 
werden können. Das Programm reagiert nun auf folgende 
Tastenbetätigungen: 


Q - Programmende 
W - Programmmoduswechsel 
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Bei Modus 0: 
CRSR rechts - Farbnummer des Sprites erhöhen 
CRSR links - Farbnummer des Sprites erniedrigen 
CRSR hoch - Spritemoduszahl erhöhen 
CRSR runter - Spritemoduszahl erniedrigen 
Bei Modus 1: 
CRSR rechts - Sprite nach rechts bewegen 
CRSR links - Sprite nach links bewegen 
CRSR hoch - Sprite nach oben bewegen 
CRSR runter - Sprite nach unten bewegen 


Sie können also das Sprite über den gesamten Bildschirm bewegen und 
sowohl Farbe als auch Spritemodus (Größe, Priorität, MC/HGR) 
verändern. Dabei werden Ihnen ständig die aktuellen SMODE- 
Parameter angezeigt. Diese Anzeige erfolgt in Zeile 300, nachdem das 
Anzeigefeld durch einen FILL-Befehl gelöscht wurde (Zeile 290). 
Zeile 210 mag Ihnen vielleicht etwas seltsam vorkommen. Durch sie 
wird jedoch das gestreifte Feld unter (oder über - je nach Priorität) 
dem Sprite gezeichnet. Hierzu wird die B-Erweiterung der 
Zeichenbefehle verwendet. Der Rest des Programmes sollte Ihnen nun 
kein großes Kopfzerbrechen mehr machen, da die Struktur bereits aus 
anderen Programmen bekannt ist. 


Bevor wir aus dem Probierstadium heraustreten, sollten wir noch eben 
einen weiteren Befehl kennenlernen, der uns ungeahnte Möglichkeiten 
eröffnet. 
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2.11.2 Der Trick beim Zeichentrick 


SSET...TO... 


Befehl: SSET s,x1,yl TO x2,y2 (,sp) 
Beispiel: SSET 1,100,120 TO 50,40 
oder SSET 1,100,120 TO 50,40,4 
Parameter: s: Spritenummer 
xl: Sprite-x-Startkoordinate 
yl: Sprite-y-Startkoordinate 
x2: Sprite-x-Zielkoordinate 
y2: Sprite-y-Zielkoordinate 
sp: Geschwindigkeit für Spritebewegung 
Funktion: Bewegen eines Sprites von xl,yl nach x2,y2 


So, nun geht es los! 


Mit diesem Befehl - so unscheinbar er aussieht - können Sie Welten 
bzw. Sprites bewegen. Er läßt jedes beliebige Sprite von den 
angegebenen Ausgangskoordinaten mit der Geschwindigkeit sp in 
Form einer Geraden - wenn Sie wollen - quer über den Bildschirm zu 
den Endkoordinaten (hinter TO angegeben) wandern. 


Kurz nachdem Sie den Befehl gegeben haben, wird schon der nächste 
abgearbeitet, während das Sprite seelenruhig über den Bildschirm 
tuckert oder rast - je nach Geschwindigkeit. Sie können auch dann 
ein zweites, drittes, viertes etc. Sprite völlig unabhängig von den 
anderen und gleichzeitig kreuz und quer verschicken. 


Wie ist das nun möglich? Der Befehl übergibt die notwendigen 
Informationen der stets im Abstand von 1/60 Sekunde durchlaufenen 
IRQ-Routine (s.o. unter "Graphikfenster durch Rasterinterrupt oder 
im Hardwarekapitel). Diese versetzt Ihr Sprite nun pro Druchlauf um 
die mit sp angegebene Zahl von Punkten in Richtung Zielkoordinate, 
d.h. Ihr Sprite bewegt sich also mit einer Geschwindigkeit von 20*sp 
Punkten pro Sekunde über den Bildschirm. 


Anmerkung: Wieviele Punkte dabei durchlaufen werden, können Sie 
einfach erfahren, indem Sie die Punkte einer 
entsprechenden Geraden (Linie) von der 
Ausgangsposition zum Ziel zählen (mit dem T- 
Sekundärbefehl (s.o.)). 
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Lassen Sie sp weg, so wird die dem jeweiligen Sprite vorher zu- 
geordnete Geschwindigkeit übernommen (sp=0O entspricht sp=256). 


Bewegen Sie sehr viele Sprites gleichzeitig, kann es dazu kommen, daß 
ihr Programm durch die vielen langen IRQ-Unterbrechungen zur 
Spritebewegung langsamer wird, aber es läuft weiter! 


Verwenden Sie bitte das unter SDEFINE angegebene Programm und 
geben Sie folgende Zeilen ein: 


200 SSET 0,0,0 TO 370,250,3 
205 FRAME ‚100,0,0 TO 319,199 


Ihr Sprite bewegt sich also nun von links oben nach rechts unten in 
die Ecke und verschwindet dort. Gleichzeitig(!) wird ein dicker 
Rahmen gezeichnet. 


Sehr wirkungsvoll ist nun auch der IF#C THEN ...-Befehl (s.u.). Eine 
Anmerkung: während des CIRCLE-Befehls steht aus Zeitgründen 
jedes Sprite und es kann auch keine Tastatureingabe gemacht werden. 


SSET TO... 


Befehl: SSET s TO x2,y2 (,sp) 
Beispiel: SSET 1 TO 50,40 
oder SSET 1 TO 50,40,4 
Parameter: s: Spritenummer 
x2: Sprite-x-Zielkoordinate 
y2: Sprite-y-Zielkoordinate 
sp: Geschwindigkeit für Spritebewegung 
Funktion: Bewegen eines Sprites von der momentanen Position 
nach x2,y2 


Dieses Kommando führt die gleiche Funktion aus, wie der vorherige 
Befehl. Dabei wird das angesprochene Sprite von der derzeitigen 
Position aus bewegt. Sie erkennen die Ähnlichkeit des SSET-Befehls 
mit dem PLOT-Befehl. Auf diese Gemeinsamkeit wurde bewußt 
geachtet. Erinnern Sie sich noch an den reinen SSET-Befehl? Dort 
konnten Sie bereits die Geschwindigkeit sp vorgeben. Sie könnten also 
mit einem einfachen SSET-Befehl alles Vorbereiten (Position und 
Geschwindigkeit), um das Sprite mit dem Befehl SSET TO..: weiter zu 
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bewegen. Mit diesem Befehl brauchen Sie sich also nicht zu merken, 
an welcher Stelle welches Ihrer Sprites steht, wenn Sie es weiterbe- 
wegen wollen. 


SWAIT 


Befehl: SWAIT s 

Beispiel: SWAIT 2 

Parameter: s: Spritenummer 
Funktion: Warten bis Sprite s steht 


Dieser Befehl wurde eingerichtet, damit Sie eine Kontrolle in Ihre 
Spritebewegung bekommen. Da das Programm normalerweise auch 
dann weiterläuft, wenn Sie ein Sprite bewegen, wartet Ihr Programm 
bei diesem Befehl so lange, bis das Sprite mit mit der Nummer s steht, 
also nicht mehr bewegt wird. Steht es bereits still, hat der Befehl 
keine besondere Wirkung. 


Fügen Sie zu dem unter SSET genannten Programm folgende Zeile 
hinzu: 


206 SWAIT O : CIRCLE ,,159,99,20,30 


Erst nachdem Sprite 0 nicht mehr in Bewegung ist, wird die Ellipse 
gezeichnet. 


Das folgende Programm soll Ihnen die Anwendung der Spritebefehle 
und ihr Zusammenwirken demonstrieren. Geben Sie es ruhig einmal 
ein und lassen Sie sich überraschen. 


100 REM Krk 

110 REM ** RK 

120 REM ** SPRITEDEMO ** 

130 REM ** a 

140 REM re 

150 REM 

160 GMODE 0,1 : GCLEAR : SCOL= 1,0 : COLOR= 6,6 
170 SREAD A$ :REM SPRITEDEFINITION AUS DATAS NACH A$ UEBERNEHMEN 
180 REM 

190 REM 

200 REM 8 SPRITES AKTIVIEREN: 
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210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
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REM 

FOR S=0 TO 7 
SMODE S,0,1.17*(7-S) :REM MODUS O0, FARBEN UNTERSCHIEDLICH 
SSET S,(S-4*INTCS/4))*91,INTCS/4)*250,1 :REM POSITIONIEREN 
SDEFINE S,A$ :REM EINSCHALTEN 

NEXT S 

REM 

REM 8 SPRITES IN BEWEGUNG SETZEN: 

REM 

FOR S=0 TO 7 
SSET S TO 160,130 

NEXT S 

REM 

FOR X=1 TO 215 


SCALE= X,X/2 
DRAW „".O" ON X,40*SINCX/30)+100 
NEXT X 
REM 
SWAIT O0 :REM AUF SPRITE O WARTEN 
TEXT „"SPRITES FOR EVER!",100,180,0 
REM 
FOR X=1 TO 1000 : NEXT X 
REM 
REM 
REM ALLE SPRITES AUSSCHALTEN: 
REM 
FOR S=0 TO 7 
SDEFINE S,"" 
NEXT S 
REM 
WAIT 198,255 
REM 
REM 
REM SPRITEDEFINITION: 
REM 
DATA 0, 0, 0 
DATA 0, 0, 0 
DATA 0, 0, 0 
DATA 2, 0, 64 
DATA 1, 0,128 
DATA 0,129, 0 
DATA 0, 66, 0 
DATA 0, 60, 0 
DATA 0,126, 0 
DATA 0,195, 0 


DATA 1,141,128 
DATA 3, 44,192 
DATA 31,255,248 
DATA 62,153,124 
DATA 125, 66,190 
DATA 2, 0, 64 
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720 DATA 255,255, 255 
730 DATA 1,255,128 
740 DATA 1,189, 128 
750 DATA 3, 60,192 
760 DATA 15, 0,240 
770 DATA 15, 0,240 


W 


Dieses Programm aktiviert alle 8 Sprites mit derselben Definition, die 
in den DATA-Zeilen ab Zeile 560 steht, durch den SREAD-Befehl in 
Zeile 170 nach A$ übertragen wird und dort als Definitionsstring für 
den SDEFINE-Befehl dient. Dieses SDEFINE befindet sich in einer 
Schleife, die nacheinander alle 8 Sprites (0-7) anspricht und jeweils 
Farbe, Modus und Startposition festlegt (Zeilen 220-260). Die Formeln 
in den Zeilen sollten Sie nicht stören, es sei denn, Sie wollen es genau 
wissen. Schauen Sie sich einfach auf dem Bildschirm an, was durch sie 
bewirkt wird. 


Nachdem nun in dieser Schleife alle Sprites vorbereitet "in den 
Startlöchern stehen", bekommen Sie nun durch die folgende 
FOR...NEXT-Schleife der Zeilen 300-320 einen gemeinsamen 
Zielpunkt in der Mitte des Bildschirms, den Sie sofort mit der 
Geschwindigkeit I ansteuern. Die Geschwindigkeit wurde bereits beim 
einfachen SSET-Befehl der ersten Schleife festgelegt. 


Während die 8 Sprites ihren Weg zum Mittelpunkt des Bildschirms 
fortsetzen, läuft das BASIC-Programm weiter. Um dies zu 
demonstrieren, wird in den Zeilen 340-370 gleichzeitig mit der 
Spritebewegung eine hübsche Figur auf dem Bildschirm gezeichnet. 
Dieser Programmteil demonstriert zudem noch einmal eine kleine 
Anwendung des DRAW-Befehls. 


Damit das Programm jetzt aber erst fortfährt, wenn das letzte Sprite 
steht, wird in Zeile 390 auf Sprite 0 gewartet, das den weitesten Weg 
hatte. Erst dann wird Zeile 400 ausgeführt. 


Nach einer kurzen Wartezeit werden dann in den Zeilen 470-490 alle 
Sprites ausgeschaltet. 


Dieses Programm enthält alle bisher bekannten Spritefunktionen. Sie 
können hier beobachten, wie sie in ein Programm integriert werden 
und welche Aufgaben sie haben. Doch Sie werden sehen, daß Ihre 
Supergraphik noch mehr zu bieten hat. 
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2.11.3 Kollisionen und BASIC-Interrupt 


Vielleicht erinnern Sie sich noch an den Vorspann des Sprite-Kapitels. 
Dort wurde erwähnt, daß Ihr Rechner die Kollision eines Sprites mit 
einem anderen oder mit dem Hintergrund registriert. In Supergraphik 
wurde nun die Möglichkeit geschaffen, aus BASIC heraus einfach 
solche Kollisionen zu überprüfen oder sogar automatisch zu 
registrieren. Hierzu sind wieder eine Reihe von Befehlen zuständig, 
die im folgenden erläutert werden. 


IF# ... THEN ... 


Befehl: IF# par THEN .. 

Beispiel: IF# U,|l THEN .. 

Parameter: par : Secundärfunktion 

Funktion : Bedingtes Verzweigen unter definierten Be- 
dingungen 


Mit diesem Befehlskomplex (auch hier existieren wieder (insgesamt 8) 
Sekundärbefehle) wird Ihnen ein besonderes Extra in die Hände 
gelegt, das z.B. Ihre Spielprogramme sehr entlastet. Die Funktion 
dieses Grundbefehls entspricht der des normalen IF...THEN...- 
Kommandos, es wird also eine bedingte Verzweigung ausgeführt. 


Unter Verzweigung ist im folgenden ein Sprung hinter THEN 
gemeint. Wird nicht verzweigt, so geht das Programm in der nächsten 
Zeile weiter. Mit diesem Befehl können Sie nämlich nun die 
Joystickpositionen an den Eingangsports feststellen. p stellt die 
Nummer des Eingangsportes (l oder 2) an der rechten Seite Ihres 
Gerätes dar. Nun können Sie folgende Befehle für Entscheidungen 
verwenden: 


IF# U p THEN ....: 
(U für up) Es wird verzweigt, wenn ein angeschlossener Joystick in 
Port p nach oben gedrückt wird. 


IF# Dp THEN ...: 
(D für down) Verzweigung bei Joystick nach unten. 


IF#R p THEN ....: 
Verzweigung bei Joystick nach rechts. 
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IF# L p THEN ...: 
Verzweigung bei Joystick nach links. 


IF# Bp THEN ...: 


Verzweigung, wenn der Feuerknopf (Button) Ihres Joysticks gedrückt 
wird. 


10 IF# U2 THEN PRINT "OBEN" = END 
20 IF# D2 THEN PRINT "UNTEN" : END 
30 IF# R2 THEN PRINT "RECHTS" : END 
40 IF# L2 THEN PRINT "LINKS" : END 
: END 


50 IF# B2 THEN PRINT "BUTTON" 
60 GOTO 10 





158 Das Sunergraphikbuch zum C64 


Dieses Programm erwartet an Port 2 die Joystickkommandos. Bei Port 
l ist die Überschneidung mit der Tastatur zu berücksichtigen! 


Neben dieser Joystickabfrage können Sie aber auch die angekündigten 
Kollisionen zwischen Sprites etc. feststellen. Dafür gibt es zwei 
weitere Befehlsformen: 


IF# CN THEN ....: 

Verzweigung, wenn gerade im Augenblick eine Kollision eines Sprites 
mit einem anderen Sprite oder mit einem Hintergrundzeichen 
stattfindet. 


IF# C THEN ...: 

Nun wird es etwas komplizierter. Dieser Befehl ist nur etwas für 
diejenigen, die in BASIC schon etwas fester im Sattel sitzen. Trotzdem 
können Sie sich ihn ruhig einmal durchlesen, auch wenn Sie nicht 
alles verstehen sollten: 





353510 — Interrupt — Behandlun 


10IF# CTHEN _......... :ı RETURN 
20... 

SO... 

40 BEFEHL : BEFEHL : BEFEHL 
sd... 







6 





Programmfortführung 


Kollision 





Interrupt 


Im Prinzip handelt es sich hierbei um eine Art IRQ in BASIC, also ein 
Interrupt oder eine Unterbrechung in BASIC. Dieses Kommando wird 
z.B. am Anfang eines Programmes gegeben. Von nun an überprüft die 
Supergraphik 64 ständig nach jedem Befehl, ob eine Kollision eines 
Sprites mit einem anderen Sprite oder mit dem Hintergrund 
stattgefunden hat. Sollte dies der Fall sein, so merkt sich Ihr Computer 
die derzeitige Position im BASIC-Programm und führt einen 
Unterprogrammsprung hinter das THEN des gerade besprochenen 
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Befehls aus. Bei einem IRETURN (s.u.) wird dieses 
"Unterbrechungsprogramm" beendet und ganz normal an der Stelle 
weitergemacht, an der Ihr Programm sich gerade befand, als die 
Unterbrechung (durch eine Kollision verursacht) ausgeführt wurde. 


In dieser Unterbrechungsroutine kann dann die Kollision abgearbeitet 
werden (z.B. ein Sprite explodieren lassen etc.), unter Beachtung der 
folgenden Dinge: 


- In welcher Art von Kollision welche Sprites verwickelt wurden, 
steht in Registern 30 und 31 des Videocontrollers (s. Handbuch 
oder Hardwaregrundlagenkapitel). Jedes gesetzte Bit gibt dabei das 
Sprite an, das kollidierte. Diese Register werden bei IRETURN 
gelöscht. 


- Während der Unterbrechungsroutine wird jede weitere Kollision 
ignoriert. 


- Im Laufe der Unterbrechungsroutine müssen die Ursachen einer 
Kollision beseitigt werden, d.h. die beiden kollidierten Objekte 
müssen auseinander gebracht werden, da es ansonsten direkt nach 
der Beendigung der Unterbrechungsroutine wieder zu einer 
Unterbrechung kommen würde. Dies kann durch Umpositionieren 
oder Ausschalten eines der beiden Objekte geschehen. 


- In Ihrer Unterbrechungsroutine sollten Sie keine Speicher des 
übrigen Programms verändern (außer, um besondere Effekte zu 
erzielen, wie im unten stehenden Beispielprogramm), da dies zu 
Konfusionen innerhalb Ihres Programms führen dürfte. Die 
Unterbrechung kann schließlich hinter jedem Befehl stattfinden. 


- Hinter dem THEN des IF# C THEN-Befehls müssen vollständige 
Befehle stehen. Sie dürfen also nicht die sonst erlaubte Verkürzung: 


IF# C THEN 520 
verwenden, sondern müssen vollständig ausschreiben: 
IF# C THEN GOTO 520 


Dafür dürfen Sie aber den sonst notwendigen Doppelpunkt zwischen 
THEN und einem Supergraphik-Befehl weglassen. 
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Der IRETURN-Befehl unterscheidet sich grundsätzlich vom 
RETURN-Befehl, um Unterprogramme zu beenden. Versuchen Sie 
also nie, ein Unterprogramm mit IRETURN oder die 
Unterbrechungsroutine mit RETURN abzuschließen. 


Weiterhin dürfen keine NEXT oder RETURN ohne vorherige FOR 
bzw. GOSUB in Ihrer Unterbrechungsroutine stehen. Nicht immer 
wird dadurch ein "RETURN WITHOUT GOSUB ERROR" oder 
"NEXT WITHOUT FOR ERROR" gegeben, da eventuell offene 
FOR ... NEXT - Schleifen oder Unterprogramme des übrigen 
Hauptprogrammes geschlossen werden. Achten Sie also besonders 
darauf! 


Sollte keine Unterprogrammebene mehr frei sein, so wird ein 
"'FORMULA TOO COMPLEX ERROR" in der Zeile ausgegeben, 
die unterbrochen werden sollte. 


Wenn Sie alle diese Punkte beherzigen, dann wird Ihnen dieser Befehl 
eine nützliche Hilfe sein. 


IF# CC THEN ....: 


Dieses Sekundärkommando hängt eng mit dem eben besprochenen C 
zusammen: 


Es löscht den mit IF# C THEN ... gesetzten Unterbrechungsmodus 
und springt bei einer derzeitigen Kollision ein letztes Mal hinter das 
folgende THEN, d.h. von nun an wird die Unterbrechungsroutine bei 
einer Kollision nicht mehr aufgerufen. 


IRETURN 


Befehl: IRETURN 

Beispiel: IRETURN 

Parameter: /// 

Funktion: Beenden der Unterbrechungsroutine 


Mit diesem Befehl schließen Sie eine Unterbrechungsroutine ab (Ss. 
IF# C THEN ...). 
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Hier ein kleines Beispielprogramm: 


100 REM Kr 

110 REM ** haha 

120 REM ** KOLLISIONEN ** 

130 REM ** =. 

140. REM es 

150 REM 

160 GMODE 0,1 : GCLEAR : COLOR= 0,0 

170 IF# C THEN GOTO 520 :REM INTERRUPTMODUS EIN 


180 K=0 :REM KOLLISIONSFLAG 
190 REM 

200 REM 

210 REM 2 SPRITES VORBEREITEN: 

220 REM 


230 SREAD A$ 

240 SMODE 0,3,1 : SMODE 1,3,7 

250 SSET 0,30,30,1 : SSET 1,200, 200, 1 
260 SDEFINE 0,A$ : SDEFINE 1,A$ 

270 TEXT "BITTE TASTE BETAETIGEN!",80,20,0 
280 WAIT 198,255 : POKE 198,0 

290 REM 

300 REM 

310 REM SPRITES IN BEWEGUNG SETZEN: 

320 REM 

330 SSET 1 TO 30,30 : SSET 0 TO 200,200 
340 REM 

350 REM 

360 REM WARTEN, BIS KOLLISIONSROUTINE 
370 REM SPEICHER K AUF 1 SETZT: 

380 REM 

390 TEXT "WARTEN!" ,200,90,0 

400 TEXT 1, "WARTEN! ",200,90,0 

410 IF K=0 THEN 390 

420 REM 

430 TEXT „"NOCHMAL(J/N)?",200,80,0 

440 GET T$ : IF T$="" THEN 440 

450 IF T$="y" THEN RUN 

460 IF T$="N" THEN END 

470 GOTO 440 

480 REM 

490 REM 

500 REM KOLLISIONSROUTINE: 

510 REM 

520 COLOR= 1,1 

530 FOR U=1 TO 100 : NEXT U 

540 COLOR= 0,0 

550 TEXT „"CRASH!",50,50,0 

560 SDEFINE O,"" :REM KOLLISIONSURSACHE BESEITIGEN 
570 K=1 :REM KOLLISIONSFLAG ZURUECKGEBEN 
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580 IRETURN 


590 REM 

600 REM 

610 REM SPRITEDEFINITION: 
620 REM 

630 DATA 0, 0, 0 
640 DATA 0, 0, 0 
650 DATA 0, 0, 0 
660 DATA 2, 0, & 
670 DATA 1, 0,128 
680 DATA 0,129, 0 
690 DATA 0, 66, 0 
700 DATA 0, 60, 0 
710 DATA 0,126, 0 
720 DATA 0,195, 0 


730 DATA 1,141,128 
740 DATA 3, 44,192 
750 DATA 31,255,248 
760 DATA 62,153,124 
770 DATA 125, 66,190 
780 DATA 2, 0, 64 
790 DATA 255,255,255 
800 DATA 1,255,128 
810 DATA 1,189,128 
820 DATA 3, 60,192 
830 DATA 15, 0,240 
840 DATA 15, 0,240 


Dieses kleine Demonstrationsprogramm setzt Ihnen zwei Sprites (ein 
gelbes und ein weißes) auf unterschiedliche Positionen des 
Bildschirms. 


In Zeile 280 wartet das Programm dann auf einen Tastendruck 
Ihrerseits, um die beiden Sprites auf Kollisionskurs zu bewegen. 
Erfolgt die Kollision, so wird irgendwo innerhalb der Zeilen 390-410 
unterbrochen. Durch das Einschalten des Interruptmodus in Zeile 170 
wird die Kollisionsroutine in den Zeilen 520-580 aufgerufen, der 
Bildschirm blitzt auf, eine Meldung wird auf den Bildschirm 
geschrieben, Sprite 0 ausgeschaltet (um die Kollisionsursache zu 
beseitigen) und zurück zu dem Befehl gesprungen, der durch die 
Kollision unterbrochen wurde (innerhalb der Zeilen 390-410) 
gesprungen. Hier kann nun auf das Flag K reagiert werden, das die 
K.ollisionsroutine auf 1 gesetzt hat. 
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Sprite I wird von der Kollisionsroutine nicht ausgeschaltet. Es 
wandert weiter und wird, wenn Sie nicht vorher auf eine Taste 
drücken, irgendwann mit dem Hintergrund in Form von Schrift 
zusammenstoßen. Dabei wird natürlich die Kollisionsroutine wieder 
aufgerufen. 


Na, Demonstration genug? Bitte, jetzt sind Sie dran! 


2.11.4 16 Sprites - Nicht nur Illusion 


Wir haben bisher stets mit dem normalen, 8 Sprites umfassenden 
Spritesatz Ihres Commodore-Computers gearbeitet. Normalerweise ist 
dies auch die größte Anzahl an Sprites, die Sie ohne Probleme 
gleichzeitig auf dem Bildschirm darstellen können. 


Mithilfe der erwähnten Interrupttechnik können Sie jedoch ein 
mehrfaches an Srites zur gleichen Zeit auf dem Bildschirm darstellen. 
Wir haben es hier mit einer ähnlichen Technik zu tun, die bereits 
angewandt wurde, um gleichzeitig Text und Graphik darzustellen (wir 
werden auf die genauen Prozesse im Hardwaregrundlagenkapitel noch 
genauer eingehen und Beispiele geben). 


In der Supergraphik wurde nun ein Modus eingeführt, in dem es 
Ihnen möglich ist, insgesamt 16 verschiedene, völlig unabhängige 
Sprites gleichzeitig auf einem Bildschirm darzustellen. Dabei sind zwar 
einige Einschränkungen hinzunehmen, doch kann man damit sicher 
leben. 


Zuständig für diesen zusätzlichen Spritesatz, sind die folgenden 
Befehle: 


SPOWER 


Befehl: SPOWER or,ur 
Beispiel: SPOWER 100,150 
Parameter: or: oberer Fensterrand 

ur: unter Fensterrand 
Funktion: Zuschalten des zweiten Spritesatzes 


Hier ist er! So unscheinbar er aussieht, so Enormes bewirkt er. Mit 
diesem Befehl schalten Sie die evtl. vorher definierten (aber auch 
beliebig zuschaltbaren) Sprites mit den Nummern 8-15 ein. Dafür 
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definieren Sie (ähnlich dem GMODE 0,7,...-Befehl) ein Fenster, in 
dem diese weiteren 8 Sprites erscheinen sollen. In diesem Fenster 
können dafür jedoch keine Sprites mit niedrigeren Nummern mehr 
auftauchen. D.h. Sie legen auf Ihrem Bildschirm zwei Bereiche an, in 
denen die beiden Spritesätze getrennt auftauchen werden. Die 
zusätzlichen Sprites mit den Nummern 8-15 können Sie mit den ganz 
normalen Sprite-Befehlen, die wir bereits kennengelernt haben, 
bearbeiten - auch wenn der zweite Spritesatz noch nicht eingeschaltet 
ist. 


Beim Einschalten dieses Befehls wird ein eventuell eingeschaltetes 
Textfenster in der Graphik automatisch abgeschaltet, da die beiden 
Zustände nicht gleichzeitig erscheinen können. Zu or und ur schlagen 
Sie bitte die Erläuterungen unter GMODE nach. 


Sollte ein Sprite einmal ein wenig über die Fenstergrenze hin- 
ausreichen, so wird es trotzdem weitergezeichnet, wobei sich allerdings 
die Farbe etc. ändern kann. Außer der Definition nimmt der Teil des 
Sprites, der unterhalb des Fensters liegt, völlig die Eigenschaften des 
korrespondierenden Sprittes des anderen Satzes an (unter 
korrespondierendem Sprite versteht man jeweils zwei Sprites aus den 
beiden Sätzen, deren Nummer gleich ist, wenn man von der Nummer 
des Sprites des zweiten Satzes 8 abzieht; also z.B.: Sprites 0 und 8 oder 
7 und 15). So kann es vorkommen, daß Sie plötzlich zweifarbige 
hochauflösende Sprites auf dem Bildschirm zu sehen bekommen, was 
natürlich von Ihnen ausgenutzt werden kann. 


Befehl: SPOWER 

Beispiel: SPOWER 

Parameter: --- 

Funktion: Abschalten des zweiten Spritesatzes 


Wenn wir die zwei Parameter des SPOWER-Befehls weglassen, so wird 
das zuerst definierte Fenster umd damit die Sprites des zweiten Satzes 
ausgeschaltet. Dieser Befehl sollte stets entweder zu Beginn oder am 
Ende eines Programmes stehen, das zwischendurch einmal 16 Sprites 
einschaltet. 


Im folgenden werden wir Ihnen ein kleines Programm vorstellen, das 
Ihnen 16 Sprites auf den Bildschirm zaubert und anschließend ein paar 
Sprites bewegt: 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 


REM a2 2202 2 2 22 22 zz 

REM ar a%* 

REM ** 16 SPRITES ** 

REM ar a%* 

REM hr 

REM 

GMODE 0,1 : GCLEAR : COLOR= 0,0 
REM 

FRAME 2,30,60,50 TO 260,150 


TEXT „"16 SPRITES",120, 95,0 
TEXT „"MIT",150,104,0 


TEXT „"SUPERGRAPHIK",113,113,0 

SREAD S1$ : SREAD S2$ 

REM 

REM 

REM 16 SPRITES VORBEREITEN: 

REM 

FOR S=0 TO 15 STEP 2 
SMODE S ,„0,5/2+1 
SMODE S+1,3,15-5/2 
X=5*30+40 
IF S<8 THEN : SSET S,X,180 : SSET S+1,X,200 
IF S>7 THEN : SSET S,X, 60 : SSET S+1,X, 90 
SDEFINE S ,S1$ 
SDEFINE S+1,52$ 

NEXT S 

REM 

REM 

REM 16 SPRITES AKTIVIEREN: 

REM 

SPOWER 10,100 

REM 

FOR X=1 TO 4000 : NEXT X 

REM 

REM 

REM SPRITES BEWEGEN: 

REM 

SSET 7 TO 100,150, 1 


SSET 0 TO 150,230,1 

SSET 9 TO 150,100,1 

SSET 10 TO 100, 80,1 

REM 

WAIT 198,255 

SWAIT O : SWAIT 7 : SWAIT 9 : SWAIT 10 
SPOWER :REM 2. SPRITESATZ AUS 
REM 

REM 

REM SPRITEDEFINITION 1: 

REM 

DATA 0, 0, 0 

DATA 0, 0, 0 
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610 Data 0, 0, 0 
620 DATA 0, 0, 0 
630 DATA 0, 0, 0 
640 DATA 0, 0, 0 
650 AA 0, 0, 0 
660 DATA 24, 0, 0 
670 DATA 28, 0, 0 


680 DATA 30, 0, 0 
690 DATA 31, 1,224 
700 DATA 31,131,176 
710 DATA 31,255,248 
720 DATA 125,182,223 
730 DATA 31,255,240 
7aoDmaA 0, 0, 0 


750 aA 0,0, 0 
760 aA 0, 0, 0 
zo 0,0, 0 
780 DATA 0, 0, 0 
790 DATA 0, 0, 0 
800 DATA 0, 0, 0 
810 REM 

820 REM 

830 REM SPRITEDEFINITION 2: 
840 REM 

850 DATA 0, 0, 0 
860 DATA 0, 0, 0 
870 DATA 12, 0, 96 
880 DATA 6, 0,19% 
890 DATA 3, 1,128 


900 DATA 0,195, 0 
910 DATA 0, 60, 0 
920 DATA 0,126, 0 
930 DATA 0,195, 0 
940 DATA 17,141,136 
950 DATA 19, 44,200 
960 DATA 31,255,248 
970 DATA 62,170,188 
980 DATA 125, 85,126 
990 DATA 255,255 ,255 
1000 DATA 193,255, 131 
1010 DATA 193,129,131 
1020 DATA 3, 0,192 
1030 DATA 15, 0,240 
1040 DATA 15, 0,240 
1050 DATA 0, 0, 0 
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Wie Sie sehen, werden hier insgesamt 16 Sprites aus 2 verschiedenen 
Definitionen (s. DATA-Zeilen) in verschiedenen Farben und Größen 
auf dem Graphikbildschirm dargestellt. 


Bevor das Programm jedoch irgendetwas in Sachen Sprites unter- 
nimmt, wird in den Zeilen 180-210 eine kleine Graphik gezeichnet, 
die dem ganzen etwas Form geben soll. Die Befehle hierzu sollten 
Ihnen inzwischen bekannt vorkommen. 


Zeile 220 liest die beiden verschiedenen DATA-Definitionen in die 
Strings SI$ und S2$. Erst jetzt werden die 16 Sprites vorbereitet: 


Dies übernimmt die FOR...NEXT-Schleife in den Zeilen 270-350. 
Hier werden z.B. die Farbe und die Größe unserer zukünftigen Sprites 
festgelegt (Zeilen 280/290). Dabei wird jedes zweite Sprite eine andere 
Größe und Form haben. Die Zeilen 310 und 320 positionieren die 16 
Sprites, die schließlich in den Zeilen 330 und 340 eingeschaltet 
werden. 


In diesem Zustand sind die oberen 8 Sprites zwar offiziell schon 
eingeschaltet, sie sind jedoch noch nicht auf dem Bildschirm zu sehen. 
Dies realisiert erst die Zeile 400 mit dem besagten SPOWER-Befehl. 
Hier wird zwischen den Bildschirmrasterzeilen I0 und 100 (nicht 
identisch mit den Graphikkoordinaten! s. GMODE) eine Zone 
eingerichtet, in der nur der obere Spritesatz gilt. 


Es sind 16 Sprites gleichzeitig sichtbar! 


Nach einer kurzen Wartezeit geschieht das unfaßbare: 4 der Sprites aus 
beiden Spritesätzen lösen sich aus der Formation und wandern über 
den Bildschirm (Zeilen 470-500). Und das, während das Programm 
weiterläuft! 


Das Programm wartet auf einen Tastendruck, dann auf die 4 Sprites 
und knipst nun in Zeile 540 den zweiten Spritesatz aus, bevor es 
endet. 


Während der Spritebewegung kann es zu einem kleinen Flackern der 
Sprites kommen. Dies liegt daran, daß sowohl die Spritebewegung als 
auch die Darstellung der 16 Sprites und die Tastaturabfrage über die 
gleiche Interruptroutine läuft, was manchmal, aufgrund des sehr 
zeitkritischen Verhaltens dieser Abläufe, zu Kollisionen führen kann. 


Damit verlassen wir - ich hoffe nicht Sie - das große Kapitel der 
Sprites und wenden uns wieder anderen Problemen zu. 


168 Das Supergraphikbuch zum C64 


2.12 Wir bringen Farbe ’rein! 


Bisher haben wir uns lediglich mit der Erzeugung der verschiedensten 
Formen und Gebilde herumgeschlagen. Die Farbe spielte dabei immer 
eine untergeordnete Rolle. Zwar haben wir auch dort bereits ein 
wenig auf die farbliche Gesamtgestaltung geachtet, ja sogar einige 
Farbbefehle kennengelernt, im großen und ganzen jedoch blieben uns 
die mannigfaltigen Möglichkeiten Ihres Rechners, die uns die 
Supergraphik erschließt, im unklaren. Dieses Versäumnis wollen wir 
an dieser Stelle nachholen. 


2.12.1 Multicolor und Farbbefehle 


Am Anfang unseres Exkurses in die Welt der Farben stehen die drei 
zentralen Farbbefehle. Sie werden nachher, wie wir sehen werden 
noch von einem allgemeinen Sekundärbefehl ergänzt, der bei allen 
Zeichenbefehlen angewandt werden kann, doch das soll uns hier und 
jetzt noch nicht stören. 


Zunächst sollten wir uns aber über die normale Farbpalette unseres 
Commodore 64 klar werden. Aus diesem Grunde stellen wir im 
folgenden eine kleine Tabelle auf, die Sie - in erweiterter Form - 
auch im Anhang finden. Da Ihr Computer schlecht mit Farbnamen 
zurechtkommt, ist jeder der insgesamt 16 Farben, die der Rechner 
darstellen kann, eine Nummer von 0-15 zugeordnet: 


hex |dez| Farbe || hex [dez| Farbe 

$00 | 0 | schwarz || %08 | 8 | orange 

801 | 1 } weiß Il $09 | 9 | braun 

$02 | 2 | rot || $0A |10 | hellrot 
$03 | 3 | zyanblau || $0B |11 | dunkelgrau 
$04 | 4 | violett || $0c |12 | mittelgrau 
$05 | 5 | grün |] $0D [13 | hellgrün 
$06 | 6 | blau |I  $0E |14 | hellblau 
$07 | 7 | gelb || $sor [15 | hellgrau 


Interessant für die Arbeit mit der Supergraphik sind natürlich nur die 
dezimalen Zahlenwerte.e Werden Ihre Eingabewerte bei den 
verschiedensten Befehlen einmal größer als 15, so beginnt die 
Farbskala wieder von vorne, also 16=schwarz, 17=weiß usw. Der 
absolut größte Eingabewert ist 255; alle Werte, die größer sind als 255 
erzeugen einen ILLEGAL QUANTITY ERROR. 
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Lange Rede, kurzer Sinn, fangen wir doch einfach einmal beim ersten 
Befehl an: 


COLOR= 


Befehl: COLORS= r,h 
Beispiel: COLOR= 2,6 
Parameter: r: Rahmenfarbe (0-15) 
h:  Hintergrundfarbe (0-15) 
Funktion: Festlegen der Rahmen- und Hintergrundfarbe 


Bei diesem Befehl, es ist der unkomplizierteste aller Farbbefehle, 
können Sie zunächst einmal mit dem Parameter r die Farbe des 
Rahmens Ihres Bildschirms festlegen. Dieser Rahmen bleibt bei allen 
Umschaltungen nach LGR, HGR, MC, Seiten I oder 2 solange in der 
gleichen Farbe, bis Sie ihn wieder mit diesem Befehl ändern. 


Mit h dagegen wird die Hintergrundfarbe des jeweiligen Gra- 
phikfensters festgelegt. Sie kann für LGR (=Text), Seite Il und Seite 2 
(HGR/MC) jeweils verschiedene Werte annehmen. Beim Umschalten 
auf einen anderen Graphikmodus wird sie also mit berücksichtigt und 
dementsprechend umgeschaltet. D.h. Graphikseite 1 und 2 können 
beispielsweise jeweils andere Hintergrundfarben besitzen. Mit dem 
Parameter h wird also dasselbe bewirkt, wie mit einem SCOL= 0,h 
(s.u.). 


Probieren Sie diesen Befehl doch einmal aus. Geben Sie im normalen 
Eingabemodus ein: 


COLORS= 10,9 (return) 
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Befehl: SCOL= nf 

Beispiel: SCOL= 1,14 

Parameter: n: Farbregister (0-3) 
f: Farbe 

Funktion: Festlegen der Zeichenfarbe für den gesamten 
Bildschirm. 


SCOL= ist bereits ein recht komplexer Befehl. Um ihn richtig zu 
verstehen, sollten wir ein wenig über die Farbstruktur der Graphik 
wissen. Diejenigen, die es ganz genau wissen wollen, können natürlich 
die entsprechenden Kapitel in diesem Buch durchlesen, vielleicht 
blättern Sie ja auch noch einmal in dem kleinen Graphik-ABC am 
Anfang dieses großen 2. Kapitels. Hier soll nur ein kleiner Überblick 
gegeben werden: 


Schauen wir uns die Verhältnisse doch einmal in der hochauflösenden 
Graphik an: In der hochauflösenden Graphik können wir - wie auch 
in den anderen Graphikmodi - gleichzeitig alle 16 verschiedenen 
Farben auf dem Bildschirm darstellen. Dabei muß jedoch folgende 
Einschränkung gemacht werden: Pro 8x8-Punkte-Quadrat (also ein 
Feld in der Größe eines Buchstabens im Text-Modus) können wir nur 
zwei verschiedene Farben gleichzeitig auf dem Bildschirm erscheinen 
lassen. Dies ist zum einen die Hintergrundfarbe (die übrigens ebenfalls 
von 8x8-Feld zu 8x8-Feld unterschiedlich sein kann), also die Farbe 
für alle nicht gesetzten Punkte, zum anderen ist dies die Farbe der ge- 
setzten Punkte in diesem 8x8-Feld. In einem anderen Quadrat können 
diese beiden Farben wieder völlig anders belegt sein. 


Um diese Verhältnisse zu realisieren, besitzt Ihr Rechner einen 
separaten Farbspeicher, dessen Struktur wir hier nicht näher erläutern 
wollen (s. Kapitel Hardwargrundlagen). Wir nennen ihn auch 
Farbregister. 


Von diesen Farbregistern gibt es nun in HGR genau zwei: eines für 
die Hintergrundfarbe (wir nennen es Farbregister 0), eines für die 
Farbe aller gesetzten Punkte (Farbregister 1). In diesen Farbregistern 
steht nun die Nummer der Farbe, die die gesetzten oder nicht 
gesetzten Punkte besitzen sollen. 


Kommen wir nun zur Multicolorgraphik MC). Hier sieht das Ganze 
ein wenig komplizierter aus: In MC ist es Ihnen möglich, insgesamt 4 
verschiedene Farben gleichzeitig in einem oben erwähnten Quadrat 
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unterzubringen. Da jedoch ein Punkt nun die doppelte Breite besitzt, 
ist ein solches Quadrat nur noch 4x8-Punkte groß. Entsprechend sinkt 
die Graphikauflösung bekanntlich auf 160x200 Punkte. 


Auch hier existieren wieder verschiedene Farbregister, diesmal 4 an 
der Zahl (Farbregister 0-3). Im Unterschied zur hochauflösenden 
Graphik gilt in MC das Farbregister 0 für alle 4x8-Punkte-Kästchen 
auf dem gesamten Bildschirm. Die Register 1,2 und 3 dagegen können 
auch hier von Kästchen zu Kästchen variieren. 


Damit Ihr Rechner nun weiß, ob er die Farbe eines Punktes in MC 
aus dem Register 0, 1, 2 oder 3 beziehen soll, wird nicht gespeichert, 
ob der Punkt gesetzt oder nicht gesetzt ist. Es wird vielmehr die 
Nummer des Registers (0-3) vermerkt, aus dem die Farbe stammen 
soll (da hierfür statt 1 insgesamt 2 Bits pro Punkt notwendig sind 
verringert sich - wie erwähnt - die Graphikauflösung, s. 
Hardwaregrundlagen). 


Was macht nun der Befehl SCOL=? 


Mit SCOL= setzen Sie die Farbregister 0-3 auf dem gesamten 
Bildschirm, d.h. der gesamte Bildschirm ist nun für das angegebene 
Farbregister einfarbig, die Farbregister jedes 8x8- bzw. 4x8-Feldes 
auf dem gesamten Bildschirm enthalten die gleiche Farbnummer (n=0 
ist die Hintergrundfarbe; SCOL=0,f entspricht also COLOR=Tr/f). 
Gleichzeitig wird die entsprechende Punktfarbe gesetzt (s. PCOL=). 


SCOL= wird gewöhnlich zur Initialisier&ung der Graphikfarben 


verwendet. Das folgende Beispiel arbeitet in Multicolorgraphik und 
soll die Funktion von SCOLS= erläutern: 


100 REM add 2 2 2020202 202080202 2020202 202 02.2.2.2 72.2 2.2.202 


110 REM ** x 
120 REM ** SCOL= - FARBEN, FARBEN ** 
130 REM ** “r 
140 REM re a 
150 REM 

160 GMODE 0,2 : GCLEAR 

170 ScoL= 0,0 : SCOL= 1,2 

180 SCOL= 2,4 : SCOL= 3,6 

190 REM 

200 REM MIT REGISTER-NUMMER 1 ZEICHNEN: 
210 REM 


220 PCOL= 4,1 
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230 FILL , 30, 30 TO 60, 60 
240 FRAME ‚7, 90, 90 TO 120,120 
250 TEXT "REGISTER 1",20,160,0 
260 REM 

270 REM MIT REGISTER-NUMMER 2 ZEICHNEN: 
280 REM 

290 PCOL= 4,2 

300 FILL , 40, 40 TO 70, 70 
310 FRAME ‚7,100,100 TO 130,130 
320 TEXT ‚"REGISTER 2",20,168,0 
330 REM 

340 REM MIT REGISTER-NUMMER 3 ZEICHNEN: 
350 REM 

360 PCOL= 4,3 

370 FILL , 50, 50 TO 80, 80 
380 FRAME ‚7,110,110 TO 140,140 
390 TEXT ‚"REGISTER 3",20,176,0 
400 REM 

410 REM FARBEN WECHSELN: 

420 REM 

430 FOR F=0 TO 100 

440 FOR R=1 TO 3 

450 SCOL= R,F+3*R 


460 FOR T=1 TO 200 : NEXT T 
470 NEXTR 
480 NEXT F 


Schauen wir uns doch einmal etwas genauer an, was in diesem 
Programm geschieht: 
Initialisiert wird unser Programm in den Zeilen 160-180. Hier wird 
zunächst mit einem 


GMODE 0,2 


die Multicolorgraphik Seite 1 eingeschaltet, um dann mit dem 
bekannten 


GCLEAR 


gelöscht zu werden. Im Anschluß daran (Zeile 170) wird zunächst 
einmal die Hintergrundfarbe auf schwarz gesetzt: 


SCOL= 0,0 


Wie Sie bereits wissen, ist die Hintergrundfarbe für das gesamte 
Graphikbild identisch. Als nächstes werden nacheinander Farben 1 bis 
3 für den gesamten Bildschirm gesetzt: 
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ScoL= 1,2 
SCOL= 2,4 
SCOL= 3,6 


Damit hätten wir alle Farbregister zum Start vorbereitet, und es kann 
losgehen. 


In den Zeilen 220, 290 und 360 finden Sie jeweils einen Befehl, der 
Ihnen noch unbekannt ist (er wird gleich etwas weiter unten 
beschrieben), Sie aber nicht weiter stören soll. Er hat in diesem Fall 
lediglich die Aufgabe, der Supergraphik anzugeben, mit welcher 
Registernummer in Zukunft gezeichnet werden soll. Damit schaltet das 
Programm also in Zeile 220 auf Registernummer |. In den Zeilen 230- 
250 werden also stets mit Registernummer 1 nacheinander ein Feld 
mit FILL, ein Rahmen mit FRAME und ein Schriftzug mit TEXT 
gezeichnet. In Zeile 290 wird dann auf Registernummer 2 
umgeschaltet und der gleiche Vorgang wiederholt sich. Die Zeilen 
360-390 bewirken analoges mit Registernummer 3. 


Jetzt sind also drei mal drei Gebilde mit allen drei Registernummern, 
also mit drei verschiedenen Farben, auf den Bildschirm gezeichnet 
worden. Mit dem Befehl SCOL= können wir nun die Farbzuordnungen 
zu den verschiedenen Registern ändern, so daß die Farbe der 
verschiedenen Gebilde schlagartig wechselt, ohne daß sie neu 
gezeichnet werden müssen. Dies wird dann auch in den Zeilen 430- 
480 realisiert. Hier ändern zwei verschachtelte FOR...NEXT-Schleifen 
jeweils die Farbregisternummer (innere Schleife) und die 
zuzuordnende Farbnummer (äußere Schleife). 


Machen Sie sich keine Gedanken über den Wertebereich des 
Farbnummernparameters. Wie Sie oben bereits lesen konnten, gibt es 
zwar nur 16 Farben, für die die Nummern 0-15 reserviert sind, 
höhere Werte können trotzdem eingegeben werden, da Supergraphik 
diese Werte wieder heruntertransformiert. Bei Nummer 16 fängt die 
Farbskala also wieder an. 


Vielleicht sollten Sie ein wenig mit diesem Befehl herumprobieren, ihn 
auch einmal in HGR anwenden usw. Wenn Sie mit ihm etwas vertraut 
sind, fällt die Anwendung dann auch nicht mehr allzu schwer. 
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Befehl: PCOL= n,‚f 

Beispiel: PCOL= 1,14 

Parameter: n: Farbregisternummer/Registermodus (0-4) 
f: Farbnummer (0-15)/Farbregisternr. (0-3) 

Funktion: Festlegen der Zeichenfarbe 


Im obigen SCOL=-Beispiel haben wir ihn bereits einmal ken- 
nengelernt. Dieser Befehl hat insgesamt 2 verschiedene Aufgaben. Die 
erste Aufgabe nimmt er war, wenn der erste Parameter n auf 4 gesetzt 
wird und ist nur für MC interessant. In dieser Funktion haben wir ihn 
bereits kennengelernt. Hier bestimmt der zweite Parameter dann, mit 
welcher Registernummer in Multicolor gezeichnet werden soll. 


PCOL= 4,1 


bestimmt dann beispielsweise, daß alle Figuren, Texte oder Punkte 
von nun an mit der Registernummer 1 gezeichnet werden, also die 
Farbe des Farbregisters | annehmen. 


Bewegt sich der erste Parameter dagegen im Bereich 0-3 (in HGR 
natürlich nur von 0-1), so gilt folgendes: 


Der erste Parameter n bestimmt das Farbregister. Der zweite 
Parameter gibt dann die Farbe an, die dem Register zugeordnet wird. 
Insoweit entspricht in diesem Fall PCOL= dem Befehl SCOL=. Bei 
SCOL= wird nun aber auch der gesamte Bildschirm sofort mit dieser 
Farbe eingefärbt, d.h. alle Farbregister 1 des Bildschirms (bekanntlich 
hat jeder 4x8- bzw. 8x8-Block der Graphik ein eigenes Farbregister 
1) werden mit der im zweiten Parameter angegebenen Farbe belegt. 


Bei PCOL= wird dagegen nur der Speicher für das aktuelle 
Farbregister geändert. Auf dem Bildschirm tut sich noch gar nichts. 
Erst wenn Sie ein Gebilde zeichnen, erhält dieses Gebilde die 
angewählte Farbe. 


In der Tat wird beim SCOL=-Befehl ebenfalls der Speicher für das 
aktuelle Farbregister gesetzt, zusätzlich aber - wie gesagt - der 
gesamte Bildschirm mit dieser Farbe eingefärbt. 


Doch so einfach geht die Sache doch nicht. Denn normalerweise 
werden bei allen Zeichenbefehlen wie PLOT, CIRCLE etc. keine 
Farben gesetzt. Es wird nur in HGR gezeichnet oder gelöscht und in 
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MC mit den verschiedenen Farbregistern gezeichnet. Es wird jedoch 
noch nicht berücksichtigt, daß ja jedes 4x8- bzw. 8x8-Feld eine 
eigene Farbzuordnung für seine Farbregister haben kann. Hier wird 
nun ein neuer Sekundärbefehls-Zusatz wichtig, den wir bisher noch 
nicht besprochen haben: 


Die C-Erweiterung: 


Sicher erinnern Sie sich noch an die beiden Erweiterungen aller 
Zeichenbefehle: T für Test und B für Pinselwahl. 


C ist nun ein weiterer, letzter Zusatz, der unabhängig von und 
zusätzlich zu den beiden anderen an einen Zeichenbefehl angehängt 
werden kann. Dabei ist bei der Kombination mit den beiden anderen 
Zusätzen lediglich zu beachten, daß der C-Zusatz an erster Stelle 
kommt, also z.B.: 


PLOT C B 7, T TEST,1,100,150 


Damit ergeben sich wieder eine Reihe anderer Kombinations- 
möglichkeiten mit den ganz normalen Zeichenbefehlen: 


PLOT (zm) ,x,y 
PLOT C (zm),X,y 
PLOT Bm, (zm),x,y 
PLOTCBm, (zm),x,y 
PLOT T var, (zm),X,y 
PLOT C T var, (zm),X,y 
PLOT Bm, T var, (zm),X,y 
PLOT CBm, T var, (zm),x,y 


Doch was bewirkt dieser neue kleine Buchstabe nun eigentlich? 

Wie gesagt, wird durch ihn bewirkt, daß die einem Farbregister 
zugeordnete Farbe aus dem internen aktuellen Speicher der 
Supergraphik auch in die Farbregister derjenigen 4x8- bzw. 8x8- 
Felder übertragen wird, die von der gezeichneten Figur (Linie, 
Punkt,...) angesprochen werden. Es wird also nicht nur vermerkt, aus 
welchem Farbregister die Linie etc. ihre Farbe beziehen soll (was ja 
auch ohne C-Zusatz geschieht), sondern welche Farbe den 
angesprochenen Farbregistern nun zugeordnet werden soll. Während 
also durch den Befehl SCOL= alle Farbregister des gesamten Bildes 
einheitlich mit einer Farbe besetzt werden, können Sie mit dem C- 
Zusatz (gemeinsam mit PCOL=) hier noch weiter differenzieren. 
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Ein Beispiel mag die Notwendigkeit dieses Zusatzes erläutern: 

Nehmen Sie einmal an, Sie würden zwei parallele, nahe beieinander 
liegende Linien mit Farbsetzung zeichnen; etwa mit folgenden 
Befehlen: 


10 GMODE 0,1 : GCLEAR 

20 PCOL= 1,2 : PLOT C ‚0, 
30 PCOL= 1,3 : PLOT C ‚0, 
40 WAIT 198,255 


0 TO 159,199 
3 T0 


156,199 


Haben Sie dieses kleine Programm gestartet, werden Sie bemerken, 
daß beide Linien (hier in HGR) die Farbe der zuletzt gezeichneten 
annehmen, obwohl beide in verschiedenen Farben gezeichnet werden 
sollten (die erste in rot, die zweite in zyanblau). Dies resultiert aus 
dem oben erläuterten Problem der Farbauflösung (in HGR nur 2 
Farben in einem 8x8-Feld). 


Wollen Sie nun aber die Farbe der zuerst gezeichneten Linie erhalten, 
so setzen Sie lediglich hinter das PLOT der ersten Linie (also in Zeile 
20) ein C, die zweite Linie wird dann ohne Farbsetzung gezeichnet 
(was übrigens auch ein wenig schneller vonstatten geht). 


Wenn Sie generell ohne den C-Zusatz zeichnen, wie wir das bisher 
immer getan haben, so wird stets in den Farben gezeichnet, die Sie 
mit dem SCOL=-Befehl gesetzt haben. 


Im LGR-Modus, also in der niedrig auflösenden Graphik, die im 
normalen Text-Fenster realisiert wird, bewirkt der C-Zusatz lediglich, 
daß nun nicht - wie sonst - die aktuelle Textfarbe als Punktfarbe 
angesehen, sondern die reguläre Punktfarbe I (mit PCOL= |,f 
bestimmt) verwendet wird. 


Lediglich im Zusammenhang mit Zeichenmodus zm=4 hat C keine 
besondere Wirkung. Im Zusammenhang mit zm=] muß darauf geachtet 
werden, daß ebenfalls die aktuelle PCOLor gesetzt wird. Wollen Sie 
also mit einer bestimmten anderen Farbe löschen, so verwenden Sie 
den PCOL= zur Änderung der Punktfarbe. 


Das folgende Programm soll Ihnen den Gebrauch von PCOL= und C 
ein wenig näher bringen: 


Supergraphik 


ür Einsteiger 


100 REM Hk 


110 REM ** 
120 REM ** 
130 REM ** 


ar 


PCOL= - NOCH MEHR FARBEN ** 
“r 


140 REM RR 


150 REM 
160 GMODE 
170 SCOL= 
180 SCOL= 
190 REM 


GCLEAR 


0,2: 
0,0 : ScoL= 1,6 
2,2: 


SCOL= 3,5 


200 REM Hr 


210 REM ** 
220 REM ** 
230 REM ** 


a% 


FIGUR 1 ** 
** 


240 REM We 


250 REM 


260 R=1 :REM REGISTERNUMMER 
270 FOR X=0 TO 79 STEP 4 


280 R=R+1 : IF R=4 THEN R=1 
290 PCOL= 4,R 

300 CIRCLE ‚, 80,100,X,99-X/2 
310 CIRCLE „, 79,100,X,99-x/2 
320 NEXT X 

330 REM 

340 FOR W=1 TO 3000 : NEXT W 
350 REM 

360 REM Wilke 

370 REM ** *“* 

380 REM ** FIGUR 2 ** 

390 REM ** “r 

4200 REM Es 

410 REM 

420 GCLEAR 


430 PCOL= 4,1 : PCOL= 1,2 


440 TEXT C „"FARBENSPIEL",37,10,0 
450 R=1 : F=l 

460 FOR X=0 TO 380 STEP 3 

470 R=R+1 : IF R= 4 THEN R=1 
480  F=f+l : IF F=16 THEN F=1 
490  PCOL= 4,R 

500 PCOL= R,F 


510 S1=50*SINCX/30)+100 
520 S2=30*SINCX/20)+80 
530  FILL C 0,52,S1 TO S2+2,51+2 


540 NEXT X 


550 WAIT 198,255 


177 
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Auch in diesem Programm werden zunächst einmal in den Zeilen 160- 
180 die Graphik und alle Farbregister initialisiert (auch hier befinden 
wir uns wieder in Multicolor). 


In Zeile 260 geht es dann richtig los. Wir wollen hier nicht erläutern, 
wie die hier gezeichnete Figur realisiert wird, das können Sie leicht 
anhand des Listings und ein paar Versuchen zur Programmänderung 
selbst feststellen. Wesentlich soll an diesem Programm ja der Umgang 
mit der Farbgebung sein. 


So wird in der FOR..NEXT-Schleife der Figur | die Variable R (für 
Registernummer) ständig von | bis 3 hochgezählt, um nach und nach 
in allen 3 Farbregistern (ohne Register 0 als Hintergrundfarbe 
natürlich) die verschiedenen Kreise zu zeichnen. Da die Kreise ohne 
Farbsetzung gezeichnet werden, erscheinen Sie lediglich in den drei 
durch die SCOL=-Initialisiertung vorgegebenen Farben auf dem 
Bildschirm. 


Figur 2 nun demonstriert Ihnen, daß es auch möglich ist, alle 16 
Farben gleichzeitig auf dem Bildschirm darzustellen. Hierzu wird in 
Zeile 470 stets die Registernummer von 1-3, in Zeile 480 die 
Farbnummer von 1-16 gezeichnet. 


Sie sollten hier ein wenig experimentieren, um sicher zu werden. Das 
nächste Kapitel zeigt Ihnen eine sehr schöne, bereits weiterreichende 
Anwendung der Farbgebung in der Supergraphik. 


2.12.2 Nur 16 Farben? Farbmischung! 
136 Farben für den Commodore 64 


Man sollte meinen, 16 Farben reichen für die meisten Anwendungen. 
Doch jeder Computermensch strebt nach neuen, immer höheren 
Leistungsmerkmalen und so werden wir hier eine Möglichkeit 
vorstellen, mit der wir gleichzeitig sehr viel mehr als nur die üblichen 
16 Farben auf dem Bildschirm darstellen können. Es gibt natürlich 
auch Anwendungen, bei denen es darauf ankommt, möglichst viele 
verschiedene Farben und besonders Farbschattierungen auf dem 
Bildschirm darzustellen. Man denke hierbei allein einmal an 
dreidimensionale Objekte, auf denen der Lichteinfall durch 
unterschiedliche Schattierungen dargestellt werden kann. 


Die Lösung für dieses Vorhaben auf unserem Commodore 64 liegt in 
der Mischung verschiedener Farben. Bekanntlich hat das Auge nur 
eine beschränkte Punktauflösung. Zwei sehr nahe beieinander liegende 
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Punkte erscheinen deshalb als ein einziger. Haben diese beiden Punkte 
nun unterschiedliche Farben, so registriert das Auge eine Mischung 
aus beiden Farben. Man unterscheidet dabei die sogenannte additive 
oder die subtraktive Farbmischung. Die subtraktive Farbmischung 
kommt bei der Mischung von z.B. Wasserfarben zustande, da durch 
die Mischung zweier Farben hier insgesamt weniger Licht zu Auge 
fällt (die beiden gemischten Farben behalten stets ihren Lichtanteil bei 
sich). Bei Ihrem Monitor oder allgemein bei der Mischung von 
Lichtquellen werden die beiden Farben addiert, es gelangt also mehr 
Licht ans Auge. 


Diese additive Farbmischung wird beispielsweise beim normalen 
Farbfernseher ausgenutzt. Hier setzt sich das Bild aus den drei 
Grundfarben Rot, Grün und Blau (RGB) zusammen, die jeweils 
gemischt werden. Die Farbe Weiß entsteht durch das Zusammenwirken 
aller drei Farben in gleicher Intensität. Schwarz bedeutet das Fehlen 
jeglichen Lichtes. Soll z.B. die Farbe Rosa dargestellt werden, so 
werden die beiden Farben Grün und Blau in ihrer Intensität ein wenig 
gegenüber Rot zurückgenommen etc. 


Diese Mittel stehen uns bei unserem Computer nicht direkt zur 
Verfügung, obwohl auch er sein Farbbild auf diese Weise erstellt. Wir 
müssen jedoch mit den zur Verfügung stehenden 16 Farben unseres 
Computers auskommen. Eine Farbmischung erreichen wir durch 
Untereinandersetzen zweier gleich- oder verschieden farbiger Punkte 
in Multicolor. Ein einziger Punkt setzt sich damit aus zwei Multicolor- 
Punkten zusammen. 


Mit dieser Art der Farbmischung lassen sich dann eine ganze Menge 
mehr Farben auf dem Bildschirm darstellen, als bisher. Alle 16 Farben 
können wir mit wiederum 16 Farben kombinieren und kämen dann 
rein rechnerisch auf 16*2=256 verschiedene Kombinationen. Da es 
jedoch zum selben Ergebnis führt, wenn wir schwarz mit weiß oder 
weiß mit schwarz kombinieren, fallen eine ganze Reihe 
Kombinationen weg. Es bleiben insgesamt 136 verschiedene sinnvolle 
und auch recht schöne Kombinationen. Davon sind genau 120 Farben 
neu und das Produkt der eben besprochenen Farbmischung. 


Wie dieses Vorhaben nun mit unserer Supergraphik realisiert wird, 
zeigt uns das folgende BASIC-Programm, das sämtliche 136 Farben in 
kleinen Rechtecken auf den Bildschirm bringt: 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
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REM RR 
REM ar ar 
REM ** VIEL MEHR FARBEN ** 
REM ar a%* 
REM Ka 2 2 202 20202 202 2 2 2 2 2 2 2 202 202020277 
REM 
GMODE 0,2 : GCLEAR 
SCOL= 0,0 
SCOL= 1,2 : SCOL= 2,3 : SCOL=3,9 
REM 
REM 
REM FARBKOMBINATIONEN UEBERNEHMEN: 
REM 
DIM FS(136,1) 
FA=0 
FOR X=0 TO 15 :REM ERSTFARBE 
FOR Y=X TO 15  :REM ZWEITFARBE 
READ FSCFA,O),FSCFA,1) 
FA=FA+1 :REM FARBNUMMER+ 
NEXT Y 
NEXT X 
REM 
REM 
REM RAHMEN, UEBERSCHRIFT: 
REM 
PCOL= 4,3 :REM REGISTER 3 EIN 
FRAME 2,3,20,18 TO 159,158 
PCOL= 2,13 :REM FARBE 13 NACH REG. 2 
PCOL= 4,2 :REM REGISTER 2 EIN 
TEXT C „"FARBSKALA",50,10,0 
REM 
REM 
REM FARBFELDER ZEICHNEN: 
REM 
F=0 
FOR X=0 TO 15 :REM ERSTFARBE 
FOR Y=X TO 15  :REM ZWEITFARBE 
X1=X*8+24 : X2=X*8+7+24 
Yi=Y*B+24 : Y2=Y*B+7+24 
FA=F 
GOSUB 800 :REM FELD ZEICHNEN 
F=F+1 :REM FARBE ERHOEHEN 
NEXT Y 
NEXT X 
REM 
REM 
REM BESCHRIFTUNG: 
REM 
PCOL= 2,8 : PCOL= 4,2 
FOR X=0 TO 15 
TEXT C ‚„STRSCZ),0,X*8+32,0 :REM EINER LINKS 
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610 TEXT C „STR$CZ),X*8+16,176,0 :REM EINER UNTEN 
620 Z=2+1 : IF Z=10 THEN Z=0 

630 IF X<10 THEN 660 

640 TEXT C ‚„"1",0,X*8+32,0 :REM ZEHNER LINKS 
650 TEXT C ‚„"1",X*8+24, 168, 0 :REM ZEHNER UNTEN 
660 NEXT X 

670 REM 

680 WAIT 198,255 

690 END 

700 REM 

710 REM 

720 REM FELD ZEICHNEN: 

730 REM UEBERGABE: 

740 REM FA- FARBE 

750 REM X1- X1-KOORD. 

760 REM Y1- Y1-KOORD. 

770 REM X2- X2-KOORD. 

780 REM Y2- Y2-KOORD. 

790 REM 

800 FOR YO=Y1 TO Y2 STEP 2 

810 PCOL= 1,FSCFA,0) : PCOL= 2,FSCFA,1) 
820 PCOL= 4,3 

830 PLOT C B 102,,X1,Y0 TO x2,Y0 
840 PLOT C B 153, ,X1,Y0+1 TO X2,Y0+1 
850 NEXT YO 

860 RETURN 

870 REM 

880 REM 

890 REM FARBKOMBINATIONSTABELLE: 

900 REM 

910 DATA 0,0, 0,1, 0,2, 03 
920 DATA 0,4, 0,5,0,6,0, 7 
930 DATA 0,8, 0,9, 0,10, 0,1 
940 DATA 0,12, 0,13, 0,14, 0,15 
950 DATA 1,11 
960 DATA 1,4, 1,5, 16,147 
970 DATA 1,8, 1,9, 1,10, 1,11 
980 DATA 1,12, 1,3, 1,1%, 1,15 
990 DATA 2,2, 23 
1000 DATA 2, 4, 5, 6, 2,7 
1010 DATA 2,8, 3,9, 2,10, 2,11 
1020 DATA 2,12, 2,13, 2,14, 2,15 
1030 DATA 3, 3 
1040 DATA 3, 4, 3,5, 3,6, 37 
1050 DATA 3, 8, 3,9, 3,10, 3,1 
1060 DATA 3,12 , 3,13 , 3,14 , 3,15 
1070 REM 

1080 DATA 4,4, 4,5, 4,6, 4, 
1090 DATA 4,8, 4,9, 4,10, 4,11 
1100 DATA 4,12, 4,13, 4,16, 4, 


1110 


REM 
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1120 DATA 

1130 DATA 5,8, 
1140 DATA 5,12 
1150 REM 

1160 DATA 

1170 DATA 6, 8 
1180 DATA 6,12 , 6,13, 
1190 REM 

1200 DATA 

1210 DATA 7,8, 7,9, 
1220 DATA 7,12, 7,13, 
1230 REM 

1240 REM 

1250 DATA 8,8, 8,9, 8,10 
1260 DATA 8,12 , 8,13, 
1270 REM 

1280 REM 

1290 DATA 9,9, 9,10 
1300 DATA 9,12, 9,13 
1310 REM 

1320 REM 

1330 DATA 10,10 , 10,11 
1340 DATA 10,12 , 10,13 , 10,14 , 10,15 
1350 REM 

1360 REM 

1370 DATA 11,01 
1380 DATA 11,12 , 11,13 , 11,14 , 11,15 
1390 REM 

1400 REM 

1410 REM 

1420 DATA 12,12 , 12,13 , 12,14 „ 12,15 
1430 REM 

1440 REM 

1450 REM 

1460 DATA 13,13 , 13,14 „ 13,15 
1470 REM 

1480 REM 

1490 REM 

1500 DATA 14,14 „ 14,15 
1510 REM 

1520 REM 

1530 REM 

1540 DATA 15,15 


vwunı 
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2.2 


Aus diesem Programm können Sie die genaue Technik ersehen, die 
der Erzeugung der Mischfarben dient. Fangen wir also einfach einmal 
an, das vorliegende Programm unvoreingenommen zu beschreiben: 
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Gestartet wird wieder mit der fast schon obligatorischen Initialisierung 
in den Zeilen 160-180. Als nächstes werden die möglichen 
Farbnummernkombinationen aus der am Ende des Programmes 
positioniertten DATA-Zeilen-Tabelle in einen zwei-dimensionalen 
Array FS() übernommen. Damit ist es möglich, jede Kombination 
durch eine bestimmte Nummer FA aufzurufen. Die Übernahme 
geschieht in zwei verschachtelten FOR..NEXT-Schleife in den Zeilen 
240-300. 


Nach diesen Vorbereitungen, die ein wenig Programm-Ausführzeit in 
Anspruch nehmen, geht es nun zum Zeichnen eines Rahmens und 
einer passenden Überschrift in den Zeilen 350-390. Die hierzu 
vorgenommene Farbgebung sollten Sie nun bereits schon verstehen. 


Die eigentliche Hauptarbeit wird dagegen in den Zeilen 440-530 
vorgenommen. Hier werden in zwei verschachtelten FOR..NEXT- 
Schleifen (ähnlich wie bei der Tabellenübernahme oben) alle 136 
Mischfarben nacheinander aufgerufen und nach ihren Grundfarben 
geordnet auf den Bildschirm gebracht. Zuständig für das Zeichnen 
eines Rechteckes aus jeweils zwei Mischfarben ist ein 
Unterprogramm, das bei Zeilennummer 800 beginnt. 


In diesem Unterprogramm werden aus der übergebenen Farbnummer 
FA die beiden Mischfarben I und 2 ermittelt und in Zeile 810 mittels 
PCOLS= gesetzt. Was nun kommt erscheint etwas kompliziert. Zunächst 
wird dafür gesorgt, daß in Farbregisternummer 3 gezeichnet wird 
(Zeile 820). Das hat aber nur nebensächlichen Charakter, denn 
tatsächlich wird nämlich gar nicht mit dieser Registernummer 
gezeichnet. Was geschieht denn nun wirklich? 


Nun, es werden einfach erst einmal zwei direkt untereinander liegende 
Linien gezeichnet (Zeilen 830/840). Dies geschieht nun aber im B- 
Modus, d.h. mit Pinselwahl. Vielleicht erinnern sie sich noch, daß Sie 
nach dem B-Zusatz eine Zahl angeben konnten, die als Bitmuster an 
diejenige Speicherstelle übertragen wird, die sonst nur durch einen 
einzelnen Punkt angesprochen wird. Da wir aber in Multicolor jeweils 
2 Bit pro Punkt im Graphikspeicher reserviert haben, um die Nummer 
der 4 verschiedenen Farbregister zu vermerken, hat diese Pinselwahl 
nun sogar Auswirkungen auf das Farbmuster des Pinsels. Sie brauchen 
dies nicht unbedingt zu verstehen, da hierzu die Kenntnis über den 
Aufbau des Graphikspeichers nötig wäre. Sie können sich einfach 
merken, daß durch den Pinsel Nr. 102 abwechselnd Punkte mit 
Registernummer 1 und 2, durch den Pinsel Nr. 153 dagegen 
abwechseln mit Registernummer 2 und | gezeichnet wird. 
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Für Interessierte: 
Der dezimale Wert 102 ergibt binär den Wert 


%01 10 01 10 
der Wert 153 ist dagegen: 
%10 01 10 01 


Damit werden im Speicher abwechselnd die Kombinationen Ol und 10 
für Registernummer 1 und 2 abgelegt. 


Auf jeden Fall wird durch diesen Wechsel zwischen Register 1 und 2 
eine gepunktete Linie erzeugt. Durch das Versetzen in der nächsten 
Zeile entsteht ein Punktmuster: 





mM =/zr0e 2 
=farbe 1 
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Damit ist dafür gesorgt, daß jeweils zwei verschieden farbige Punkte 
möglichst nahe beieinander liegen, gleichzeitig aber auch eine 
Streifenbildung verhindert wird. 


Die umhüllende FOR...NEXT-Schleife erzeugt dann das vollständige 
Rechteck. 


Bitte beachten Sie dabei aber folgendes: Es können hierbei stets nur 
Rechtecke gezeichnet werden, die aus vollständigen 4x8- 
Punktekästchen bestehen. Dies ist auch sinnvoll, da ansonsten 
Farbüberschneidungen resultieren würden, die von der Farbor- 
ganisation herrühren. 


Statt der hier angebotenen Routine zur Erzeugung eines Mischfarben- 
Rechteckes können Sie auch das folgende, etwas langsamere 
Unterprogramm verwenden, das Ihnen auch erlaubt, Rechtecke zu 
bilden, die nicht unbedingt aus vollständigen 4x8-Punkte-Feldern 
bestehen: 


100 PCOL= 1,FSCFA,0) : PCOL= 2,FSCFA,1) 
110 FOR YO=Y1 TO Y2 STEP 2 

120  PCOL= 4,1 

130 PLOT C ,X1 ‚YO TO x2,Y0 

140 PLOT C ‚X1+1,Y0+1 TO X2,Y0+1 

150 PCOL= 4,2 

160 FOR V=X1 TO X2 STEP 2 


170 PLOT C „V+1,Y0 
180 PLOT C ,V ,„YO+1 
190 NEXT V 

200 NEXT YO 

210 RETURN 


Die Übergabeparameter sind identisch, das Ergebnis natürlich auch. 
Das Prinzip: Eine Linie (bzw. zwei) wird mit Farbregister ]l gezeichnet 
(Zeilen 120-140) und daraufhin durch einzelne PLOTs mit 
Farbregister 2 punktiert (Zeilen 150-190). 


Auf diese oder ähnliche Art können Sie alle Figuren (Rahmen, Kreise, 
Punkte etc.) der Supergraphik nachempfinden und sich eine 
vollständige Graphikerweiterung mit 136 Farben basteln. Die ganz 
Versiertten unter Ihnen nehmen natürlich die entsprechenden 
Veränderungen an der Supergraphik selbst vor, indem sie das in 
diesem Buch angegebene Source-Listing der Supergraphik 
modifizieren. 
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Ein Beispiel mag das folgende Programm sein, das Vielfarblinien 


erzeugt: 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 


REM BR a a a a a a a a a 


REM r* ar 
REM ** VIEL MEHR FARBEN 2 ** 
REM ar ar 
REM wre ee ee Ag 
REM 

GMODE 0,2 : GCLEAR 

SCoL= 0,0 

SCOL= 1,2 : SCOL= 2,3 : SCOL=3,9 
REM 

REM 

REM FARBKOMBINATIONEN UEBERNEHMEN: 
REM 

DIM FSC136,1) 

FA=0 

FOR X=0 TO 15 :REM ERSTFARBE 


FOR Y=X TO 15 :REM ZWEITFARBE 
READ FSCFA,O),FSCFA,1) 
FA=FA+1 :REM FARBNUMMER+1 
NEXT Y 
NEXT X 
REM 
REM 
REM LINIEN ZEICHNEN: 
REM 
F=50 
FOR X=0 TO 110 STEP 5 
X1=X : X2=X+45 
Y1=0 : Y2=190 
FA=F 
GOSUB 730 :REM LINIE ZEICHNEN 
F=F+1 :REM FARBE ERHOEHEN 
NEXT X 
REM 
WAIT 198,255 
END 
REM 
REM 
REM FELD ZEICHNEN: 
REM UEBERGABE: 


REM FA- FARBE 

REM X1- X1-KOORD. 
REM Y1- Y1-KOORD. 
REM X2- X2-KOORD. 


REM Y2- Y2-KOORD. 
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550 REM 

560 FOR YO=Y1 TO Y2 STEP 2 

570  PCOL= 1,FSCFA,0) : PCOL= 2,FSCFA,1) 
580  PCOL= 4,3 

590 PLOT C B 102,,X1,Y0 TO x2,Y0 
600 PLOT C B 153, ,x1,Y0+1 TO X2,Y0+1 
610 NEXT YO 

620 RETURN 

630 REM 

640 REM 

650 REM LINIE ZEICHNEN: 

660 REM UEBERGABE: 


670 REM FA- FARBE 
680 REM X1- X1-KOORD. 
690 REM Y1- Y1-KOORD. 
700 REM X2- X2-KOORD. 
710 REM Y2- Y2-KOORD. 
720 REM 


730 PCOL= 1,FSCFA,0) : PCOL= 2,FS(FA,1) 
740 PCOL= 4,1 

750 PLOT C ‚X1,Y1 TO x2,Y2 

760 PCOL= 4,2 

770 PLOT C ‚X1,Y1+1 TO X2,Y2+1 


780 RETURN 

790 REM 

800 REM 

810 REM FARBKOMBINATIONSTABELLE: 

820 REM 

830 DATA 0,0, 0,1, 0,2, 0,3 
840 DATA 0,4, 0,5, 0,6,0,7 
850 DATA 0,8, 0,9, 0,10, 0,11 
860 DATA 0,12, 0,13, 0,14, 0,95 
870 DATA 1,1, 12,13 
880 DATA 1,4, 1,5, 1,6, 4, 7 
890 DATA 1,8, 1,9, 1,10, 1,1 
900 DATA 1,12, 1,13, 1,14, 1,15 
910 DATA 2,2, 2,3 
920 DATA 2,4, 2,5, 2,6, 2,7 
930 DATA 2,8, 2,9, 2,10, 2,1 
940 DATA 2,12, 2,3, 2,1%, 2,15 
950 DATA 3,3 
90 DATA 3,4, 3,5, 36,37 
970 DATA 3,8, 3,9, 3,10, 3,1 
980 DATA 3,12, 3,13, 3,14, 3,15 
990 REM 

1000 DATA 4,4, 5, 4,6, 4, 
1010 DATA 4,8, 49, 4,10, 4,1 
1020 DATA 4,12, 4,13, 4,14, 4,1 
1030 REM 

1040 DATA 56,5 


nu 
.. 
oo u 
un 
- 
-_ 
oo 
un 
- 
-_ 
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1050 DATA 5,8, 
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1060 DATA 5,12 , 5,13 
1070 REM 

1080 DATA 

1090 DATA 6,8, 6,9 
1100 DATA 6,12, 6,13, 6,14, 6,15 
1110 REM 

1120 DATA 7 
1130 DATA 7,8, 7,9, 70, 1 
1140 DATA 7,12, 7,3, 71, 
1150 REM 

1160 REM 

1170 DATA 8,8, 8,9, 8,10, 8,11 
1180 DATA 8,12, 8,13, 8,14, 8,15 
1190 REM 

1200 REM 

1210 DATA 9,9, 910, 91 
1220 DATA 9,12, 9,13, 9,%, 9,15 
1230 REM 

1240 REM 

1250 DATA 10,10 , 10,11 
1260 DATA 10,12 , 10,13 , 10,14 „ 10,15 
1270 REM 

1280 REM 

1290 DATA 11,11 
1300 DATA 11,12 , 11,13 , 11,14 „ 11,15 
1310 REM 

1320 REM 

1330 REM 

1340 DATA 12,12 , 12,13 , 12,14 „ 12,15 
1350 REM 

1360 REM 

1370 REM 

1380 DATA 13,13 , 13,1% „ 13,15 
1390 REM 

1400 REM 

1410 REM 

1420 DATA 14,14 , 14,15 
1430 REM 

1440 REM 

1450 REM 

1460 DATA 15,15 


In diesem Programm wird ganz einfach eine zweite Linie unter der 
ersten gezeichnet, was zu dem gewünschten Mischeffekt führt. 
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2.13 Ein Griff in die Trickkiste - noch mehr Graphikbefehle 


2.13.1 Invertieren einmal anders 


Ich möchte Ihnen einen neuen Befehl vorstellen: 


INVERS 
Befehl: INVERS (m)(,x1,yl TO x2,y2) 
Beispiel: INVERS 


INVERS 240 
INVERS 240,20,30 TO 60,70 
Parameter: m: Invertierungsmaske 
xl: x-Koordinate Fenster links oben 
yl: y-Koordinate Fenster links oben 
x2: x-Koordinate Fenster rechts unten 
y2: y-Koordinate Fenster rechts unten 
Funktion: Invertieren des Graphikbildes oder eines Gra- 
phikfensters mit 256 verschieden Masken 


Es handelt sich dabei um einen Befehl, der Ihre HGR- oder MC- 
Graphiken invertiert. Das Invertieren kennen Sie vielleicht bereits von 
den normalen Zeichenbefehlen. Dort konnten Sie mit zm=2 den 
Invertier-Modus einschalten, d.h. im HGR-Modus wird jeder nicht 
gesetzte Punkt gesetzt und umgekehrt, in MC dagegen findet ein 
Farbnummernwechsel statt. Der Befehl INVERS invertiert nun ein 
ganzes Graphikbild oder, falls die Fensterkoordinaten angegeben 
wurden, ein Graphikfenster. Dabei enthält er jedoch eine ganz 
besondere Raffinesse: 


Mit m (eine Zahl zwischen O0 und 255) geben Sie an (interessant ist die 
dem Wert entsprechende Dualzahl, s. auch GCLEAR), welche Bits 
eines Bytes des Graphikspeichers (8 nebeneinander liegende Punkte) 
jeweils invertiert werden sollen. So kann die gesamte Graphikseite z.B. 
gestreift invertiert werden. 

Sie gehen also folgendermaßen vor: Denken Sie sich eine 8-Punkte- 
Maske, mit der invertiert werden soll. Jeder gesetzte Punkt der Maske 
verursacht nachher beim Invertieren ein Umkehren des jeweiligen 
Punktes auf dem Bildschirm, ein nicht gesetzter Punkt hat keinen 
Einfluß auf das Bild. Unter Multicolor sieht das Ganze ein wenig 
komplizierter aus, denn hier müssen Sie jeweils 2 Punkte dieser Maske 
zusammenfassen, da sie in der Graphik später auf einen Punkt treffen. 
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Nehmen wir die Maske: 


‚XX.XX.. 


Wir übersetzen diese Punktmaske zunächst in eine Binärzahl: 


01101100 


und dann in eine dezimale Zahl: 


%01101100 = 108 
Diese dezimale Zahl ist dann unsere Maske m. 


Durch zweimaliges gleiches Invertieren wird der Ursprungszustand 
wieder hergestellt. Invertieren mit dem Wert 255 entspricht damit 
einer vollständigen Invertierung. Am besten Sie probieren alles einmal 
aus: 


100 REM wre 


110 REM ** “* 
120 REM ** INVERSER ** 
130 REM ** “* 
140 REM Hr 
150 REM 

160 GMODE 0,1 : GCLEAR 

170 COLOR= 0,0 

180 SCOL= 1,5 

190 TEXT „"SUPERGRAPHIK 64",80,10,0 
200 FOR X=0 TO 198 STEP 5 
210 PLOT ‚X,X TO 50,X 
220 PLOT ‚X,X+1 TO 51,%X+1 
230 NEXT X 

240 REM 

250 FOR M=1 TO 6 

260  INVERS M-1 

270 INVERS M 

280 NEXT M 

290 INVERS M-1 

300 REM 

310 INVERS 160 

320 FOR X=1 TO 5000 : NEXT X 
330 INVERS 160 

340 REM 

350 REM 


360 REM Wr 
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370 REM ** “* 
380 REM ** MULTICOLOR ** 
390 REM ** . “r 
400 REM wre 
410 REM 

420 GMODE ‚2 : GCLEAR 

430 SCOL= 0,0 

440 SCOL= 1,8 : SCOL= 2,5 : SCOL=3,6 
450 PCOL= 4,1 

460 FRAME ‚10,10,10 TO 60,60 
470 PCOL= 4,2 


480 FRAME „10,40,40 TO 90,90 
490 PCOL= 4,3 

500 FRAME ‚10,80,80 TO 120,120 
510 REM 

520 FOR X=1 TO 2000 : NEXT X 
530 INVERS 240 

540 FOR X=1 TO 5000 : NEXT X 


550 REM 
560 REM 
570 REM Re 
580 REM ** mE 
590 REM ** FENSTER INVERTIEREN ** 
600 REM ** “x 
610 REM re 
620 REM 


630 GCLEAR 130, 30, 50 TO 220,180 
640 INVERS 30, 60, 70 TO 200,170 
650 REM 

660 WAIT 198,255 


Das obige Programm sollte nicht allzu schwer zu verstehen sein. 
Bemerkenswert ist der zweite Teil der kleinen Demo ab Zeile 420. 
Hier werden Sie Zeuge eines Farbwechsels in Multicolor durch die 
Invertierung. Dieser neue Befehl wird die Möglichkeiten der 
Supergraphik sicher weiter steigern. 
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Ebenso wie beim GCLEAR-Befehl können Sie beim Befehl INVERS 
die Eckkoordinaten eines beliebigen Graphikfensters angeben. In 
diesem Fall wird nur das angegebene Bildschirmfenster invertiert. Wie 
Sie Bildschirmfenster anwenden, erfahren Sie ein Kapitel weiter beim 
GCOMB-Befehl. 


2.13.2 Kopieren und Überlagern 
- Aus zwei mach eins und eins ist keins 


Bildschirmfenster 


Oft verlangen spezielle Aufgaben, wie z.B. die Vernetzung drei- 
dimensionaler Funktionen, Unterschiedserkennungen oder einfach 
Bilderaddition, die Verknüpfung zweier Graphikbilder durch ODER, 
UND o0.. Funktionen. 


In letzter Zeit werden aber auch durch die Einführung leistungfähiger 
16-Bit-Rechner immer höhere Ansprüche an die 
Benutzerfreundlichkeit gestellt. Gefordert wird die Handhabung von 
sogenannten Bildschirmfenstern. Auch hier kann die Supergraphik 
umfangreiche Unterstützung gewähren. Zwei Befehle - INVERS und 
GCLEAR - haben Sie bereits kennengelernt, die die Möglichkeit 
schaffen, mit Bildschirmfenstern zu hantieren. Wir haben diese 
Fähigkeit der beiden Befehle bei der jeweiligen Vorstellung bisher nur 
kurz erwähnt und völlig ungebührend vernachlässigt. Das soll hier nun 
nachgeholt werden im Zusammenhang mit einem weiteren Befehl 
dieser Gruppe, der das Bildschirmfensterhandling vervollständigt: 
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GCOMB 


Befehl: GCOMB m (‚xl,yl TO x2,y2 (TO x3,y3)) 
Beispiel: GCOMB | 
GCOMB 2,20,30 TO 50,120 
GCOMB 3,40,10 TO 90,130 TO 30,50 
Parameter: m: Verknüpfungsmodus (0-7) 
xl: x-Koordinate Fenster links oben 
yl: y-Koordinate Fenster links oben 
x2: x-Koordinate Fenster rechts unten 
2: y-Koordinate Fenster rechts unten 
3: x-Koordinate Zielfenster links oben 
3:  y-Koordinate Zielfenster links oben 


Funktion: Verknüpfung beider Graphikseiten, zweier 
Bildschirmfenster, Verschiebung eines Gra- 
phikfensters 


Der GCOMB-Befehl ermöglicht Ihnen die Bewältigung dieser 
Aufgabe. Er verknüpft jeweils zwei Graphikseiten (oder Teile davon) 
und speichert das Ergebnis in der aktuellen Seite. Wie Sie die beiden 
Graphikseiten ansprechen, haben Sie bereits im Kapitel 2.5.4. 
kennengelernt. Für m sind Werte zwischen 0 und 7 zulässig, die 
jeweils unterschiedliche Verknüpfungsarten bestimmen: 


m=0, m=4: UND-Verknüpfung zweier Seiten 


in HOR: 


Nur dort wird ein Punkt gesetzt, wo in beiden Graphikseiten ein 
Punkt steht. 


in MC: 


Ist in einer der beiden Seiten ein Punkt in Hintergrundfarbe gesetzt 
oder ist in der einen Seite ein Punkt in Farbregisternummer |], in der 
anderen in Registernummer 2 gezeichnet, so resultiert an dieser Stelle 
im Ergebnisbild ein Punkt in Hintergrundfarbe. 
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Ist in beiden Graphikseiten an einer Stelle ein Punkt in derselben 
Farbregisternummer gesetzt, so nimmt der resultierende Punkt an 
dieser Stelle ebenfalls diese Farbregisternummer an. Ist in einer Seite 
ein Punkt in Farbe 3 gesetzt, so erscheint im Ergebnisbild ein Punkt 
in der Farbe des Punktes, der an dieser Stelle in der anderen Seite 
stand. 


m=1, m=5: ODER-Verknüpfung zweier Seiten 


in HGR: 


Überall dort, wo in Seite I und/oder in Seite 2 ein Punkt steht, wird 
ein Punkt gesetzt. 


in MC: 


Ist in einer der beiden Seiten ein Punkt in Farbe 3 gesetzt, oder ist in 
der einen Seite ein Punkt in Farbregisternummer I, in der anderen in 
Registernummer 2 gezeichnet, so resultiert an dieser Stelle im 
Ergebnisbild ein Punkt in Farbe 3. Ist in beiden Graphikseiten an 
einer Stelle ein Punkt in derselben Farbregisternummer gesetzt, so 
nimmt der resultierende Punkt an dieser Stelle ebenfalls diese 
Farbnummer an. Ist in einer Seite ein Punkt in Hintergrundfarbe 
gesetzt, so erscheint im Ergebnisbild ein Punkt in der Farbe des 
Punktes, der an dieser Stelle in der anderen Seite stand. 


m=2, m=6: EXKLUSIV-ODER-Verknüpfung der Seiten 


in HGR: 


Nur dort, wo lediglich in einer Seite ein Punkt gesetzt ist, wird auch 
im Ergebnisbild ein Punkt gesetzt. 


in MC: 


Ist in einer der beiden Seiten ein Punkt in Farbe 3 gesetzt oder sind 
an dieser Stelle beide Punkte in derselben Farbe gezeichnet, so 
erscheint im Ergebnisbild ein Punkt in der inversen Farbe des Punktes 
der anderen Seite (s. INVERS). Steht in der einen Seite ein Punkt mit 
Registernummer |, in der anderen mit Registernummer 2, so erscheint 
im Ergebnisspeicher dort ein Punkt in Farbregisternummer 3. Ist 
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dagegen in einer der beiden Seiten ein Punkt in der Hintergrundfarbe 
gesetzt, so erscheint im Ergebnisbild ein Punkt mit der gleichen 
Farbregisternummer des Punktes der anderen Seite. 


m=3, m=7: Kopieren eines Fensters in die andere Seite 


in HGR und MC: 


Ein Bildschirmfenster oder eine ganze Seite wird vollständig und 
identisch in die befehligte Seite übertragen. 


Diese vielleicht etwas komplizierten Sachverhalte wollen wir in den 
folgenden 3 Tabellen noch einmal verdeutlichen: 
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Die vollständigen Tabellen sind jeweils für die Fälle m=0,1,2,4,5,6 in 
Multicolor. Die kleinen fett umrandeten Vierer-Quadrate sind jeweils 
für HGR. Die Spalten ganz rechts und die Reihen ganz oben 
beinhalten jeweils die Registernummern eines Punktes in der einen 
und in der anderen Graphikseite. Die Schnittpunkte der Spalten und 
Reihen geben dann jeweils die Registernummer an, die der jeweilige 
Punkt im Ergebnisbild erhält. 


Warum aber zwei Modusnummern für eine Verknüpfungsart? Nun, 
das ganze hängt mit der ebenfalls notwendigen Farbgebung zusammen. 
Mit der niedrigeren der beiden Nummern geben Sie an, daß die Farbe 
aus der Graphikseite stammen soll, in die das Ergebnisbild gespeichert 
wird. Geben Sie dagegen die höhere Nummer an, so wird die Farbe 
aus der Quellseite mit in die Zielseite übertragen. Dabei ist jedoch zu 
beachten, daß die Farbe sich jeweils auf vollständige 4x8- bzw. 8x8- 
Felder bezieht. Liegt also die Grenze eines Bildschirmfensters 
irgendwo innerhalb eines solchen Feldes, so wird die Farbe der Punkte 
außerhalb des Fensters in der Nähe des Randes mit beeinflußt. 


Kommen wir nun zur eigentlichen Fensterbehandlung. Wie gesagt, 
geben Sie (ähnlich dem FILL- oder FRAME-Befehl mit den 
Koordinaten xl,yl die linke obere und mit x2,y2 die rechte untere 
Ecke des angesprochenen Graphikfensters an. Bei den Befehlen 
GCLEAR und INVERS wird dieses Graphikfenster einfach gelöscht 
oder invertiert. Mit dem GCOMB-Befehl verhält es sich doch ein 
wenig komplizierter: 


1. Fall: 


Im ersten Fall lassen Sie die Fensterkoordinaten weg. Es werden also 
stets die beiden vollen Graphikseiten miteinander verknüpft. Das 
Ergebnis steht dann in der befehligten Graphikseite. 
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2. Fall: 


Angenommen Sie geben tatsächlich nur die beiden Koordinaten xI,yl 
und x2,y2 an. In diesem Fall bezieht sich die Position und Größe des 
Bildschirmfensters auf beide Graphikseiten, d.h. sowohl das Fenster 
der Seite I, als auch das auf Seite 2 stehen an der selben Stelle auf 
dem Bildschirm. Die beiden Fenster werden nun auf die angegebene 
Weise verknüpft und das Ergebnis steht in dem Fenster derjenigen 
Graphikseite, die gerade befehligt wird. 


Interessant ist auch Modus 3 bzw. 7. Hierbei wird ein Graphikfenster 
vollständig in eine andere Seite kopiert. Hier kann es z.B. 
zwischengespeichert werden, um später wieder in die Ursprungsseite 
zurückkopiert zu werden. Diese Technik ist wesentlich für den 
Umgang mit Bildschirmfenstern. Doch das werden wir noch sehen. 
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3. Fall: 


Sie geben zusätzlich zu den beiden Koordinaten xl,yl und x2,y2 noch 
die Zielkoordinaten x3,y3 an. Diese Zielkoordinaten bestimmen ein 
zweites, gleichgroßes Graphikfenster mit der oberen linken Ecke in 
x3,y3 an. Die anderen Ecken werden logischerweise automatisch durch 
die Größe des ersten Fensters bestimmt. Beim GCOMB-Befehl wird 
nun das erste Fenster (x1,yl/x2,y2), das in der nicht befehligten Seite 
liegt, mit dem zweiten Fenster (x3,y3), das in der befehligten, also der 
Zielseite liegt, auf die bekannte Weise kopiert. 


Auch hier ist Modus 3 (7) wieder interessant für die Fenstertechnik. 
Mithilfe dieses Modus können Sie nämlich ohne Probleme Bereiche 
des Bildschirms verschieben, indem Sie ein Fenster erst in die eine 
Seite kopieren und dann verschoben in die erste zurückkopieren. 


202 Das Sunereraphikbuch zum C64 

















A 
dd 
































Zn 
VL 





























Supergraphik_für Einsteiger 203 


Bleiben noch die verschiedenen Syntaxmöglichkeiten zu erwähnen: 


GCOMB m 
GCOMB m,x1,y1 TO x2,y2 
GCOMB m,x1,y1 TO x2,y2 TO x3,y3 


Im Kapitel 3.4 erhalten Sie einen umfassenden Überblick über die 
programmiertechnische Realisierung der Fensterbefehle. 


2.13.3 Scrollen und Rollen - wir rotieren 


Bevor wir uns den Ausgabebefehlen zuwenden, möchte ich Ihnen noch 
einen letzten direkten Graphikbefehl vorstellen, der ebenfalls ein klein 
wenig Außergewöhnlichkeit besitzt: 


GMOVE 


Befehl: GMOVE m,za,ze 
Beispiel: GMOVE 0,10,20 
Parameter: m: Verschiebemodus (0-3) 
za: Anfangszeile (0-24) 
ze: Endzeile (0-24) 
Funktion: Horizontales Rollen/Verschieben des Bildschirms 


Dieser Befehl, so klein er ist, ist eine weitere Spezialität der Super- 
graphik 64. Er ermöglicht Ihnen, Teile des Bildschirms (LGR, HGR 
oder MC) schnell und einfach nach rechts oder links zu verschieben; 
dabei gibt m die Richtung und die Scroll-Art an: 


m=0: Links rollen 

m=1: Rechts rollen 

m=2: Links verschieben 
m=3: Rechts verschieben 


Beim Rollen des Bildschirms (oder von Teilen des Bildschirms) 
erscheint alles, was über den linken oder rechten Rand hinaus geht, 
auf der anderen Seite wieder. Das Verschieben dagegen zeichnet sich 
dadurch aus, daß diese Teile unwiederbringbar verschwinden. 
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Mit dem 2. Wert geben Sie die Nummer der Anfangszeile an, mit dem 
3. die Endzeile von denen aus gescrollt werden soll. 

Mit Zeile ist im HGR- und MC-Modus ein 8-Punkte dicker Streifen 
gemeint, der einer normalen Textzeile entspricht. Im LGR-Modus 
besteht somit eine Zeile aus zwei-Punktestreifen bzw. einer normalen 
Textzeile. Man unterteilt den Bildschirm somit einfach wie im Text in 
25 Zeilen. 


Welche Möglichkeiten durch diesen Befehl entstehen, sei hier nur von 
Programmierermund zu Programmiererohr geflüstert: 

Aktionspiele mit beweglichem Hintergrund, Laufschriften und vieles 
mehr. Besonders im Text-Modus findet dieses Rollen mit enormer 
Geschwindigkeit statt und erlaubt unglaubliche Effekte. 


100 REM har ee 


110 REM ** “* 
120 REM ** ROLLEN, SCROLLEN, ... ** 
130 REM ** Er 
140 REM rare 
150 REM 


160 GMODE 0,1 : GCLEAR : SCOL= 1,0 : COLOR= 6,6 
170 P1=3.14159265/ 180 

180 DEF FN FC1)=200+100*SIN(CPI*I) 

190 GOSUB430 

200 DEF FN FC1)=200-100*SINCPI*I) 

210 GOSUB430 

220 DEF FN F(1)=200+100*C0OS(PI*I) 

230 GOSUB430 

240 DEF FN F(1)=200- 100*COS(PI*I) 

250 GOSUB430 


260 REM 

270 FOR X=1 TO 2000 : NEXT X 
280 REM 

290 REM ROLLEN/SCROLLEN: 

300 REM 


310 FOR X=1 TO 40 

320 GMoVE 1,3,21 

330 NEXT X 

340 FOR X=1 TO 40 

350 GMOVE 3,3,21 

360 NEXT X 

380 END 

390 REM 

400 REM 

410 REM ZEICHENROUTINE: 
420 REM 

430 FOR 1=0 TO 360 STEP 5 
440 X=50+1*1.5 
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450  Y=FN F(I) 

460 DD=40*SINCPI*1/2) 

470  X1=(X+20+0D)/2 : X2=(X+20-DD)/2 
480  Yi=cY+DDJ/2  : Y2=(Y-DD)/2 
490 FRAME ,„1,X1,Y1 TO X2,Y2 

500 FRAME 1,4,X1-1,Y1-1 TO X2+1,Y2+1 
510 NEXT I 

520 RETURN 


Versuchen Sie doch einmal dieses Programm: 


10 GMODE 0,1 : GCLEAR 
20 TEXT „"SUPERGRAPHIK 64",100,7,0 
30 FOR X=1 TO 400 


40  GMOVE 0,0,0 
50 FOR Y=X TO 150 : NEXT Y 
60 NEXT X 


70 WAIT 198,255 
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oder: 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 


REM wre 


REM ar ar 
REM ** ROLL-DEMO ** 
REM ar ar 
REM war 
REM 

COLOR= 0,0 


PRINT CHR$C147) :REM BILDSCHIRM LOESCHEN 


PoS= 12,1 

PRINT "SUPERGRAPHIK 64! 
GosuB 530 

POS= 14,5 

PRINT "MACHT ALLES" 
GosUB 530 

POS= 17,7 

PRINT "VIEL" 

GosuB 530 

PoOS= 3,11 


PRINT "SCHNELLER, SCHNELLER, SCHNELLER ... 


REM 
REM 
REM ROTIEREN: 
REM Kr 
REM 
FOR X=1 TO 520 
GMOVE 0,11,11 
FOR T=X TO 190 : NEXT T 


NEXT X 

REM 

GOSUB 530 

POS= 15,14 

PRINT "ALLES!" 
GOSUB 530 

REM 


FOR X=1 TO 400 
GMOVE 1,1,14 

NEXT X 

END 

REM 

REM 

REM WARTESCHLEIFE: 

REM ware 

REM 

FOR T=1 TO 500 : NEXT T 

RETURN 


Na, überzeugt? 
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2.14 Wir geben aus 


Bisher haben wir uns stets mit Befehlen beschäftigt, die die schönsten 
Graphiken auf den Bildschirm bringen. Sie können nun schon Punkte, 
Linien, Kreise, Ellipsen, Rahmen, Text usw. zeichnen, löschen, 
invertieren und sonst noch was. Was nützen Ihnen aber die schönsten 
Graphiken, die vielleicht in stundenlanger Programm-Arbeit auf 
Ihrem Computer entstanden sind, wenn alles wieder verloren ist, 
indem Sie den Rechner ausschalten? 


Wir werden im folgenden eine Reihe von sehr nützlichen Befehlen 
kennenlernen, die es Ihnen ermöglichen, Graphiken auf Diskette zu 
speichern oder wieder zu laden, Graphiken fremder 
Graphikprogramme mit der Supergraphik weiterzubearbeiten, 
Graphiken auf dem Drucker auszugeben usw. Sie haben damit die 
Möglichkeit, sozusagen mit der Außenwelt in Verbindung zu treten. 


2.14.1 Laden und Speichern von Graphiken 


Zunächst wollen wir uns mit der Konservierung und Archivierung 
unserer Graphiken auf Diskette oder Datasette beschäftigen. Bei den 
folgenden Befehlen wurde wieder die Technik der Befehlsmodiwahl 
angewandt, um möglichst viele Funktionen überschaubar anzubieten. 
Dabei entsprechen sich die Befehle GSAVE und GLOAD in dieser 
Beziehung, sie besitzen die gleiche Befehlssyntax: 


GSAVE 


Befehl: GSAVE (LGCF),s,"filename"(,ga) 
Beispiel: GSAVE GCF,1,"MULTICOLOR",8 
Parameter: LGCF: Formatsteuerung (s.u.) 

s: Angesteuerte Graphikseite 

ga: Geräteadresse 
Funktion: Speichern der Graphik, Farbe oder Text 


Dieser Befehl speichert die mit n (l oder 2) angegebene Graphikseite 
(unabhängig davon, welche angezeigt oder befehligt wird) unter dem 
ebenfalls angegebenen Filenamen auf Kassette (ga=|; kann auch 
weggelassen werden) oder Diskette (ga=8). Damit haben Sie die 
Möglichkeit, einmal erstellte Graphiken zu sichern. 
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Sie können sich das Format Ihrer Graphikfiles selbst festlegen, d.h. Sie 
können wählen, welche Graphik- oder Farbtelle in einem 
gemeinsamen File und in welcher Reihenfolge abgespeichert werden. 
Damit erreichen Sie eine maximale Kompatibilität zu Bildern anderer 
Graphikprogramme. Es gibt die Möglichkeit 4 verschiedene 
Speicherbereiche auf Diskette zu bringen. Jedem Bereich ist ein 
Buchstabe zugeordnet, der in der Formatanweisung erscheinen muß: 


Low-Graphik (Text) (1000 Bytes) 
Graphikspeicher (8000 Bytes) 
Farbvideo-RAM (1000 Bytes) 
Farb-RAM (1000 Bytes) 


Naar 


Diese Buchstaben können nun beliebig kombiniert oder ausgelassen 
werden, wobei ihre Reihenfolge die Reihenfolge der verschiedenen 
Bereiche in dem entstehenden File beschreibt. Hier einige 
gebräuchliche Kombinationen: 


GSAVE LF,1,"TEXT",8 
Speichern des Textes mit Farbe auf Diskette. 


GSAVE GC,1,"HGR MIT FARBE",8 
Speichern der hochauflösenden Graphik Seite I mit Farbe. 


GSAVE G,2,"HGR OHNE FARBE",8 
Speichern lediglich des Graphikspeichers ohne Farbe (Seite 2). 


GSAVE GCF,1,"KOALA-PAD",8 
Speichern eines Multicolor-Bildes der Graphikseite 1 mit Farbe im 
KOALA-PAD-Format. 


Natürlich können alle anderen Kombinationen gewählt werden. Dabei 
dürfen allerdings maximal 4 Buchstaben hintereinander verwendet 
werden. 


Die gleiche Syntax besitzt der Befehl zum Laden von Graphik von 
Diskette: 


21 Das Supergraphikbuch zum _C64 


GLOAD 


Befehl: GLOAD (LGCF),s,"filename"(,ga) 
Beispiel: GLOAD GCEF,|,"MULTICOLOR",8 
Parameter: LGCF: Formatsteuerung (s.u.) 

s: Angesteuerte Graphikseite 

ga: Geräteadresse 
Funktion: Laden der Graphik, Farbe oder Text 


Wollen Sie eine einmal abgespeicherte Graphik wieder laden, so 
verwenden Sie GLOAD. Die Parameter haben dieselbe Bedeutung wie 
bei GSAVE. Nun können Sie beispielsweise verdeckt eine Graphik in 
die unsichtbare Seite einladen, um dann direkt auf diese Seite 
umzuschalten. So lassen sich z.B. ganze Bilderreihen nacheinander 
schnell quasi als Trickfilm oder Dia-show einladen und zeigen. 


Es empfiehlt sich, eine in einem bestimmten Format abgespeicherte 
Graphik in demselben Format auch wieder einzuladen, obwohl das in 
manchen Fällen nicht notwendig ist (nur die Reihenfolge der 
Buchstaben muß stimmen). 


Das folgende Programm zeichnet eine kleine Graphik auf den 
Bildschirm, speichert sie auf Diskette (bitte Diskette ins Laufwerk 
legen), löscht den Graphikbildschirm und läd die Graphik wieder von 
Diskette in den Rechner. Um das Programm für die Datasette 
lauffähig zu machen, müssen Sie lediglich die Geräteadresse ga, also 
die letzte Zahl des Lade- oder Speicherbefehls von 8 in 7 umwandeln: 


10 GMODE 0,1 : GCLEAR 

20 FILL 3,40,50 TO 60,70 

30 FILL 2,10,60 TO 80,90 :REM DEMO ZEICHNEN 

40 GSAVE G,1,"TESTBILD",8 :REM BILD AUF DISKETTE SPEICHERN 
50 GCLEAR :REM GRAPHIK LOESCHEN 

60 GLOAD G,1,"TESTBILD",8 :REM GRAPHIK WIEDER LADEN 

70 WAIT 198,255 
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2.14.2 Einladen von Fremdgraphiken 


Die große Flexibilität der beiden Befehle GLOAD und GSAVE 
erlaubt es, eine ganze Reihe von Graphiken in die Supergraphik 
einzuladen, die nicht mit der Supergraphik erstellt wurden. Im 
folgenden wollen wir kurz zeigen, wie Sie mit der Supergraphik 
Graphiken aus zwei verschiedenen Graphikprogrammen einladen oder 
für diese Programme abspeichern können. Bei anderen Programmen 
müssen Sie ein wenig probieren, um das richtige Format 
herauszubekommen: 


a) Koala-Pad: 


Eines der ältesten und bekanntesten Graphikprogramme ist das 
Menue-gesteuerte Programm zum Koala-Pad. Unter Koala werden 
grundsätzlich nur Multicolorbilder bearbeitet. Aus diesem Grunde 
können wir auch nur Bilder in Multicolor abspeichern oder laden. Da 
im normalen Text-Modus die Textfarbe im Farb-RAM beherbergt 
wird, der aber unter MC für die Farbe 3 zuständig ist, empfiehlt es 
sich, Koala- und allgemein Multicolorbilder nicht einfach im 
Eingabemodus, sondern per Programm abzuspeichern oder zu laden. 
Hier ein Programm, das ein Koala-Pad-Bild in die Supergraphik 
einläd: 


10 GMODE 0,2 : GCLEAR :REM MULTICOLOR EIN UND LOESCHEN 
20 GLOAD GCF,1,CHR$CI29)+"PIC A BILD",8 :REM EINLADEN 
30 SCcOoL= 0,1 :REM HINTERGRUNDFARBE BESTIMMEN 
40 WAIT 198,255 


Die Buchstabenkombination GCF sorgt dafür, daß nacheinander 
Graphikspeicher, Video-RAM und Farb-RAM eingeladen werden, 
wie es bei Koala-Bildern notwendig ist. Lediglich die 
Hintergrundfarbe müssen Sie, wie hier in Zeile 30, selbst anwählen (in 
diesem Fall weiß). 


Der Ausdruck CHR$(129)+ ist notwendig, da Koala-Pad-Bilder dieses 
Zeichen zu Anfang jedes Bildnamens als Kennzeichen besitzen. 


Wollen Sie ein Bild abspeichern, so verwenden Sie das gleiche 
Programm und ersetzten den GLOAD-Befehl durch GSAVE. 

Die Ausführungen gelten natürlich auch für andere Programme, die 
Multicolorbilder erzeugen. 
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b) Hi-Eddi plus: 


Hi-Eddi plus ist ein neueres Graphikprogramm, mit dem Sie ebenfalls 
Graphiken erzeugen, laden und abspeichern können. Es ist keine 
Befehlserweiterung wie die Supergraphik, sondern ein durch 
Tastenkürzel gesteuertes Programm. Mit diesem Programm können Sie 
zwei Arten von Bildern erzeugen: 


- Graphikbild 
- Farbbild 


Beim Graphikbild wird nur die reine Graphik ohne Farbe ab- 
gespeichert. Sie können Sie durch ein: 


GMODE 0,1 : GLOAD G,1,"BILD.PIC",8 


einladen. Da für die Graphik bei diesem Programm statt der 
notwendigen 8000 Bytes einfachheitshalber 8128 Bytes abgespeichert 
werden, ist ein Einladen des Farbbildes nicht ohne weiteres möglich. 
Das folgende Programm löst aber auch dieses Problem. Es dauert zwar 
etwas länger, aber Sie haben damit zumindest die Möglichkeit, ein 
Farbbild einzuladen: 


100 GMODE 0,1 : GCLEAR 


110 N$="BILD. PIC" :REM BILDNAME 

120 OPEN 1,8,2,N$ :REM DATEI OEFFNEN 

130 GET#1,A$ : GET#1,A$ :REM 2 BYTES UEBERSCHLAGEN 
140 REM 

150 REM GRAPHIK EINLESEN: 

160 REM 


170 FOR X=14*4096 TO 14*4096+8217 

180 GET#1,A$ : POKE X,ASCCAS+CHRS(O)) 
190 NEXT X 

200 REM 

210 REM FARBE EINLESEN: 

220 REM 

230 FOR X=12*4096 TO 12*4096+1000 

240  GET#1,AS : POKE X,ASCCAS+CHRS(O)) 
250 NEXT X 

260 REM 

270 CLOSE 1 :REM DATEI SCHLIESSEN 
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Die Ausführungen zu Hi-Eddi-Plus (samt Programm etc.) gelten im 
übrigen für alle Programme, die ihre Graphik auf diese Weise 
abspeichern. Kennzeichen dafür sind reine Graphikfiles auf Diskette 
mit 33 Blöcken, bei HGR-Graphiken mit Farbe entstünden dann auf 
Diskette Files mit 37 Blöcken (bei MC-Files 41 Blöcke). Programme, 
die nur die notwendigen 8000 Bytes abspeichern (wie die 
Supergraphik), erzeugen auf Diskette 32 Blöcke-Files für reine 
Graphik oder 36 Blöcke für Farbbilder (bei MC-Files 40 Blöcke). 


2.14.3 Ausgabe von Graphik auf dem Drucker 


Krönung jeder Graphik ist ihre Ausgabe auf einem graphikfähigen 
Drucker. So hat auch die Supergraphik die Möglichkeit, Graphiken 
auf einem Matrixdrucker auszugeben. Das leidige und alte Problem 
aller Graphikprogramme in diesem Zusammenhang ist die Vielzahl der 
Drucker und speziell beim C64 die unterschiedlichen Interfaces für 
die verschiedensten Drucker. So wird es kaum möglich sein, 
Hardcopy-Routinen, Routinen also, die den Bildschirm auf Drucker 
ausgeben, für jeden denkbaren Drucker zu erstellen. 


Trotzdem oder gerade deshalb hat sich der Autor der Supergraphik 
bemüht, möglichst viele Drucker mit der Graphikausgabe 
harmonisieren zu lassen. Hierzu wurden bisher 3 verschiedene 
Hardcopyroutinen implementiert, die Hardcopies auf den folgenden 
Druckern zulassen: 


- alle Epson-kompatiblen mit DATA-BECKER-Interface 
- MPS 801 

- MPS 803 

- CBM 1525 

- Seikosha GP 100VC 

- MPS 802 

- CBM 1526 

- Farbdrucker Seikosha GP 700 


Im letzten Fall wird sogar eine vollständige Farb-Hardcopy auf dem 
Farbdrucker ausgegeben. 


Die jeweiligen Hardcopy-Routinen besitzen in der Supergraphik einen 
festen Speicherplatz und werden je nach Drucker nadhgeladen (s. 
Startmenue der Supergraphik). Hierdurch können sich - wenn Sie ein 
paar Regeln einhalten - selbst eine Hardcopy-Routine für Ihren 
eigenen Drucker schreiben, auf Diskette ablegen und durch das 
Startmenue aufrufen lassen. So finden Sie z.B. im Graphikbuch zum 
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C128, das auch für 64er-Freunde interessant sein dürfte, eine 
Hardcopy speziell für alle Epson-Drucker, die ganz speziell auf die 
Möglichkeiten dieser Drucker eingeht. Eine ähnliche, nicht ganz so 
komfortable Epson-Hardcopy finden Sie aber auch im 64 intern. Wenn 
Sie tatsächlich eine eigene Hardcopy-Routine einbinden wollen, so 
schauen Sie sich hierzu die Source-Listings der bestehenden Routinen 
der Supergraphik in diesem Buch an. Dort erfahren Sie, wie Sie 
vorzugehen haben. 


Doch nun sollten wir uns dem Befehl hingeben, der diese Freuden 
und Prohpezeihungen realisiert: 


HCOPY 


Befehl: HCOPY#n 

Beispiel: HCOPY# | 

Parameter: n: logische Filenummer 

Funktion: Fertigen einer Hardcopy der Graphikanzeige 


Falls Sie keinen Drucker besitzen, können Sie diesen Befehl natürlich 
überschlagen, sollten sich aber unbedingt baldigst einen zulegen. Sie 
werden es nicht bereuen! Eine schön ausgedruckte Graphik ist - wie 
gesagt - der Gipfel und letztendlich das Ziel jeder 
Graphikprogrammierung. 


Die verschiedenen Hardcopy-Routinen für die diversen Drucker 
besitzen teilweise unterschiedliche Syntax. So ist die oben angegebene 
Schreibweise des Befehls mit dem Parameter n für alle Drucker außer 
dem Farbdrucker gültig. 


Im folgenden seien die zur Zeit vorhandenen Routinen erläutert. 


Vor jedem Hardcopy-Befehl muß der Drucker betriebsbereit gemacht 
und ein entsprechender Kanal mit OPEN geöffnet werden. Z.B.: 


10 OPEN 1,4 
20 HCOPY#1 
30 CLOSE 1 
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Auch der OPEN-Befehl kann von Drucker zu Drucker variieren. 
Sehen Sie dazu in Ihrem Drucker- bzw. Interface-Handbuch nach. So 
gilt das obige Programm für die Drucker: 


MPS 801-803, CMB 1525/1526, Seikosha GP 100VC 


Wenn Sie das richtige Interface besitzen (z.B. DATA BECKER), so 
gilt es auch für Epson-Drucker. 


Farbdrucker Seikosha GP 700: 


Von den drei Hardcopy-Routinen ragt eine in ganz besonderem Maße 
hervor: Die farbige Hardcopy auf dem Seikosha GP-700. 


Zur Farbgebung ist folgendes zu beachten: Es wurde der sogenannte 
"head-hammer"-Farbmodus ausgewählt, d.h. es stehen Ihnen folgende 
8 Farben zur Verfügung: 


weiß (kein Druck) 
gelb 

purpurrot 
rot-orange 
hell-blau 

grün 

purpur (violett) 
schwarz 


SAN AWD—-O 


Um Ihnen die Arbeit zu erleichtern, ordnet die Supergraphik 64 diese 
8 Farben bereits den 16 Farben des Commodore 64 sinnvoll zu: 


cF [00[01[02[03[0405|06|07|08|09]|10]1112]13]14]15 
--+--+--4+--+--4+- 4-44 4040-4 40 +, +, 4 + - 


DF |00|07|02]04|06]05|04|01|03]02|03|07|07|05]04|07 


Dabei bedeuten: CF Farbe Ihres CBM 64 und 
DF zugeordnete Druckerfarbe 
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Sie können diese Zuordnung z.B. für Falschfarbenbilder je nach 
Belieben ändern mit dem Befehl: 


- HCOPYD cf,df 


Der Befehl zur Erstellung einer Hardcopy lautet: 


HCOPYC#n,d 


Wie Sie sehen, können Sie bei diesem Hardcopy-befehl den 
weiteren Parameter d angeben. d ist entweder I oder 2 und gibt 
die Punktdicke des Ausdrucks an. So wird bei d=1 jeder Punkt des 
Bildschirms als I Punkt auf dem Ausdruck dargestellt: bei d=2 
besteht ein Bildschirmpunkt aus 2x2 Druckpunkten - entsprechend 
größer, aber auch gröber ist der Ausdruck. Um die Proportionen 
zu wahren, wird im Multicolormodus für einen doppelt breiten 
Punkt des Bildschirms ebenfalls ein doppelt breiter Punkt 
ausgedruckt. 


Ein Programm zum Ausdrucken eines HGR-Bildes könnte z.B. so 
lauten: 


10 GMODE 0,1 :REM ENTSPRECHENDEN GRAPHIKMODUS EIN! 

20 OPEN 1,4,1 :REM SECUNDAERADRESSE 1 FUER INTERFACE 

30 HCOPYD 3,2 :REM COMPUTERFARBE 3 DER DRUCKERFARBE 2 ZUORDNEN 
40 HCOPYC#1,2 :REM DOPPELT GROSSE HARDCOPY 

50 CLOSE 1 :REM KANAL SCHLIESSEN 


Wichtig! Sollen MC-Graphiken ausgedruckt werden, so ist auch 
ein entsprechender MC-Graphikmodus einzuschalten (gleiches gilt 
für HGR). Sie müssen also stets in dem Modus ausdrucken, in 
dem das Bild gezeichnet ist. Beachten Sie auch, daß in MC die 
Farbe 3 im Farb-RAM durch schreiben im Text-Modus zerstört 
werden kann (s. GLOAD/GSAVE). Laden Sie also ein 

auszudruckendes Bild am besten per Programm in den Speicher 

und drucken dann aus! 


Haben Sie beim Ausdruck etwas Geduld! Vergessen Sie nicht, daß 
pro Bild 256.000 Punkte, also 250 K-Byte übertragen werden 
müssen (bei doppelter Punktbreite). 
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2.14.4 Große Posterhardcopy - Die Hardcopy für jeden Drucker 


Manch einem werden die Hardcopies, die durch obigen Befehl 
möglich sind, viel zu klein sein. Aus diesem Grunde geben wir hier 
ein BASIC-Programm an, das Ihnen eine große Posterhardcopy auf 
Papier bringt. 


Das Programm erzeugt eine Hardcopy, die eine Breite von etwa 3 DIN 
A4-Blätter-Breiten und eine Länge von etwa 3 DIN A4-Blätter- 
Längen besitzt. Sie benötigt also insgesamt 9 Blätter, die nachher 
zusammengeklebt werden müssen (je nach Drucker und Belieben 
können es auch mehr oder weniger werden). Sie können damit Plakate 
für Ihre nächste Demo vorbereiten, Ihren Namen dick und fett über 
das Bett hängen (oder über den Badezimmerspiegel, falls Sie morgens 
Identitätsprobleme haben) oder einen 9 Seiten langen Brief an Ihre(n) 
Freund(in) schreiben, ohne sich viel aus den Fingern saugen zu 
müssen. Ich werde mir allerdings keine weiteren Gedanken darüber 
machen, was Sie mit dem folgenden Programm anfangen werden. 


100 REM Wr 


110 REM ** “rn 

120 REM ** POSTERHARDCOPY ** 

130 REM ** *. 

140 REM Hrn 

150 REM 

160 PRINT CHR$C147) :REM BILDSCHIRM LOESCHEN 
170 PoS= 10,10 

180 PRINT "BILD EINLADEN (J/N)? "; 

190 GET A$ : IF A$="" THEN 190 

200 PRINT A$ 

210 IF A$<>"J" THEN 370 

220 REM 

230 REM BILD EINLADEN: 

240 REM WR 

250 REM 

260 POS= 10,12 

270 INPUT "BILDNAME";N$ :REM NAMEN ERFRAGEN 
280 GMODE 0,1 : SCOL= 0,0 : SCOL=1,5 


290 GLOAD G,1,N$,8 :REM BILD EINLADEN 

300 GMODE ‚O0 

310 IF ST<>64 THEN:POS= 10,14 : PRINT "FEHLER!" : END 
320 REM 

330 REM 


340 REM DRUCK INITIALISIEREN: 


350 REM re 
360 REM 
370 LES=" " :REM STRING FUER KEIN PUNKT 
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380 REM STRING FUER PUNKT GESETZT: 
390 PUS=CHRECI8)+" "+CHRSCI46) :REM RVS ON/RVS OFF 
395 ZESSCHRECB)I+CHRECIZ)+CHRSCIS) :ZEILENENDE 


400 XA= 107 :REM ANZAHL ZEILEN PRO SEITE 
410 YA= 70 :REM ANZAHL SPALTEN PRO SEITE 
420 REM 


430 POS= 0,15 

440 PRINT "DRUCKER EINSCHALTEN UND TASTE BETAETIGEN" 
450 GET A$ : IF A$=!" THEN 450 

460 GMODE 0,5 :REM HGR BEFEHLIGEN 

470 REM 

480 REM 

490 OPEN 1,4 :REM DRUCKDATEI OEFFNEN 

500 REM 

510 REM 

520 REM DRUCK BEGINNEN: 

530 REM Ba a 202 2 2 2 2 2 2 2 2 22 

540 REM 

550 Y1=-1+YA-1 

560 ZE=INT (200/YA) :REM ANZAHL BLAETTER (BREITE) -1 
570 FOR Z= 1 TO ZE :REM BLATTSCHLEIFE 


580  YO=Y1+1 :REM STARTWERT FUER BLATT 

590 Y1i=Y1rYA-1 :REM ENDWERT FUER BLATT 

600 IF Z=ZE THEN Y1=199 

610 REM 

620 FOR X=319 TO O STEP -1 :REM X-SCHLEIFE 

630 FOR Y= YO TO Y1 :REM Y-SCHLEIFE 

640 PLOT T TEST,4,X,Y :REM PUNKT ABTASTEN 

650 IF TEST=0 THEN PRINT#1,LE$; : GOTO 670 :REM LEERSTELLE 
660 PRINT#1,PU$; :REM PUNKT 
670 NEXT Y 

680 REM 

690 PRINT#1,ZE$ :REM NAECHSTE ZEILE 


700 REM AUF BLATTENDE TESTEN: 

710 QU=(320-X)/XA 

720 IF INTCQU)=QU THEN GOSUB 850 
730 NEXT X 

740 REM 

750  GOSUB 850 :REM NEUES BLATT 
760 NEXT 2 

770 REM 

780 REM 

790 CLOSE1 : END 

800 REM 

810 REM 

820 REM NAECHSTES BLATT: 

830 REM kein 

840 REM 

850 PRINT 

860 PRINT "BITTE NEUES BLATT EINLEGEN" 
870 PRINT "UND TASTE BETAETIGEN!" 
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880 GET A$ : IF A$="! THEN 880 
890 RETURN 


Das Programm scheint Ihnen für eine Hardcopy etwas kurz? Nun ja, 
es funktioniert zumindest. Das Ganze resultiert aus einem einfachen 
Trick: Wir machen zwar eine Hardcopy von unserem 
Graphikbildschirm, die einzelnen Punkte werden aber nicht im 
Graphikmodus, sondern als ganz normale Zeichen (hier Leerzeichen 
und invertiertes Leerzeichen) auf dem Drucker ausgegeben. Jeder 
Punkt besitzt also die Größe eines Druckerzeichens. Das Prinzip ist 
also ganz einfach: Wir fragen nacheinander alle Graphikpunkte ab und 
geben für jeden Punkt ein Zeichen auf dem Drucker aus. Damit 
funktioniert diese Hardcopy für jeden Drucker und sogar für 
Typenrad- oder gar nicht graphikfähige Drucker! 


Doch gehen wir das Programm doch einmal detailierter durch: 


Zunächst einmal wird der normale Text-Bildschirm in Zeile 160 
gelöscht, um freie Bahn zu haben. Nun haben Sie zwei Möglichkeiten: 
Entweder das auszudruckende Bild steht bereits in Seite 1 des 
Graphikbildschirms, dann geben Sie auf die Frage "Bild einladen 
(j/n)?" irgendeine Taste ein, nur nicht "J". Wollen Sie das Graphikbild 
jedoch zunächst von Diskette laden, dann drücken Sie eben dieses "J" 
und Sie werden nach dem Dateinamen gefragt (Zeile 270). Während 
das Bild nun eingeladen wird (Zeile 290) können Sie den Vorgang 
direkt am Bildschirm miterleben, da vorher in Graphik umgeschaltet 
wurde (Zeile 280). Das Bild sollte mit dem einfachen G- 
Sekundärbefehl auf Diskette abgespeichert vorliegen (32 Blöcke), 
ansonsten ändern Sie den Ladebefehl entsprechend. 


Wurde nun fehlerfrei geladen, ist alles in Ordnung und es kann 
gedruckt werden. Ist beim Laden jedoch ein Fehler aufgetreten (z.B. 
File not found), so wird dies durch das Abfragen der Status-Variable 
ST in Zeile 310 festgestellt und angezeigt. 


Nach diesem Vorspann kann es endlich zum Kern der Sache gehen. 
Wir beginnen mit der Druckvorbereitung: Zunächst werden die Strings 
festgelegt, die dem Drucker für einen nicht gesetzten Punkt LE$ (hier 
ein Leerzeichen; Zeile 370), für einen gesetzten Punkt PU$ (hier ein 
invertiertes Leerzeichen; Zeile 390) und bei einem Zeilenende 
übermittelt werden. Hier können Sie natürlich Ihre Phantasie spielen 
lassen, indem Sie z.B. alle gesetzten Punkte als Sternchen o.ä. ausgeben 
usw. Sie könnten z.B. auch auf den Gedanken kommen, diese 
Hardcopy für Multicolor-Bilder umzuschreiben und verschiedene 
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Grauwerte realisieren etc. Die Sequenz für ein Zeilenende schaltet den 
Drucker mit CHR$(8) zunächst in den Graphikmodus, was die Folge 
hat, daß der Zeilenabstand so gering wird, daß die einzelnen Zeilen 
aneinanderstoßen. Dann wird ein "carriage return" ausgegeben, um an 
den nächsten Zeilenanfang zu kommen. Da für uns der Graphikmodus 
aber völlig uninteressant ist, schalten wir ihn mit einem CHR$(15) 
sogleich wieder aus. Die Sequenz kann natürlich von Drucker zu 
Drucker verschieden sein, da ja lediglich der Zeilenabstand verringert 
werden soll. Bei vielen (z.B. Epson-kompatiblen) Druckern braucht 
dafür nur einmal am Programmanfang eine einzige Sequenz 
ausgegeben werden. Es sieht aber z.B. auch ganz nett aus (und 
vergrößert die Hardcopy), wenn Sie zwischen jeder Zeile einen 
weißen Streifen lassen. Vielleicht wird dann ein Punkt auch gleich 
zwei Zeichen breit (z.B. ein inverses und ein normales Leerzeichen). 
Probieren Sie den Effekt doch einmal aus, vergessen Sie aber nicht 
jeweils die nächsten zwei Parameter zu ändern: 


In den nächsten beiden Zeilen (400/410) geben Sie an, wieviele Zeilen 
auf dem Drucker pro Druckseite ausgegeben werden sollen (XA) bzw. 
wieviele Zeichen in eine Druckzeile passen sollen. Da das ganze Bild 
quer ausgedruckt wird, bedeutet der erste Wert gleichzeitig, wieviel 
Punkte in x-Richtung, der zweite Wert, wieviel Punkte in y-Richtung 
auf eine Druckseite passen sollen. Hier wurden Werte gewählt, die 
Ihnen eine genügend große Klebefalz zum nachfolgenden 
Zusammenkleben frei lassen. 


Gleichzeitig sind diese Werte natürlich druckerabhängig. Die hier 
angegebenen Werte gelten für die Drucker: 


- MPS 801-803 

- CBM 1525/1526 

- Seikosha GP 100VC 

- Epsonkompatiblle mit DATA BECKER-Interface im 
Commodore-Modus 


Da es Drucker gibt, die auch im Text-Modus einen engeren 
Zeilenabstand einstellen können (z.B. Epson), passen nach der 
Einstellung dieses engen Zeilenabstandes natürlich weitaus mehr 
Zeilen auf eine Seite. Gleichzeitig erscheint die Graphik auch nicht 
mehr so gestreckt wie in dieser Version. 
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Doch machen wir einmal weiter: Nachdem Sie der Aufforderung den 
Drucker einzuschalten nachgekommen sind (Zeilen 430-450), wird in 
Zeile 460 der Graphikmodus eingeschaltet. Dabei bleibt (Modus 5) die 
Text-Anzeige sichtbar. Dies ist notwendig, um den späteren PLOT- 
Befehl in die HGR zu leiten. 


Jetzt wird die Druckdatei geöffnet (Zeile 490). Dieser Befehl kann 
natürlich ebenfalls von Drucker zu Drucker und von Interface zu 
Interface variieren. Hierzu sollten Sie einmal in Ihrem Drucker- bzw. 
Interface-Handbuch nachschauen. 


Ab Zeile 550 wird es nun ernst, der Druck beginnt! Zunächst wird die 
Anzahl der Blätter in der Breite (oder Höhe, jedenfalls in y-Richtung) 
minus | berechnet (Z. 560). Diese ergibt sich aus der Anzahl der 
Punkte in y-Richtung (200) und der Anzahl der Punkte pro Blatt 
(Zeichen pro Zeile). Dieser Wert fließt in die Blattschleife ein, die 
bestimmt, wieviel Blätter nachher nebeneinander liegen. 


Zeilen 580/590 berechnen dann die y-Start- und Endwerte, da ja 
immer nur in horizontalen Streifen gedruckt werden kann. 


In den Zeilen 620 und 630 beginnen die beiden Hauptschleifen, die 
jeweils die Koordinaten des abzufragenden Punktes in x- und y- 
Richtung herunter- bzw. hochzählen. Der jeweilige Punkt wird dann 
durch den Test-PLOT-Befehl in Zeile 640 abgefragt und entsprechend 
dem Ergebnis der String für einen gesetzten oder einen nicht gesetzten 
Punkt an den Drucker übermittelt (Z. 650/660). Die y-Schleife druckt 
dann jeweils eine Druckerzeile. Nach jeder Zeile wird dann geprüft, 
ob bereits alle Zeilen einer Seite gedruckt wurden (Zeilen 710/720). 
Immer wenn der Quotient QU aus der Anzahl aller bereits gedruckten 
Zeilen (320-X) und der Anzahl der Zeilen pro Seite eine ganze Zahl 
wird, wird der Integer dieses Quotienten INT(QU) gleich dem 
Quotienten QU selbst und damit muß eine neue Seite begonnen 
werden. 


Zu diesem Zwecke wird in das Unterprogramm ab Zeile 850 
verzweigt, das Sie zum Seitenwechsel auffordert. 


Wurde ein Graphikstreifen von x=0 bis x=319 gedruckt, ist der 
nächste darunter liegende Streifen dran (z-Schleife). Das ganze 
wiederholt sich solange, bis alles fertig gezeichnet ist. Die Druckdatei 
wird wieder geschlossen (Zeile 790) und Sie sind wieder Herr Ihres 
Rechners/Druckers. 
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Hat Ihr Drucker nun alles in dieser Weise zu Papier gebracht, ist es 
Ihre Aufgabe, die einzelnen Blätter in der richtigen Weise 
zusammenzukleben. Haben Sie vor dem Druck das Papier im Drucker 
richtig justiert, brauchen Sie nichts mehr wegzuschneiden, um Absätze 
im Bild zu vermeiden. Sie sollten Ihren Druckkopf ganz nach links 
schieben (bzw. das Papier so justieren, daß der Drucker an der 
äußersten linken Papierkante beginnt). Gleichzeitig sollte Ihr Drucker 
ebenfalls an der äußersten noch machbaren oberen Papierkante 
beginnen. 


Haben Sie die einzelnen Blätter nicht durcheinander gebracht, 
brauchen Sie auch nicht groß zu puzzeln, da doch in einer gewissen 
Ordnung gedruckt wird. Ich traue Ihnen da doch schon einiges zu. 
Aus diesem Grunde unterlasse ich alle weiteren Ausführungen. 


Na, hervorragend, jetzt haben wir alle Graphikbefehle besprochen. Es 
fehlen nur noch einige nützliche Befehle der Supergraphik, die Ihnen 
das Leben erleichtern werden. 


2.15 Noch einige nützliche Befehle der Supergraphik 


Neben den Graphikbefehlen, die wir inzwischen kennengelernt haben, 
besitzt die Supergraphik noch eine Reihe anderer Kommandos, die die 
verschiedensten Aufgaben meistern. Diese Befehle sind in zwei große 
Gruppen zu dividieren: 


- Soundbefehle 
- Utilities 


Befassen wir uns nun zuerst einmal mit der ersten Gruppe: 


2.15.1 Soundbefehle 


Unser Computer hat nicht nur phantastische Graphikeigenschaften, 
wir können ihm sogar recht ordentliche Klänge entlocken. Da dürfen 
in der Supergraphik natürlich die Befehle zur Klangsteuerung nicht 
fehlen. Zu diesem Zweck gibt es insgesamt 4 Kommandos, die das 
normale Commodore-BASIC nicht besitzt: 


Dann also zu den Befehlen, die nicht nur das Herz, nein auch die 
Ohren erfreuen. Gemeint sind, wie soll es anders sein, die Tonbefehle. 
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Töne werden in der Supergraphik ebenfalls über IRQ gesteuert. Sie 
sind also in der Lage, richtige polyphone (3 unabhängige(!) Stimmen) 
Musikstücke, Soundetüden oder auch Klangeffekte zu erzeugen. Dabei 
ist jedes Register des SID (Sound Interface Device), also des 
Synthesizers in Ihrem Rechner ansprechbar. Über die Funktionen 
dieser Register informiert Sie Ihr Handbuch. 


Falls nichts weiteres angegeben, gilt für alle Parameter der Bereich 0- 
15. 


VOLUME= 


Befehl: VOLUME= v 

Beispiel: VOLUMES= 15 
Parameter: v: Lautstärke 
Funktion: Einstellen der Lautstärke 


Mit diesem Befehl stellen Sie die Lautstärke Ihres Tones ein. Er gilt 
für alle Stimmen, sollte am Anfang definiert werden und kann 
natürlich zwischendurch geändert werden. 


SOUND 


Befehl: SOUND st,w,a,d,s,r (‚f (‚p)) 
Beispiel: SOUND 1,3,12,11,5,5 

oder SOUND 1,3,12,11,5,5,1 
oder SOUND 1,3,12,11,5,5,1,100 
Parameter: s Stimme (1-3) 


7 


w:  Wellenform (0-8) 

a: Attack (Anschwellzeit) 

d: Decay (Abschwellzeit) 

s Sustain (Haltelautstärke) 

r: Release (Ausklingzeit) 

f: Filter an/aus (0-1) 

p:  Pulsrate (Tastverhältnis)(0-4095) 
Funktion: Einstellen des Klangbildes 


Mit diesem einen Befehl stellen Sie das Klangbild eines Tones einer 
Stimme (st) ein. ür w sind die Werte 0-8 zulässig. Sie bestimmen 
folgende Funktionen (werden mehrere Wellenformen gleichzeitig 
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angegeben, so ist jeweils die logische UND-Verknüpfung dieser 
beiden Wellenformen gemeint): 


: Stimme ist stumm 

: Dreiecksschwingung 

: Sägezahn 

: Dreieck und Sägezahn 

Rechteck 

Dreieck und Rechteck 

Sägezahn und Rechteck 

: Dreieck, Sägezahn und Rechteck 
: Rauschen 


OS NMNUNRWDTO 


ZELZLELLEEE 
Kuna 


Bei Bedarf können Sie mit f die Filter für diese Stimme ein (f=1) oder 
aus (f=0) schalten (dabei kann ein hardwarebedingtes Knacken 
erfolgen). 


Weiterhin können Sie noch die Pulsrate der Rechteckschwingung mit p 
festlegen (dies hat natürlich nur Effekt, wenn die 
Rechteckschwingung ausgewählt ist: w=4; w=6; w=7), wobei für p 
Werte von 0 bis 4095 zulässig sind. 


FILTER 
Befehl: FILTER fa (‚ff,rf) 
Beispiel: FILTER 4 
oder FILTER 4,1000,14 


Parameter: fa: Filterart (0-7) 
ff:  Filtergrenzfrequenz (0-2047) 
rf:  Filterresonanzfrequenz (0-15) 
Funktion: Einstellen der Filter 


Mit FILTER bestimmen Sie den Filterzustand des SID, der ja 
bekanntlich für alle Stimmen identisch ist. 
fa ist die Filterart, wobei gilt: 
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fa=0: kein Filter an 

fa=1: Tiefpass 

fa=2: Bandpass 

fa=3: Tief- und Bandpass 

fa=4: Hochpass 

fa=5: Hoch- und Tiefpass (Bandsperre) 

fa=6: Hoch- und Bandpass 

fa=7: Hoch-, Band- und Tiefpass (Bandsperre) 


Optional können Sie weiterhin die Filtergrenzfrequenz (ff) (für den 
Fall des Bandpassfilters) und die Filterresonanzfrequenz (rf) setzen. 


TUNE 
Befehl: TUNE st,l,n,0 (,v) 
Beispiel: TUNE 2,30,3,4 
oder TUNE 2,30,3,4,14 


Parameter: st: Stimme (1-3) 
l: Länge des Tones (0-65535) 
n: Note (0-12) 
o:  Oktave (0-7) 
v: Verstimmung (0-255) 
Funktion: Spielen eines Tones 


Jetzt haben Sie alles vorbereitet; dann kann es ja los gehen: 
Mit TUNE spielen Sie einen Ton mit den eben definierten 
Eigenschaften in der Stimme st. 


1 gibt die Länge des Tones in 1/60 Sekunden wieder, d.h. Ihr Ton 
wird (1+1)/60 Sekunden lang gehalten. 


Mit n bestimmen Sie die Note, die gespielt werden soll und gibt die 
Position des Tones in der Tonleiter an (Ton c=1): 


ce ‚eis, d ‚dis, e, f ‚fis, g ‚gis, a ‚ais, h 
123456 78 9 10 11 12 


(ist n=0, so wird das h der darunter liegenden Oktave gespielt). 


o schließlich definiert die Oktave. Zur Orientierung: der Kammerton a 
(440 Herz) besitzt die Werte: n=10;0=4. 
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Wenn Sie wünschen, können Sie Ihre Töne mit v etwas verstimmen, 
sodaß z.B bei einem Dreiklang ein vollerer Klang entsteht. v kann 
dabei Werte von 0-255 annehmen: 


v= 1-127: Verstimmung um v nach oben 
v= 255-128: Verstimmung um 256-v nach unten 


Hier ein kleines Beispiel einfachster Klangprogrammierung, das sich 
als Schema für die Liedererzeugung verwenden läßt: 


10 VOLUME=15 


20 SOUND 1,.... : SOUND 2,..... : SOUND 3,..... 

30 FILTER ..... : READ Z : REM ZAHL DER TOENE 

40 FOR X=1 TO Z : READ S,L,T,O : TUNE S,L,T,O : NEXT X 
90 DATA 2, = 222u.. Lieddefinition........ 


In DATA wird zu Anfang die Zahl der Töne angegeben, die gespielt 
werden sollen (Z). Dann folgen Angaben zu den zu spielenden Tönen 
(in der Reihenfolge des Tonablaufes) mit folgendem Format: 


Stimme, Länge, Ton, Oktave 


So schnell lernen Sie, ein Instrument zu spielen! 


2.15.2 Utilities für alle Zwecke 


Supergraphik 64 besitzt nicht nur Graphik- und Tonbefehle, sondern 
unterstützt gleichfalls mit einigen wesentlichen Kommandos Ihre 
Programmierarbeit. Sie werden sehen, daß hier eine Auswahl getroffen 
wurde, die die aus eigener Erfahrung notwendigsten Funktionen 
vereint. Selbstverständlich gibt es noch eine Reihe weiterer 
Programmierhilfen, doch sind die oft relativ unbrauchbar und 
platzverschwendend. 
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DIRECTORY 
Befehl: DIRECTORY 
Beispiel: DIRECTORY 
Parameter: --- 
Funktion: Anzeigen des Disketteninhaltsverzeichnisses ohne 


Programmverlust 


Der größte Mangel des originalen BASIC offenbart sich wohl mit dem 
Fehlen eines DIRECTORY-Befehls. Diese Lücke soll hier nun 
geschlossen werden. Der Befehl ist recht einfach zu bedienen: 
Eingeben, (return) drücken, fertig. Ein im Speicher befindliches 
Programm wird dadurch nicht gelöscht! 


MERGE 


Befehl: MERGE "filename",ga 

Beispiel: MERGE "HUSTENBONBON",8 

Parameter: ga: (Geräteadresse 

Funktion: Anhängen eines BASIC-Programmes von Diskette an 
ein im Speicher befindliches 


Mit diesem Befehl ist es Ihnen möglich, an ein BASIC-Programm im 
Computer ein weiteres anzuhängen, das Sie durch MERGE einladen. 
Damit können Sie sich eine kleine Routinensammlung auf einer 
Diskette anlegen, die sie bei Bedarf zusammenladen. Oder Sie holen 
die DATA-Zeilen für verschiedene Sprites in Ihr Programm. 


Die Zeilennummern sollten sich jedoch, falls in dem eingeladenen 
Programm irgendwelche Zeilenansteuerungen (GOTO ...) vorhanden 
sind, nicht mit den Nummern des Vorprogrammes überschneiden, da 
es ansonsten (auch nach RENUMBER) Konfusionen gibt. 


Vorsicht bei sehr langen Programmteilen! Reicht der Speicher nicht 
aus, um beide Programme zu fassen, so werden Teile der Supergraphik 
überschrieben, was unmittelbar zu Absturz führt! Speichern Sie also 
bei langen Programmen vorher grundsätzlich das im Speicher 
befindliche Programm auf Diskette (Kassette) ab! 
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RENUM 


Befehl: RENUM sz,a 
Beispiel: RENUM 10,50 
Parameter: sz: Startzeile der neuen Version 
a: Abstand der BASIC-Zeilen (1-255) 
Funktion: Umnumerierung eines BASIC-Programmes 


Ein weiteres Juwel unter den Programmierhilfen ist der bekannte 
RENUMBER-Befehl. Mit ihm ist es möglich, die Zeilennummern 
eines ganzen BASIC-Programmes umzubenennen. Dabei werden 
selbstverständlich alle GOTOs, GOSUBs, ON..GOTOs, ON...GOSUBSs, 
THEN...s, RUNs und LISTs mit verändert, sofern eine Zeilennummer 
folgt (auch z.B. LIST 40-70 etc.). Dadurch schaffen Sie problemlos 
Platz zwischen zwei Zeilen, wenn Sie etwas einfügen wollen. Das 
funktioniert natürlich auch bei Programmen, die nicht mit der 
Supergraphik geschrieben wurden. 


Tauchen innerhalb des Programmes Zeilen in GOTOs etc. auf, die es 
eigentlich gar nicht gibt, so wird dort die Zahl 65535 eingesetzt. 


Der Befehl DTASET wird nicht umnumeriert, da dessen Zeilen- 
nummer auch berechnet werden kann (indirekt). Hier müssen also als 
einziges von Hand Anderungen vorgenommen werden. 


Bei Programmen, bei denen der gewählte Zeilenabstand und die 
Startzeile dazu führen würden, daß Zeilennummern größer als 63999 
auftauchen würden, wird vor der Umnumerierung die Meldung 
"ILLEGAL QUANTITY ERROR" ausgegeben, um Ihr Programm vor 
Zerstörung zu sichern. Ein BASIC-Programm, das mit RENUM 
behandelt wird, kann in seiner Länge zu oder abnehmen, da die 
Zeilennummern hinter GOTOs etc. länger oder kürzer werden können! 
Programme, die mit ihrer Länge rechnen, sollten dies beherzigen. 
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Befehl: KEY ft,"definition" 

Beispiel: KEY 2,"LIST"+CHR$(13) 

Parameter: ft: angewählte Funktionstaste (I-8) 
"definition" 16 Zeichen-Wort 

Funktion: Umprogrammieren der Funktionstasten 


Einfach wird das Programmieren gleichfalls durch die Belegung der 8 
Funktionstasten Ihres Rechners. Damit genügt ein Tastendruck, um 
ganze Befehle in Aktion zu bringen. Die in "definition" stehenden 
Buchstaben werden von nun an der mit ft angegebenen Funktionstaste 
zugeordnet. Bei dem Druck auf diese Taste wird dann automatisch 
diese Zeichenfolge (maximal 16 Buchstaben) auf den Bildschirm 
geschrieben und evt. ausgeführt. 


Programmieren Sie eine Taste mit einem Befehl (z.B. LIST) und 
wollen Sie, daß dieser Befehl direkt ausgeführt wird, dann müssen Sie 
noch zusätzlich den ASCII-Wert 13 (für <return>) anhängen: 


KEY 1,"L1ST"+CHR$C13) 


Wichtig ist, daß der Druck auf eine Funktionstaste nur direkt am 
Zeilenanfang, direkt nach der Eingabe von <return> eine Wirkung 
besitzt. Sollte also die Betätigung einer Funktionstaste keinen Erfolg 
haben, so drücken Sie einmal kurz auf <return> und anschließend 
wieder auf die Funktionstaste. Jetzt sollten keine Probleme mehr 
auftauchen. 


Nach dem Starten der Supergraphik sind die 8 Tasten sinnvoll bereits 
auf die folgende Art und Weise vorbelegt, um Ihnen Arbeit zu 
ersparen (die Belegung kann natürlich jederzeit geändert werden): 


f1: "LIST"+CHR$(C13) || f2: CHRECIH6)+"LIST"+CHR$CI3) 
#3: "DIRECTORY"+CHRSCIZ) || f4: "GMODE,7,161,250"+CHR$C13) 
#5: "GMODE,O+CHRSC13) || 6: "GMODE,8,161,250"+CHR$ (13) 
f7: "GMODE,, 1"'+CHR$ (13) I f8: "RENUM1O, 10" 


Wenn Sie also nach dem Laden z.B. auf die Taste f3 drücken, 
erscheint das Inhaltsverzeichnis Ihrer Diskette auf dem Bildschirm etc. 
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Am besten, Sie schreiben sich Ihre eigene Belegung auf, um stets die 
Übersicht zu behalten. Wollen Sie ständig mit Ihrer eigenen 
Funktionstastenbelegung arbeiten, so erstellen Sie vielleicht ein kleines 
Programm mit den 8 Definitionen und speichern es auf Ihre 
Arbeitsdiskette ab. So können Sie es jederzeit abrufen und durch ein 
simples RUN sämtliche Tasten programmieren! 


DTASET 


Befehl: DTASET zn 

Beispiel: DTASET 100 

Parameter: zn: Zeilennummer 

Funktion: Setzen des DATA-Zeigers auf eine bestimmte Zeile 


Dieser Befehl erleichtert Ihre Arbeit mit den vielen verschiedenen 
Spritedefinitionen stark, die bekanntlich zweckmäßigerweise in 
DATA-Zeilen abgelegt werden. Mit DTASET wird nämlich der Befehl 
RESTORE erweitert. RESTORE setzt den DATA-Zeiger wieder auf 
den Programmanfang. Wollen Sie also ein Element mitten aus dem 
Programm entnehmen, so mußten Sie früher vorher alle vorgelagerten 
Daten auslesen. Mit DTASET dagegen haben Sie also nun freien 
Zugriff (random access), indem es die Zeile bestimmt, ab der das 
nächste DATA-Element bei einem READ oder SREAD gelesen 
werden soll. 


PADDLE 


Befehl: PADDLE var,pn 
Beispiel: PADDLE A, 
Parameter: var: Zielvariable 
pn: Paddlenummer (1-4) 
Funktion: Auslesen der A/D-Wandler (Paddle-Werte) 


Unterschätzen Sie diesen Befehl nicht! Ihr Rechner besitzt 4 ein- 
gebaute sogenannte Analog/Digital - Wandler. Diese elektronischen 
Details ermöglichen uns, Widerstände von 200 Ohm bis 200 Kiloohm 
zu messen. Die verschiedenen Widerstandswerte werden in Werte von 
0 bis 255 übersetzt, die dann durch Software ausgelesen werden 
können. Anzugeben ist lediglich die Paddlenummer (1-4) - die 
Analog-Eingänge sind an den Eingangsports verfügbar (s. Handbuch - 
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Anhang) - und der Speicher (var) in den der ausgelesene Wert 
abgelegt werden soll. 


Zum einen können durch diesen Befehl handelsübliche Paddles 
(Drehknöpfe) ausgelesen werden, zum anderen sind aber auch 
verschiedene elektronische Sensoren wie Photowiderstände, Heißleiter, 
Kaltleiter usw. anschließbar. 


Eine besonders interessante Anwendung stellt der Gebrauch des 
Koala-Pad, also des Zeichentabletts dar, das eigentlich für das 
bekannte Zeichenprogramm konzipiert wurde. Doch durch den Befehl 
PADDLE ist es Ihnen gleichfalls durch ein kleines Programm möglich, 
das Graphiktablett zu bedienen und mit der Supergraphik zu zeichnen! 
Wenn Sie ein Graphiktablett besitzen, dann probieren Sie es doch 
einmal: 


10 GMODE 0,1 : GCLEAR 

20 PADDLE X,1 : PADDLE Y,2 
30 PLOT 0,X,Y 

40 GOTO 20 


Das genügt allein schon, um einfache Zeichnungen via Graphik- 
Tablett anzufertigen! - übrigens auch mit normalen Paddles. (natürlich 
müssen Sie das Graphiktablett (Paddles) in den richtigen Port gesteckt 
haben und mit dem Zeichengriffel auf der Fläche malen!) 
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3. Anwendungen 


Wir haben nun das große Kapitel der Befehlsvorstellungen der Super- 
graphik hinter uns gebracht, in dem uns die verschiedenen Möglich- 
keiten des Zeichnens von Punkten, Linien und Kreisen, der Sprite- 
oder sonstigen Darstellung, sowie die diversen Ausgabebedienungen 
und vieles mehr dargelegt wurden. 


Doch was fangen wir mit diesem Wissen an? Wie verwendet man etwa 
Linien und Kreise, um unterschiedliche Sachverhalte darzustellen? Was 
bringen uns die Sprites? Und so weiter und so fort. 


In diesem Kapitel sollen Ihnen einige Beispiele nahegebracht werden, 
die Ihnen die Arbeit mit diesen Themen schmackhaft machen sollen. 
Viele Tricks und Tips können Sie den einzelnen Paragraphen entneh- 
men, die Sie in Ihren Programmen gut verwenden können. 


Drei große Abschnitte behandeln die verschiedenen Möglichkeiten der 
hochauflösenden Graphik oder einer schönen Anwendung der Sprites 
in Laufschriften, die besonders im kommerziellen Gebrauch Verwen- 
dung finden. Stellen Sie sich doch einmal die Repräsentation eines 
Produktes oder Sonderangebotes mit Hilfe der Sprites und den enor- 
men Graphik- und Soundfähigkeiten des Commodore 64 vor. Sind das 
nicht verlockende Aussichten? 


Als letzten Abschnitt zeigen wir Ihnen die Möglichkeiten, die sich z.B. 
bei Spielen ergeben, einige nützliche Routinen werden auch hier vor- 
gestellt. 


3.1 Graphikanwendungen 


Lassen wir keine Müdigkeit aufkommen, gehen wir gleich zur Sache. 
Alle im folgenden angeführten Beispiele verwenden den Befehlssatz 
der Supergraphik oder im Falle des Kuchendiagrammes die Befehle, 
die Ihnen durch das kleine Graphik - Paket in Kapitel 5 zur Verfü- 
gung gestellt werden. 


Vor allem die hochauflösende Graphik läßt sich gut für kommerzielle 
Zwecke, aber auch für hübsche Privatanwendungen (Schule, Beruf, 


Freizeit) verwenden. Arbeiten Sie einmal die folgenden Abschnitte 
durch. 
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3.1.1 Funktionendarstellung 


Eine beliebte Art, die hochauflösende Graphik zu nutzen, ist das 
Zeichnen der Graphen verschiedener Funktionen. Dabei werden oft in 
Beispielprogrammen Sinus- oder Cosinuskurven verwendet (s. Bei- 
spielprogramm in Paragraph 5.2.2.1). Dies hat meist zwei Gründe: 
erstens sieht das Ganze recht eindrucksvoll aus, und zweitens - was 
wohl das Wichtigere ist - man hat nicht so große Probleme mit even- 
tuellen Bereichsüberschreitungen. Letzteres ist die größte Schwierig- 
keit bei dem Zeichnen solcher Bilder. Um diesem Problem auf die 
Spur zu kommen, müssen wir uns wieder ein wenig mit der Mathe- 
matik beschäftigen. 


Eine Funktion ist eine (eindeutige) Abbildung einer Menge auf eine 
andere, d.h. jedem Element der einen Menge ist genau ein Element 
der anderen zugeordnet (aber nicht unbedingt umgekehrt). Die Ele- 
mente der ersten Menge nennt man in algebraischen Funktionen auch 
x, die der zweiten Menge y. x und y sind in diesem Fall durch 
irgendeine mathematische Formel bzw. Gleichung verbunden (in dem 
Fall der Linien aus Abschnitt 5.2.2.2 beispielsweise durch die 
Geradengleichung): 


y=f() sprich: y gleich f von x 


Will man z.B. ein Zuordnungspaar feststellen, so setzt man für x einen 
beliebigen Wert ein und kann so y errechnen. Die Beziehung zwischen 
x und y kann man gleichfalls graphisch in einem Koordinatensystem 
darstellen. Dabei stellt die horizontale Achse des Systems alle mög- 
lichen x- (Abszisse), die vertikale dagegen alle möglichen y-Werte 
(Ordinate) der Funktion dar. Kennen wir ein x/y-Paar, so fällen wir 
ein Lot auf den betreffenden x-Wert der x- und entsprechend auf den 
y-Wert der y-Achse. Am Schnittpunkt dieser beiden Senkrechten wird 
nun ein Punkt eingetragen. Um ein möglichst genaues Bild des entste- 
henden Graphen zu erhalten, müssen wir viele solcher Koordinaten- 
paare berechnen und in unser System eintragen. In der Computer- 
praxis sieht das dann so aus, daß schrittweise x-Koordinaten, die 
stetig von einem bestimmten Wert bis zu einem zweiten Wert ansteigen 
(durch eine FOR...NEXT-Schleife realisierbar), in die jeweilige 
Formel eingesetzt werden, und dadurch die fehlende y-Koordinate 
errechnet wird. Das Koordinatenpaar dient nun zum Zeichnen eines 
Punktes auf dem Bildschirm. Beim Zeichnen einer Linie oder eines 
Kreises im 5. Kapitel wird übrigens das gleiche Prinzip angewendet: 
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100 REM FrrrrHrhe hr 


110 REM ** “r 
120 REM ** QUADRATFUNKTION ** 


130 REM ** “r 
140 REM rk 


150 REM 

160 GMODE 0,1 : GCLEAR 

170 SCOL= 0,6 : SCOL= 1,1 

180 FOR X=0 TO 319 

190 Y = X"2 : REM FUNKTIONSWERT ERRECHNEN 

200 IF Y>199 THEN WAIT 198,255 : GMODE ‚O : END : REM BEREICHSUEBERSCHRE 
ITUNG 

210 PLOT ‚X,Y : REM PUNKT SETZEN 

220 NEXT X 


Wie Sie sehen wird hier in Zeile 200 geprüft, ob der y-Wert noch im 
Bereich des Bildschirms liegt, um ein ILLEGAL QUANTITY ERROR 
zu verhindern. Unter anderem darüber soll hier diskutiert werden. 


Die in diesem Programm gewählte Funktion bereitet uns ein wenig 
Kopfzerbrechen, denn zum ersten kommt nur einer der erwarteten 
zwei Parabeläste auf das Bild und der auch noch verkehrt herum, 
dann ist die Funktion durchaus nicht bildfüllend, und drittens wurden 
viel zu wenig Punkte berechnet, um einen schönen Kurvenverlauf zu 
erreichen. Dies hat die folgenden Gründe: 


Auf unserem Computer besitzt unser Koordinatensystem eine festge- 
legte Ausdehnung. Wir können für x und y beispielsweise keine nega- 
tiven oder gebrochenen Zahlen oder Werte einsetzen, die größer sind 
als 319 (für x) bzw. 199 (für y). Trotzdem gibt es Funktionen, die 
gerade in diesen Bereichen die interessanten Teile besitzen. So liefern 
einfache Winkelfunktionen wie: 


y = sin(x) oder y = cos(x) 


nur Werte zwischen -1 und 1 für y und besitzen eine Schwing- 
ungsperiode von 2*pi, also ca. 6, was direkt für unsere Anwendung 
nicht zu gebrauchen ist. 


Es existieren nun Methoden, die diesem Dilemma Abhilfe verschaffen. 
Dazu gehören: 


- Scalierung 
- Verschiebung 
- Verzerrung 
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a) 


1.) 


2.) 
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Scalierung: 


Unter Scalierung versteht man das Vergrößern oder Verkleinern 
der einzelnen Koordinatenwerte und damit der gesamten Kurve. 
Dies wird durch einfaches Multiplizieren der x- und(!) y-Werte 
mit einem bestimmten Faktor erreicht. Dies kann auf zwei Arten 
geschehen: 


Es werden zunächst die normalen Werte für x zur Berechnung 
der unveränderten Funktion verwendet und nachher x- und y- 
Wert mit dem besagten Faktor multipliziert. Dabei hängt es vom 
Faktor (hier f genannt) ab, ob Sie damit den Graphen verklei- 
nern oder vergrößern: 


Faktor Auswirkung 
O<f<l Verkleinerung 
f>1 Vergrößerung 


Wählen Sie zusätzlich f<0O, so erscheint die Funktion spie- 


gelverkehrt und kopfüber. Eine BASIC-Routine wäre hierzu 
etwa: 


110 F=30 : REM VERGROESSERUNGSFAKTOR 

120 FOR X=0 TO 10 

130 Y = SINCX) : REM WERT ERRECHNEN 

140 Y = FfYY 2X = F*X : REM SCALIEREN 

150 IF Y>199 OR X>319 THEN WAIT 198,255 : SYS OF : END 
160 PLOT ‚X,Y : REM PUNKT ZEICHNEN 

170 NEXT X 


Dieses Programm läuft natürlich nur mit der Supergraphik. 
Außerdem liefert es noch negative Werte für y. 


Sie bauen die Scalierung direkt in die Funktion mit ein. Dazu 
erzeugen Sie direkt scaliertte Werte für x (durch die 
FOR...NEXT-Schleife), müssen diese in der Formel dann aber 
durch Dividieren von x durch f wieder rücksetzen. Die y- 
Scalierung erfolgt dann direkt in der Formel. Das könnte dann 
etwa so aussehen: 
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b) 


1.) 


110 F=30 : REM VERGROESSERUNGSFAKTOR 

120 FOR X=0*F TO 10*F 

130 Y = F * SINCX/F) = REM SCAL. WERT 

140 IF Y>199 THEN WAIT 198,255 : SYS OF : END 
150 PLOT ‚„X,Y : REM PUNKT ZEICHNEN 

160 NEXT X 


Diese Form hat insbesondere drei Vorteile: Erstens ist sie sicht- 
bar kürzer und schneller, zweitens ist damit gleich von Anfang 
an überprüfbar, ob größere Werte für x gewählt werden, als er- 
laubt, denn wir wählen den Umfang der Schleife direkt danach 
und drittens berechnen Sie schon hier statt der obigen 11 ganze 
301 Werte, was die Genauigkeit der Kurve natürlich beträchtlich 
steigert. Trotzdem hat die ganze Sache noch einen Haken: y wird 
immer noch negativ. 


Verschiebung: 


Um diesen Punkt zu beheben, können wir den gesamten 
Graphen in dem Koordiantensystem in alle Richtungen ver- 
schieben. Wir können also die Sinuskurve aus dem negativen 
herunter in den positiven Bereich verschieben, so daß y nur 
noch positive Werte annimmt. Oder wir verschieben den obigen 
Quadratfunktionsgraphen um einen bestimmten Betrag nach 
rechts, wodurch sein linker Ast sichtbar wird. 


Dies funktioniert, indem zu den beiden Koordinaten jeweils be- 
stimmte Werte hinzuaddiert werden. Diese Werte müssen nicht 
unbedingt gleich sein, wie bei der Scalierung, um das Aussehen 
des Graphen nicht zu beeinflussen. Addieren wir einen Wert b 
zu der y-Koordinate, so verschieben wir den Graphen nach 
oben bzw. nach unten, wenn b negativ ist (wir führen also 
eigentlich eine Subtraktion durch). Geschieht dies mit der x- 
Koordinate (a wird addiert), so resultiert eine Rechts- (für a>0) 
bzw. eine Linksverschiebung (a<0). Auch hier gibt es wieder die 
beiden Möglichkeiten, die völlig analog zu oben funktionieren: 


Der Wert der beiden Koordinaten wird errechnet und dann die 
beiden Summanden hinzuaddiert. Die Zeilen 130/140 in dem 
unter a)l.) stehenden Programm währen also so zu ersetzen 
(ohne Scalierung): 


130 Y 
140 Y 


SINCX) 
Y+B 2 X = X+A 
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2.) 


c) 


Auch hier können wir das Ganze in eine Formel packen und er- 
halten (Zeilen 120/130 des unter a)2.) stehenden Programms): 


120 FOR X=1 TO 10 
130 Y = SIN(X-A) + B 


Sie sehen, A wird von X abgezogen, statt addiert. 


Unser Quadratprogramm vom Anfang könnten wir dann um- 
schreiben, indem wir die Zeile 190 ersetzen durch z.B.: 


190 Y = (X-13)*2 +5 


Schon erhalten wir ein ganz anderes Ergebnis. Hier wurde a=13 
und b=5 gesetzt. Wählen wir z.B. für a größere Werte, so wird 
nichts gezeichnet, da y dann zu groß wird, was ja von unserer 
Abfrage in Zeile 200 abgefangen wird. Wie dieses Problem zu 
lösen ist, wird später erläutert. 


Verzerrung: 


Die Verzerrung ist einfach nur ein allgemeinerer Fall der 
Scalierung. Hier nämlich brauchen x und y nicht unbedingt mit 
dem gleichen Faktor multipliziert werden (wir nennen die 
beiden Faktoren jetzt einfach fl und f2). Dadurch werden aber 
die Proportionen der Kurve verändert, d.h. es kommt zu einer 
Stauchung (für 0<fl/2<1) oder Streckung (fl/2>1) in x- (für fl) 
bzw. y-Richtung (für f2). Jetzt erst werden die meisten Kurven 
wirklich zeichenbar. Ersetzen Sie doch einmal Zeile 190 des 
Quadratfunktions - Programmes durch: 


190 Y = 0.01 * ((X-139)/1)*2 + 5 


Sie werden strahlen, das war es. Hier werden Verzerrung und 
Verschiebung gleichzeitig angewandt, was zu diesem hübschen 
Ergebnis führt. Die einzelnen Veränderungswerte lauten: fl=1; 
f2=0.01; a=139; b=5 (statt mit 0.01 zu multiplizieren, könnten 
wir der Einfachheit halber auch durch 100 dividieren). 


Doch es sind noch ein paar Dinge zu klären. Unsere Parabel steht 
immer noch auf dem Kopf und zweitens werden bei der Veränderung 
der verschiedenen Parameter immer noch ILLEGAL QUANTITY 
ERRORSs produziert. Zunächst zum Ersten: 


Dieses Phänomen taucht auf, da unser Koordinatensystem auf dem 
Kopf steht. Unser Nullpunkt liegt nicht unten, sondern links oben in 
der Ecke. Die y-Werte werden nach unten hin nicht immer kleiner, 
sondern größer. Diese Eigenart kann durch einen einfachen Trick be- 
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hoben werden. Wir drehen die Kurve einfach um, indem wir das 
Vorzeichen aller y-Werte umkehren (s.o.). Da wir dann aber oft nur 
negative Werte für y bekommen, verschieben wir die Kurve gleichfalls 
noch um einen bestimmten Betrag nach unten (eigentlich oben), indem 
wir z.B. 195 addieren. Das sähe dann so aus: 


190 Y = - 0.01 * (X-139/1) + 195 


Das Ergebnis bestätigt das oben Gesagte. Doch nun zu den Fehler- 
meldungen, die inzwischen immer häufiger werden. Die Ursache liegt 
einfach in unserer unvollkommenen Bereichsüberprüfung. Zum einen 
testen wir gar nicht, ob y negativ wird, zum anderen beenden wir 
gleich unser Programm, wenn es zu einer Überschreitung gekommen 
ist. Wenn Sie das obige "Quadrat"-Programm ab der Zeile 180 wie 
folgt ändern, dann werden Sie für alle Einsetzungen von a,b,fl und f2 
und für jede Funktion zufrieden sein, sofern sie überhaupt in dem 
gewählten Bereich liegt: 


180 Fi = 1: F2= 0.1: A = 160 : B = 100 
190 FOR X=0 TO 319 

200 Y = - F2 * ((X-A)/F1)”2 + B 

210 IF Y>199 OR Y<O THEN NEXT X : GOTO 270 
220 PLOT ‚X,Y : REM PUNKT SETZEN 

230 NEXT X 

240 WAIT 198,255 : END 


Bevor der Computer etwas zeichnet, kann er schon eine ganze Menge 
Werte durchlaufen haben. Warten Sie also etwas, bevor Sie das Pro- 
gramm abbrechen. In diesem Programm wurde der Nullpunkt unseres 
verschobenen Koordinatensystems nach 160,100, also in die Mitte des 
Bildschirms gebracht. Wir könnten dort also auch z.B. zur Veran- 
schaulichung die Achsen einzeichnen. 


Eine weitere Möglichkeit ist beispielsweise die Niederlegung der 
Funktion in einer sogenannten Funktionsdefinition. Dies ist eine be- 
sondere Eigenschaft des BASIC und wird durch den Befehl DEF FN 
realisiert. Mit diesem Befehl wird eine Funktion definiert, die 
irgendwo im Programm beliebig aufgerufen werden kann, ohne sie 
umständlich nieder zu schreiben. Sie müßten dazu lediglich folgende 
Änderungen vornehmen: 


185 DEF FN FOO= - F2 * (OX-A)/F1)”2 + B 
200 Y = FN FOX) 
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Oder wenn Sie lediglich die reine Funktion in der Definitionszeile 
stehen lassen wollen: 


185 DEF FN F(X)= X“2 
200 Y = - F2 * FN FCCX-A)/F1) + B 


Der jeweilige Wert für die verschiedenen Variablen wird dabei stets in 
die Formel eingesetzt. So können Sie irgendwo die Funktion verän- 
dern, ohne in die Schleife eingreifen oder diese suchen zu müssen. 


Das folgende Programm geht noch etwas weiter. Es zeichnet für Sie 
eine beliebige Funktion. Sie können in eine INPUT - Abfrage Ihre 
Funktion eintippen und das Programm entwickelt für Sie daraus durch 
EinPOKEn entsprechender Bytes in einen freien BASIC-Bereich die 
Funktionsanweisung. Sie brauchen diese relativ komplizierte Routine 
nicht unbedingt zu verstehen, Sie demonstriert Ihnen aber den guten 
Nutzen des DEF FN - Befehls. Die Funktion wird ohne Verzerrungs- 
oder Verschiebungsparameter, also in "reiner" Form eingegeben. Diese 
werden später in der Hauptschleife in der Weise hinzugefügt, wie in 
den zuletzt gezeigten zwei Zeilen. Doch hier das Programm. 


Wenn Sie nicht die abgespeicherten Version der Diskette benutzen, 
sondern eine geänderte schreiben wollen, so achten Sie bitte unbedingt 
darauf, in dem ersten Teil bis zum Ende der DEF FN - Zeile (also bis 
einschließlich Zeile 350) genau den Wortlaut mit REMs und mit genau 
der gleichen Leerzeichenanzahl abzuschreiben, da das Programm damit 
rechnet! Beachten Sie das nicht, so kommt es im Zweifelsfall zum 
Absturz des Programms. Vor dem ersten Start sollten Sie das Pro- 
gramm daher auf jeden Fall zunächst einmal abspeichern! 


Y=SINCX>7CH- CX=0)) 
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100 REM Frrkhekehn he 


110 REM ** 2 “r 
120 REM ** FUNKTIONENPLOTTER ** 
130 REM ** “r 
140 REM Rees 
150 REM 
160 REM 


170 REM DEF FN - ROUTINE: 

180 REM aaa 2 2 2 2 2 2 a 2 2 2 nz 

190 REM 

200 RESTORE:DIM A$(25):PRINT CHRS(147) 

210 PRINT "GEBEN SIE EINE BELIEBIGE FUNKTION EIN :":PRINT:PRINT:PRINT 
220 GOSUB 380 : REM EINGABEROUTINE 

230 AD=2684-1:REM POKE-START 

240 FOR X=1 TO 25:READ ASCX):NEXT X:REM DATEN EINLESEN 

250 FORX=1TOLENCA$):AD=AD+1 

260 Q=X: FORY=1T025:B$=A$(Y):FORZ=1TOLEN(B$):C$=MIDSCAS,X,1) 

270 IFC$=" "THENAD=AD- 1:NEXTX:GOTO310 

280 IFC$=MID$(B$,Z,1)THENX=X+1:NEXTZ:POKEAD ‚Y+169:X=X-1:NEXTX:GOTO 310 
290 X=Q:NEXTY 

300 POKEAD ,ASC(C$):NEXTX 

310 POKEAD+1,58:POKEAD+2, 143 

320 REM FREIHALTER: 

330 DEFFNFCX)=0000000000000000000000000000000000000000000000000000000000 
00000000 

340 REM 25 FUNKTIONEN: 

350 DATA +,-,*,/,” ,AND,OR,<,=,>,SGN, INT,ABS,USR, FRE,POS,SQR,RND,LO G,EXP 
360 DATA COS,SIN,TAN,ATN,PEEK 

370 GOTO 390: REM WEITER 

380 INPUT "F(X)=";A$ : RETURN : REM EINGABEROUTINE(ZUM AUSBAU) 


390 : 

400 REM *** LOESCHFLAG SETZEN *** 
410 : 

420 POKE 53247,0 

430 : 

440 REM 

450 REM Dr 21272727272 1752777705 

460 REM **** HAUPTPROGRAMM **#*%* 
470 REM BEE 127572 172777705 

480 REM 


490 PRINT = PRINT "GEBEN SIE DIE FOLGENDEN PARAMETER EIN:" : PRINT 
500 INPUT "F1 (X-ZERRFAKTOR) ";F1 

510 INPUT "F2 (Y-ZERRFAKTOR) ";F2 

520 INPUT "A (X-VERSCHIEBUNG)";A 

530 INPUT "B (Y-VERSCHIEBUNG)";B 

540 GMODE 0,1 : SCOL= 0,16: SCOL= 1,5:REM INITIALISIEREN 

550 IF PEEK(53247)=0 THEN:GCLEAR :REM GRAPHIK LOESCHEN 

560 POKE 53247,0 :REM LOESCHFLAG 

570 REM 
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580 REM ACHSEN ZEICHNEN: 

s90 REM a 2 2 2 2 2 2 2 2 a 2 2 2 zz 

600 IF A>=0 AND A<320 THEN:PLOT ‚A,0 TO A,199 :REM X-ACHSE 
610 IF B>=0 AND B<200 THEN:PLOT „O,B TO 319,B :REM Y-ACHSE 
620 REM 

630 REM ZEICHENROUTINE: 

640 REM a 2 2 2 2 2 2 2 2 2 2 2 2 zz 

650 FL% = 1 : REM AUSSERHALB- FLAG 

660 FOR X=1 TO 319 

670 Y=-F2*FNFCCX-A)/FI)+B 

680 IF Y<O OR Y>199 THEN FL%=1:NEXT X:G0T0 720 

690 IF FL%=0 THEN:PLOT,X1,Y1 TOX,Y 

700 FL%=0 

710 X1=X:Y1=Y:NEXT X :REM LETZTE KOORD. MERKEN 

720 POKE 198,0 : WAIT 198,255 : GET A$ : GMODE „O :REM GRAPHIK AUS 
730 REM **#** MENUE: tk 

740 PRINT "WOLLEN SIE:" : PRINT : PRINT 

750 PRINT "(1) ANDERE PARAMETER" 

760 PRINT "(2) ANDERE FUNKTION" 

770 PRINT "(3) GRAPHIK NICHT LOESCHEN" 

780 PRINT "(4) GRAPHIK SPEICHERN" 

790 PRINT "(5) GRAPHIK LADEN" 

800 PRINT (6) HARDCOPY" 

810 PRINT "(7) BEENDEN" 

820 WAIT 198,1 : GET A$ 

830 ON VAL(A$) GOTO 480,850,860,880,970,1030,870 


840 GOTO 820 :REM FEHLEINGABE 

850 RUN :REM ANDERE FUNKTION 

860 POKE 2,1 : PRINT "OK" : PRINT : GOTO 820 :REM FLAG SETZEN 
870 END :REM BEENDEN 

880 REM 

890 REM GRAPHIK SPEICHERN: 

900 REM 


910 INPUT "FILENAME GA"; FI$,GA 

920 GSAVE GC,1,F1$,GA :REM SPEICHERN 

930 PRINT "OK" : GOTO 820 

940 REM 

950 REM GRAPHIK LADEN: 

960 REM 

970 INPUT "FILENAME, GA"; FI$,GA 

980 GLOAD GC,1,F1$,GA :REM LADEN 

990 GMODE 0,1 : GOTO 720 

1000 REM 

1010 REM HARDCOPY: 

1020 REM 

1030 PRINT "DRUCKER FERTIG MACHEN UND TASTE DRUECKEN!" 
1040 OPEN 1,4 : HCOPY#1 : CLOSE 1 :REM HARDCOPY 
1050 PRINT "OK" : GOTO 820 
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Beachten Sie bitte, daß auch dieses Programm für die Supergraphik 
geschrieben wurde und nur nach dem Einladen dieser Gra- 
phikerweiterung läuft. 


Wie gesagt, werden Sie zunächst aufgefordert, eine Funktion einzuge- 
ben. Das hierzu verwendete INPUT steht als Unterprogramm in Zeile 
380 und kann so von Ihnen durch eine andere Eingabeschleife - z.B. 
mit GET - ersetzt werden. Die Verlegung nach Zeile 380 war not- 
wendig, da Sie bis zur Zeile 330 ja keinerlei Änderungen vornehmen 
dürfen. Die Funktion steht dann in A$ und wird an die Übersetzer- 
routine bis Zeile 330 Übergeben. Diese formt daraus dann eine DEF 
FN - Zeile, d.h. Sie POKEt die notwendigen Bytes direkt in den 
BASIC-Speicher und verändert so die Zeile 330. Sie können sich ja 
einmal diese Zeile anschauen, nachdem Sie die erste Funktion einge- 
geben haben. Die Adresse, bei der die besagte Zeile beginnt, bzw. bei 
der das Programm beginnt, seine Funktion einzuschreiben, steht in 
Zeile 230 und kann von Programmierern geändert werden, die die 
Routine verstanden haben und in diesem Bereich Änderungen vor- 
nehmen wollen. 


Grundsätzlich können Sie in Ihre Funktion jede der 25 Teilfunktionen 
aufnehmen, die Sie in den Zeilen 350/360 finden. Dabei ist die Syntax 
genau dieselbe, wie in BASIC. 


Nach den obligatorischen Sprungadressendefinitionen werden Sie 
aufgefordert, die beiden Verzerrfaktoren fl/f2 und die Ver- 
schiebesummanden a und b einzugeben (Z. 490-530). Hier können Sie 
das anwenden, was Sie in den obigen Ausführungen gelernt haben. 
Hier einige Richtwerte: fl und f2 werden bei den meisten Funktionen 
größer als 1 (bei Winkelfunktionen ist z.B. der Bereich von 10-70 
empfehlenswert). Wie Sie wissen ist fl dafür zuständig, den Graphen 
nach links und rechts auseinander zu ziehen. f2 dagegen dehnt die 
Kurve nach oben und unten. Für einen ersten Überblick empfehlen 
sich für a und b die Werte a=160 und b=100, wodurch der Nullpunkt 
des Koordinatensystems genau in die Mitte des Bildschirms gebracht 
wird. Wollen Sie dann z.B. nur die für x positiven Bereiche, dann 
wählen Sie a=0 usw. 


Nach dem Einschalten und eventuellen Löschen der Graphik (abhän- 
gig vom Löschflag) werden dann ab Zeile 600 die Achsen des Koordi- 
natensystems gemäß der gewählten Verschiebung gezeichnet. Wenn Sie 
wollen, können Sie hier noch Teilstriche als Einheiten entlang den 
Achsen zeichnen. 
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In Zeile 650 beginnt nun die eigentliche Zeichenarbeit. Sie finden hier 
die altbekannte Routine vor, die wir oben entwickelt haben. Lediglich 
eine Kleinigkeit ist verändert. Um nicht nur die einzelnen Punkte der 
Kurve zu sehen, die berechnet wurden, werden diese hier durch 
Linien miteinander verbunden. So entsteht ein schönes, angenähertes 
Bild. Man spricht hier auch von Aproximation. Die Schwierigkeit be- 
steht darin, daß gerade dann nicht vom letzten Punkt zum gerade be- 
rechneten gezeichnet werden darf, wenn der Graph aus einem ungül- 
tigen Bereich kommt. Dafür sorgt das Flag FL% (Integervariable). 


Ist die Kurve gezeichnet, so kommen Sie nach einem Tastendruck in 
das Hauptmenü. Hier können Sie verschiedene Optionen wählen. Sie 
können eine ganz neue Funktion wählen, nur die Parameter verän- 
dern, das alte Bild erhalten, während das neue gezeichnet wird (für 
Vergleiche besonders geeignet), Graphik speichern / laden, eine 
Hardcopy anfertigen oder einfach beenden. 


Y=21r2-SQOR<CABSI(XF+2-23>>3 


Noch etwas zur Funktioneneingabe: Bitte achten Sie darauf, daß 
erstens die Syntax Ihrer Funktion richtig ist - andernfalls entsteht ein 
SYNTAX ERROR. Zweitens sollten Sie darauf achten, daß keine un- 
definierten Werte eingesetzt werden. Dies sind z.B.: allgemein zu hohe 
Werte, der Wert 0 in Nennern oder bei Logarithmus, negative Werte 
bei Wurzel oder Logarithmus. 
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Negative Werte können z.B. ausgeschlossen werden durch Verwendung 
der Absolut-Funktion, z.B.: 


SORCABS(X)) 


Der Wert Null wird vermieden durch ersetzen von X durch den Term 
(X-(X=0)): 


statt 1/X  : 1/0X-(X=0)) oder 
statt LOG(X): LOG(ABS(X-(X=0))) 


Wird x gleich 0, so wird der Ausdruck X=0 im Commodore-BASIC 
gleich -l, ansonsten bleibt er 0. Ahnlich können Größer- oder 
Kleinerzeichen (>,<) verwendet werden. 


Ist ein Fehler aufgetaucht, so können Sie das Programm auch mit 
RUN 330 starten, wobei die Funktion erhalten bleibt. 


3.1.2 3-dimensionale Graphik 


Kaum eine Computer-Werbeanzeige und zunehmend auch Anzeigen 
aus anderen Bereichen verzichten auf wunderschöne meist dreidimen- 
sionale Graphikbilder, um Ihre Produkte anzupreisen. Kein Wunder, 
die Zeichnungen strahlen eine enorme Ästhetik aus, durch die der 
Betrachter die unendlichen Weiten des Raumes mit dem jeweiligen 
Werbeobjekt assoziiert. Immer mehr Graphikdesigner besinnen sich 
auf das Hilfsmittel Computer und seine Fähigkeit auch komplizierte 
3-dimensionale Funktionen und allgemein räumliche Bilder herzustel- 
len. Wer hier nicht hinterher hinken will, der sollte sich einmal infor- 
mieren. 


Aber auch dem privaten Anwender bereitet es ungeheuren Spaß, sich 
mit diesen Dingen zu beschäftigen. Nicht umsonst ist meist eines der 
ersten Objekte des Informatikunterrichts in Schulen die Erzeugung 
von einfachen zweidimensionalen Funktionsgraphen (s. vorherigen 
Abschnitt) bis hin zu den räumlichen Darstellungen. 


Doch stößt Letzteres ohne Vorkenntnisse und ohne sachkundige An- 
leitung auf erhebliche Schwierigkeiten, da die Fachliteratur oft reich- 
haltiges Wissen voraussetzt und die eigene Ableitung der Algorithmen 
(Rechenvorschriften) relativ kompliziert ist. Aus diesem Grunde seien 
hier einige Verfahren dargelegt, die sich auf die Kenntnis des in Ab- 
schnitt 3.1.1 Gesagten stützen. 
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3.1.2.1 Parallel- Projektion 
Man unterscheidet grundsätzlich zwei Arten von Projektionen: 


- parallele Projektion 
- Zentralprojektion 


Wir werden uns im folgenden mit der ersten einfachen Projektionsart 
beschäftigen. Weiter unten liefern wir auch das nötige Rüstzeug für 
die zweite, wirklichkeitsnahere. 


Zunächst einmal müssen wir unser 2-dimensionales Koordinatensystem 
erweitern. Hierzu verwenden wir die Achsen xr,yr und zr (r steht für 
räumlich). Jeder Punkt eines 3-D-Objektes (z.B. ein Haus) hat damit 
drei Koordinaten (xr,yr,zr). Dieses Koordinatentripel muß zur Dar- 
stellung auf dem Bildschirm (denn hier kennen wir ja nur die Koor- 
dinaten x und y) in die ebenen Koordinaten x und y umgerechnet 
werden. 


Bevor wir dies unternehmen, müssen wir uns erst einmal über das 
Aussehen unseres 3-D-Koordinatensystems einigen. Wir legen dafür 
hiermit folgendes fest (s. Abbildung): 


Die xr- und zr-Achsen liegen in der Zeichenebene und stehen senk- 
recht aufeinander. Die durch die Zeichenebene gehende yr-Achse 
bildet mit der xr-Achse den Winkel w: 
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Wie aus der Zeichnung ersichtlich, ergeben sich damit folgende For- 
meln, die die Umrechnung der Raum- auf die Ebenenkoordianten 
vornehmen: 


x 
y 


xr + Yr*cos(w) 
zr + yr*sin(w) 


Der Winkel w bestimmt dabei die Perspektive, also den Winkel, mit 
dem man das Objekt betrachtet. Wollen wir das Bild verschieben, so 
daß wir es z.B. mitten im Graphikfenster zu sehen bekommen oder 
das Objekt in weite Ferne zu rücken, können wir drei Summanden a,b 
und c zu der xr-,zr- und yr-Koordinate hinzuaddieren (s. Kap. 3.1). 
Wir erhalten dann: 


x 
y 


a+xr + (Yr+c)*cos(w) 
b+zr + (yr+c)*sin(w) 


Wollen Sie die Figur lediglich in der Ebene verschieben, so wählen Sie 
c=0. Doch auch hier wird es oft dazu kommen, daß Teile des Bildes 
nicht zu sehen sind, da sie entweder aus dem Bildschirm herausragen 
oder viel zu klein sind, als daß die Auflösung ausreichte, sie zu er- 
kennen. Aus diesem Grunde führen wir wieder unsere bekannten 
Verzerrfaktoren ein, die uns erlauben sollen, das Objekt einfach zu 
vergrößern oder Länge, Höhe und Breite zu verändern. Um alle drei 
Faktoren zu verändern, müssen wir wieder direkt die Raumkoordina- 
ten mit den drei Faktoren fl,f2 und f3 für die xr-, zr- und yr- 
Koordinaten: 


x 
y 


fl*la+rxr) + f3*rlyr+c)*cos(w) 
f2*lb+zr) + f3*lyr+c)*sin(nw) 


Wollen Sie die Figur nur vergrößern, ohne Sie zu verzerren, so wählen 
Sie fl=f2=f3. Für die drei Faktoren gilt wieder das in Abschnitt 3.1 
Gesagte: 


fl/2/3 > 1 => Streckung (Vergrößerung) 
0< fl/2/3<1 => Stauchung (Verkleinerung) 


Um die jeweilige Figur nun noch genau auf den Bildschirm zu be- 
kommen, da der Nullpunkt der Raumkoordinaten nicht unbedingt 
immer mit dem Nullpunkt des Bildschirms übereinstimmen soll, der 
bekanntlich links oben in der Ecke liegt, wollen wir noch zwei Ver- 
schiebesummanden vl und v2 einführen. vl verschiebt das planare 
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Koordinatensystem in plus-x-, v2 in minus-y-Richtung. Wollen Sie 
den Nullpunkt des Koordinatensystems beispielsweise genau in die 
Mitte des Bildschirms positionieren, so wählen Sie vl=160 und v2=100. 
Auch hier stehen unsere y-Ebenen-Koordinaten wieder auf dem 
Kopf, wir müssen also ihr Vorzeichen ändern. Damit ergeben sich die 
beiden folgenden Formeln: 


x 
y 


f1*la+rxr) + f3*lyr+c)*cos(w) + v1 
-f2*Cb+zr) - f3*lyr+c)*sin(w) + v2 


In dem folgenden Programm wird ein Haus räumlich dargestellt. Die 
dazu notwendigen Eckpunkte sind mit Ihren 3 räumlichen Koordina- 
ten in DATA-Zeilen niedergelegt (Zeilen 1110-1140). Die 3-D-Koor- 
dinaten werden in die der Ebene umgerechnet und die einzelnen 
Punkte miteinander verbunden. Welche Punkte jeweils verbunden 
werden sollen, steht ebenfalls in dahinter liegenden DATA-Zeilen. Die 
Punkte werden der Reihe nach von I ab durchnumeriert und jeweils 
die Nummern zweier zu verbindender Punkte hintereinander in den 
Linien-DATA-Zeilen aufgeführt. Die Reihenfolge, in der die Linien 
gezeichnet werden, ist völlig egal, sie brauchen auch nicht zusammen 
zu hängen. Jeweils zu Anfang der Punkt- und der Linien-Daten steht 
die Anzahl der Punkte (Zeile 1100) und der Linien (Zeile 2100), die 
gezeichnet werden sollen. Wenn Sie sich an diese Datenform halten, 
können Sie sich beliebige eigene Figuren ausdenken und räumlich 
darstellen. Beispielsweise können Sie doch einmal Ihren Computer 
vermessen und die Daten in das Programm eingeben. Sie erhalten dann 
ein schönes räumliches Bild Ihres Gerätes. 


Doch wofür sich die Umstände machen und die Koordinaten 3-di- 
mensional eingeben? Dies hat einen besonderen Grund. Sie können 
Ihre einmal so erstellte Figur, wie in unserem Fall das Haus, beliebig 
vergrößern, verzerren, perspektivisch drehen oder verschieben. Dies 
erreichen Sie durch Veränderung der einzelnen Parameter a,b,;c, 
fl,f2,f3, vl,v2 und w. Es wird eine Weile dauern, bis Sie die Auswir- 
kungen dieser vielen verschiedenen Variablen überblicken. Bedenken 
Sie, daß die Zerrfaktoren fl,f2 und f3 die Einheiten der Achsen be- 
stimmen, d.h. bei ihrer Veränderung scheinen sich die Objekte 
gleichfalls fort oder heran zu bewegen. Stört Sie das, so ändern Sie die 
einfach die obigen Formeln in jene: 


x 
y 


fi*atxr + f3*yr*cos(w)+tc + v1 
-f2*rb-zr - f3*yr*sin(w)-c + v2 
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Nun besitzen fl, f2 und f3 keinen Einfluß mehr auf den Abstand, 
obwohl diese Formeln mathematisch nicht ganz einwandfrei sind. Die 
Verzerrung bezieht sich nur auf das Objekt, nicht auf das Koordina- 
tensystem. Wollten Sie also Einheiten an den Achsen abtragen, käme 
es zu Unstimmigkeiten. 


Eine sicher interessante Sache ist in den Zeilen 600-620 niedergelegt. 
Wir haben an dieser Stelle gerade die Raum-x- und die Raum-z- 
Achse gezeichnet. Um nun auch die in die Zeichenebene hineinra- 
gende y-Achse zu zeichnen, berechnen wir einfach den Punkt, bei 
dem die y-Ebenen-Koordinate 0 (bzw. 199) ist (unter Berücksichti- 
gung des Winkels w) und zeichnen eine Linie vom Ursprung dorthin. 


Wichtig bei allen Zeichenvorgängen ist die vorherige Überprüfung der 
Werte auf Bereichsüberschreitungen. Ein sehr gutes, professionelles 
Zeichenprogramm würde, falls ein oder zwei Eckpunkte außerhalb des 
Bildschirms liegen, trotzdem aber noch Teile der Linie zu sehen 
wären, die Schnittpunkte der Linie mit den Fensterränder berechnen 
und den sichtbaren Teil der Linie zeichnen. Unser einfaches Pro- 
gramm zeichnet diese Linien gar nicht. Sie könnten da ja Abhilfe 
schaffen. 


Gleichfalls werden die Linien, die eigentlich verdeckt sein sollten, 
ebenfalls gezeichnet. Dieses Problem der verdeckten Linien gehört zu 
den schwierigsten und langwierigsten Kapiteln der 3-D-Graphik. 
Große Institute tüfteln mit teilweise großem mathematischen Aufwand 
an solchen Algorithmen. Weiter unten wird Ihnen ein äußerst einfa- 
cher vorgestellt, der insbesondere bei 3-dimensionalen Funktionen 
Verwendung findet. 


Vielleicht verändern Sie dieses Programm noch weiter. Sie könnten 
z.B. die jetzt in DATA-Zeilen abgelegten Daten in irgendeiner Form 
auf Diskette abspeichern und gegebenenfalls später wieder einladen 
(DATA-Zeilen wären hierfür natürlich ungeeignet. Sie könnten alle 
Daten in Arrays unterbringen, die als sequentielles File auf Diskette 
gebracht werden können). Oder Sie bauen das Programm zu einem 
richtigen menügesteuerten Zeichenprogramm aus; als kleines Beispiel 
dient Ihnen dazu schon das Programm aus Paragraph 3.1. 
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100 REM ee re Tr 
110 REM “rs . 
120 REM ** 3-D-DESIGNER ** 
130 REM =: Wr 
140 REM ee er er r 
150 REM 

400 REM 

410 REM oe er 

420 REM **** PARAMETER *** 
430 REM rer 

440 REM 

450 Fl =5:F2=5 :F3=3 : REM ZERRUNG 


460 AR = 15 : BR = 0 : CR = 10 : REM VERSCHIEBUNG DER RAUMKOORD. 
470 W= 7/4: REM SICHTWINKEL (IN RAD) 


480 SI = SIN(W) : CO = COSCW) : REM KONSTANTEN 

490 v1 = 100 : V2 = 180 : REM VERSCHIEBUNG DER EBENENKOORD. 
500 REM 

510 REM Ka 12 

520 REM **** UMRECHNUNG *** 

530 REM Ka 02 

540 REM 


REM GRAPHIK INIT 
REM FLAG 


550 GMODE 0,1 : GCLEAR : SCOL= 0,16: SCOL=1,8 
560 FG=0:IF V1<0 OR V1>319 THEN FG=1:G0T0 580 
570 PLOT ‚V1,0 TO V1,199 : REM RAUM-Z-ACHSE 
580 IF V2<0 OR V2>200 THEN FG=1:G0T0 600 

590 PLOT ‚0,V2 TO 319,V2 : REM RAUM-X-ACHSEE 
600 22 = V1 - (199-V2)/SI*CO : 21 = V1 + V2/SI*co 

610 IF FG=0 AND 21>=0 AND Z21<320 THEN:PLOT ‚V1,V2 TO 21,0: REM RAUM-Y- 
ACHSE OBEN 

620 IF FG=0 AND 22>=0 AND 22<320 THEN:PLOT,V1,V2 TO 22,199: REM RAUM-Y- 
ACHSE UNTEN 

630 READ AP : DIM X%CAP),Y%CAP) : REM ANZAHL PUNKTE 

640 FOR ZA=1 TO AP : REM PUNKTEZAHL 

650 READ XR,ZR,YR 

660 XX(ZA) = FI*CXR+AR) + F3*CYR+CR)*CO+VI 

670 YX(ZA) = -F2*(CZR+BR) - F3*CYR+CR)*SI+V2 

680 NEXT ZA : REM NAECHSTER PUNKT 


700 REM 

710 REM We 

720 REM Werk STRICHE *** 
730 REM We 

740 REM 


750 READ AL : REM ANZAHL LINIEN 

760 FOR ZA=1 TO AL 

770 READ P1,P2 : REM PUNKTNUMMERN LESEN 

775 IF X%CP1)<O OR YX%CP1)<O OR X%CP2)<O OR YXCP2)<O THEN GOTO 790:REM 
AUSSERHALB 

77T  1FXKCPI)>31IORYXCPI)>I99ORXKCP2)>3I9ORYXCP2)>I99THEN GOTO 790:REM 
AUSSERHALB 

780 PLOT ‚X%CP1),YX(P1) TO XXCP2),YXCP2) : REM VERBINDEN 

790 NEXT ZA : REM NAECHSTE LINIE 
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900 POKE 198,0 : WAIT 198,255 : 


GET A$ 


910 GMODE „OÖ : LIST : REM GRAPHIK AUS 
1000 REM 

1010 REM Ka a 3 12 

1020 REM **** KOORDINATEN **%*%* 

1030 REM Wr 

1100 DATA 10 : REM ANZAHL PUNKTE 

1110 DATA 0, 0, 0, 6, 0,0, 6,10, 0 
1120 DATA 0,10, 0, 3,15, 0, 3,15,15 
1130 DATA 6,10,15, 6, 0,15, 0, 0,15 
1140 DATA 0,10,15 

2000 REM 

2010 REM Werra 

2020 REM **** VERBINDUNGEN **%*%* 

2030 REM Wr 

2100 DATA 17 : REM ANZAHL LINIEN 

2110 DATA 1,2, 2,3, 3,4, 4,1 
2120 DATA 4,5, 5,3, 5,6, 67 
2130 DATA 7,3, 7,8, 8,2, 8,9 
2140 DATA 9, 1, 9,10, 10, 4, 10, 6 
2150 DATA 10, 7 


Wenn Sie dieses Programm eingeladen und ausprobiert haben, werden 
Sie sehen, welchen Spaß es macht, mit ihm zu arbeiten. Speichern Sie 
ruhig einmal gelungene Bilder ab, oder erstellen Sie eine Hardcopy 
auf Ihrem Drucker. 
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Wollen wir die einzelnen Objekte zusätzlich im Raum drehen (nicht 
nur die Perspektive ändern), so müssen wir aus den ungedrehten 
Raumkoordinaten xr,yr,zr erst die gedrehten xr’,yr’,zr’ errechnen, 
bevor wir sie in Ebenenkoordinaten umrechnen können. Dies geschieht 
mit Hilfe der folgenden Formeln: 


Drehung um die xr-Achse: 
xır'= xr 


yr! = yr*cos(u) + zr*sin(u) 
zr'! -yr*sinlu) + zr*cos(u) 


Drehung um die yr-Achse: 


xr*cos(t) + zr*sin(t) 
yr 
-xr*sinlt) + zr*cos(t) 


xr' 
yr! 
zr' 


Drehung um die zr-Achse: 


xr! = xr*cos(s) + yr*sin(s) 
yr! = -xr*sin(s) + yr*cos(s) 
zr'= zr 


Dabei bedeuten: 


u,s,t : Drehwinkel um die jeweiligen Achsen 


Wollen Sie um zwei Achsen drehen, dann müssen diese Drehungen 
nacheinander ausgeführt werden: Sie berechnen erst die gedrehten 
Koordinaten für die Drehung um die erste Achse, dann setzen Sie die 
erhaltenen Werte in die Gleichungen ein, die für die Drehung um die 
zweite Achse zuständig sind. Entsprechendes gilt bei der Drehung um 
alle Achsen. 


Die Erstellung dreidimensionaler Bilder findet in vielen Bereichen 
Anwendung. Da mit dem Computer auf die besprochene Art und 
Weise besonders gut reale Gegenstände oder Situationen maßstabsge- 
treu dargestellt und verändert werden können, eignen sich diese Tech- 
niken für die Konstruktion bzw. den Entwurf bestimmter Objekte wie 
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Gebäude, Einrichtungen, Maschinen oder Maschinenteile. Dieses com- 
puterunterstützte Entwerfen (auch CAD = Computer Aided Design 
genannt) ist in vielen Teilen der Indrustrie und Ingenieurtätigkeit zu 
einem nicht mehr weg zu denkenden Werkzeug geworden. Autos, 
Flugzeuge werden konstruiert, technische Zeichnungen angefertigt 
oder Motoren etc. auf den Bildschirm und dann auf Papier gebracht. 
In diesem Zusammenhang eignet sich die 3-dimensionale Graphik 
hervorragend zur Simulation auch komplizierter Vorgänge. Diese 
Möglichkeit des Computers ist schon relativ früh entdeckt worden, zu 
einer Zeit, in der ein einfacher Taschenrechner noch ein Vermögen 
kostete, kompliziertere Geräte aber Unsummen verschlangen, was 
wohl ein Zeichen für die Wichtigkeit solcher Techniken ist. 


3.1.2.2 Zentral-Projektion 


Wenn wir Gegenstände betrachten, so können wir Ihre Entfernung 
unter anderem dadurch feststellen, daß sie je entfernter sie stehen 
desto kleiner werden. Das klassische Beispiel hierzu sind die langen 
Eisenbahnschienen, die immer schmaler werden und sich weit weg mit 
dem Horizont treffen. Tatsächlich ist es so, daß alle Linien sich auf 
einen virtuellen Punkt zuzubewegen scheinen, den sogenannten 
Fluchtpunkt. Das Problem ist es nun, ein mathematisches Verfahren 
zu entwickeln, um unsere bisher parallelen Linien auf einen Punkt zu 
richten. Da die Ableitung der entsprechenden Formeln hier zu lange 
dauern würde, seien Sie hier mit Scalierung (fl/f2/f3) und Verschie- 
bung (a/b/c) angegeben. Dabei stehen nun alle Achsen aufeinander 
senkrecht und die z-Achse ragt in die Bildebene hinein (eben war es 
die y-Achse!): 


= (fi*xr+a)/q 
= (f2*yr+b)/q 
mit: q = 1-(f3*zr+c)/fpz 


dabei bedeuten nun: 


XT,yT,Zr: räumliche Koordinaten 

fl,f2,f3: Verzerrung in xr-,yr-,zr-Richtung 

a,b, c: Verschiebung in xr-,yr-,zr-Richtung 
fpz: Entfernung (z-K.oord.) des Fluchtpunktes 
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Sie müssen also erst q errechnen, um die beiden gesuchten Ebenen- 
Koordinaten zu errechnen. Wollen Sie gleichzeitig Ihr Objekt noch in 
alle drei Richtungen drehen, so wird die Sache sehr viel komplizierter: 


x = (f1*CA*xr + D*yr + G*zr)+ta) /q 
y = (f2*(B*kr + E*yr + H*zr)+b) /q 
mit: q = 1-(f3*lCc*xr + F*yr + I*zr)+c) / fpz 


Das sieht schon kompliziert genug aus. Wenn Sie aber sehen, was Sie 
für A,B,C,...I einsetzen sollen, werden Ihnen die Augen ausgehen: 


cos(s)*cos(t) 
sin(s)*cos(t) 

-sin(t) 

-sin(s)*cos(u) + cos(s)*sin(t)*sin(u) 
cos(s)*cos(u) + sin(s)*sin(t)*sin(u) 
cos(t)*sin(u) 
sin(s)*sin(u) + cos(s)*sin(t)*cos(u) 

-cos(s)*sin(u) + sin(s)*sin(t)*cos(u) 
cos(t)*cos(u) 


=-zoponmvonu> 
ven nu 


Dabei bedeuten: 


s Winkel der Rotation um die z-Achse 
t: Winkel der Rotation um die y-Achse 
u: Winkel der Rotation um die x-Achse 


Solche Mammutaufgaben können selbstverständlich nur in Ma- 
schinensprache in relativ angemessener Zeit bewältigt werden. Selbst 
da gibt es einige Zeitprobleme (ein Tip am Rande: Die beste Möglich- 
keit wäre das Anlegen einer Tabelle von Sinus- und Cosinuswerten 
(jeweils in einem bestimmten Winkelabstand (z.B.l Grad etc.)), in der 
das Programm bei Bedarf immer nachschlagen kann, ohne die Werte 
erst lange errechnen zu müssen). 
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3.1.2.3 3-D-Funktionen 


Eine sehr reizvolle Anwendung der 3-D-Technik ist die Darstellung 
dreidimensionaler Funktionen. Doch nicht nur dem bloßen Vergnügen 
des Erstellers oder einiger Mathematiker dient diese weitere Möglich- 
keit. Auf diese Weise sind komliziertere Zusammenhänge, die sonst 
aus vielen unübersichtlichen Tabellen erahnt werden müssen, äußerst 
plastisch und informativ darstellbar. Sie kennen den Nutzen von zwei- 
dimensionalen Diagrammen, die beispielsweise die Entwicklung des 
jährlichen Umsatzes im Laufe der Jahre wiederspiegeln. Wollte man 
nun etwa gleichzeitig noch die Abhängigkeit des Umsatzes vom Preis 
eines bestimmten Produktes in den verschiedenen Jahren darstellen, so 
müßte man für jedes Jahr ein solches Diagramm erstellen, was auf die 
Dauer zu einer unübersehbaren Schar von Kurven führte. Doch dieser 
komlexe Zusammenhang kann anschaulich in einem einzigen 3-D- 
Diagramm vermittelt werden. So erhalten Sie einen schnellen und 
guten Überblick über die Dinge und können so gemäß den Trends den 
optimalen Preis Ihres Produktes im nächsten Jahr (Monat) ermitteln. 
Ich brauche Ihnen nicht erst zu sagen, welche Vorteile Ihnen dadurch 
erwachsen. 


Hier soll Ihnen die Technik der Erstellung anhand von mathe- 
matischen Funktionen vermittelt werden. In diesem Fall werden die 
einzelnen Werte, die notwendig sind, um das Bild zu erstellen, errech- 
net. Sie können diese selbstverständlich auch aus irgendwelchen 
Tabellen ermitteln, was den Anwendungsbereich der jetzt beschriebe- 
nen Vorgänge enorm erweitert. 


Zu dem Graphen einer 3-D-Funktion kommen wir durch Verwendung 
einer sogenannten Wertematrix. Als Beispiel soll uns die Funktion 


z=x’2 + y’2 


dienen. Sie erinnern sich aus Abschnitt 3.1.1, daß dort die Funktions- 
werte f(x) in einer FOR..NEXT-Schleife ermittelt wurden, in der die 
Variable x (die sogenannte Laufvariable) stets aufgezählt und die Va- 
riable y errechnet wurde. So erhielten wir beliebig viele Wertepaare, 
die uns als Koordinaten für den Graphen unserer Funktion dienten. 


Bei dreidimensionalen Funktionen (f(x,y)) dagegen besitzen wir zwei 
Laufvariablen (x und y), mit denen wir die dritte (z) berechnen 
müssen. Um diesem Umstand gerecht zu werden, verwenden wir zwei 
ineinander geschachtelte FOR...NEXT-Schleifen. In der ersten wird 
der x-Wert, in der zweiten der y-Wert hochgezählt. Das folgende Pro- 
gramm bringt Sie diesem Sachverhalt näher: 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 


REM Are 
REM ** r 
REM ** 3-D: Z=YX2-xX2 ** 
REM ** r 
REM Are 
REM 

REM 

REM ***%* PARAMETER **** 
REM er 
W= 3.1415/8 

A= 0:B= 0 
Fi= 20:F2= 5 
v1 = 160 : v2 = 100 
co = COSCW) : SI = SINCW) 
REM 

REM **%*%* ZEICHNEN **** 

REM Me 

GMODE 0,1 : GCLEAR : SCOL= 
FOR YR=3 TO -4 STEP -0.5 
FOR XR=3 TO -3 STEP -0.05 
ZR=YR*YR-XR*XR :REM 
X=FI*CA+XR) + F3*CYR+C)*CO 
Y=F2*(B+ZR) + F3*CYR+C)*SI 


c = 
F3 = 


PLOT ‚X,Y :REM 
NEXT XR,YR 
POKE 198,0 : WAIT 198,255 
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o 


0,16 : SCOL= 1,4 :REM GRAPHIK INIT 


FUNKTION 

+ v1 

+ v2 

PUNKT ZEICHNEN 


Die besagten FOR...NEXT-Schleifen überstrecken, wie Sie vielleicht 
sehen, die Zeilen 280 bis 340. In 300 wird dann aus den beiden Lauf- 
variablen der zr-Wert berechnet, um dann diese Raumkoordinaten auf 
altbekannte Weise in Ebenenkoordinaten umzurechnen. Das einzige 
Problem ist hier, wie immer, die Wahl der Parameter und des xr-, yr- 
Wertebereichs. Bei 3-D-Funktionen tritt es besonders auf, da hier so 
viele Parameter zu bestimmen sind. Man hilft sich, indem man 
zunächst möglichst einfache Zahlen einsetzt (etwa: a,b,c=0, fl,2,3=1, 


w=3.1415/4, vl=160, v2=100) und dann das entstehende Bild entspre- 
chend verändert. 
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Vernetzung: 


Durch einen kleinen Trick können wir nun einen ganz besonders 
schönen Effekt mit hineinbringen. Bislang erhalten wir nur einzelne 
Kurven, die uns schrittweise den Verlauf in die dritte Dimension 
vermitteln. Oft sieht man aber quasi gebogene Gitternetze, die uns die 
Graphik noch ein ganzes Stück plastischer erscheinen lassen (Vernet- 
zung oder "crosshatching"). Dies wird einfach durch eine scheinbare 
Drehung der Kurve erreicht. Scheinbar deshalb, weil es sich eigentlich 
gar nicht um eine Drehung handelt, sondern nur eine Veränderung der 
Schrittweiten, in denen die xr-, bzw. yr-Werte vom Start- zum End- 
wert gelangen, also derjenigen Werte, die hinter den STEP-Komandos 
der beiden FOR...NEXT-Schleifen erscheinen. 


Im obigen Beispiel wurde yr mit einer Schrittweite von -0.5, xr dage- 
gen mit -0.05 aufgezählt. Dadurch erschien nicht etwa eine gleich- 
mäßige Fläche, was passieren würde, wenn wir beide Schrittweiten 
gleich groß wählten, sondern jenes bekannte "Streifenmuster". 


Wenn wir jetzt die Schrittweiten austauschen, so verläuft unser 
Streifenmuster genau senkrecht zum ersten. Das wird im nächsten 
Programm ausgenutzt: 


100 REM Krk 
110 REM ** “r 
120 REM ** 3-D: z=Y*2-x"2 ** 
130 REM **  VERNETZUNG  ** 
140 REM Kr 


150 REM 

160 REM 

170 REM **** PARAMETER **** 

180 REM WERK 

190 W = 3.1415/8 

200A = 0:B = 0:c=0 
210 Fl= 20:f2= 5:F3=8 
220 Vi = 160 : V2 = 100 

230 CO = COS(W) : SI = SINCW) 
240 REM 

250 REM **** ZEICHNEN **** 

260 REM WR 


270 GMODE 0,1 : GCLEAR : SCOL= 0,16: SCOL= 1,4 :REM GRAPHIK INIT 
280 SY=-0.5 : SX=-0.05 :REM SCHRITTWEITEN (STEPS) 

290 FOR ZA=1 TO 2 :REM ZAEHLER 

300 FOR YR=3 TO -4 STEP SY 
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310 FOR XR=3 TO -3 STEP SX 

320 ZR=YR*YR-XR*XR :REM FUNKTION 

330 X=FI*(A+XR) + F3*CYR+C)*CO + VI 

340 Y=F2*(B+ZR) + F3*CYR+C)*SI + V2 

350 PLOT ‚X,Y :REM PUNKT ZEICHNEN 

360 NEXT XR,YR 

370 IF ZA=1 THEN GOSUB 410: SY=-0.05 : SX=-0.5 

380 NEXT ZA 

390 GCOMB 1 :REM GRAFIKSEITEN ODER-VERKNUEPFEN 

400 POKE 198,0 : WAIT 198,255 : GMODE ‚O : END :REM GRAPHIK AUS 
410 GMODE 2 : COLOR=0,0 : GCLEAR :REM SEITE 2 EINSCHALTEN UND LOESCHEN 
420 RETURN 


Sie sehen, der Graph wird insgesamt zweimal auf zwei verschiedene 
Weisen gezeichnet. Beim ersten Mal wird die Zeichnung in der ersten 
Graphikseite, beim zweiten Mal in der zweiten gezeichnet (dabei 
zeichnen wir mit vertauschten STEP-Parametern). Zu guter Letzt 
werden die beiden Graphiken miteinander durch OR verknüpft, was 
zu einer Überlagerung führt. 


In unserem speziellen Beispiel wäre das getrennte Zeichnen in zwei 
Graphikseiten und das nachherige ORen nicht nötig, wir könnten also 
direkt das zweite Bild über das erste zeichnen. Doch für unseren 
nächsten Schritt ist dieses Verfahren unabdingbar. 


Vielleicht bringen Sie noch ein 3-D-Koordinatensystem in das Bild, 
wie es Ihnen das vorherige Programm zeigt. 


Versteckte Linien: 


Im diesem Teil werden wir ein einfaches Verfahren für das Auslö- 
schen eigentlich von vorderen Flächen verdeckter Linien beim Zeich- 
nen mathematischer und auch anderer Funktionen vorstellen. 


Im täglichen Leben können wir normalerweise nicht durch die Dinge 
schauen, die wir betrachten. Wie Sie jedoch beim Zeichnen unserer 
Funktion sehen, ist dies hier der Fall. Unsere Linien durchdringen 
sich, obwohl die vorderen, die ja eine Fläche abstecken, die hinteren 
verdecken müßten. 


Bei Funktionen gibt es nun unter anderem zwei Methoden, diese ver- 
deckten Linien zu unterdrücken bzw. nachträglich wieder zu löschen. 


Fangen wir bei der ersten an. Sie ist äußerst simpel, aber sehr effektiv 
und trickreich: 
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Beim Zeichnen unseres Graphen achten wir darauf, daß wir stets von 
hinten nach vorne, also mit abnehmendem yr zeichnen. Haben wir 
jetzt einen Punkt ganz normal ausgerechnet und auf den Bildschirm 
gesetzt, dann löschen wir einfach unter dem Punkt in einer Linie alles 
bis zum unteren Ende des Graphikfensters. Damit verdeckt jede neu 
gezeichnete Ebene alles hintere, vorausgesetzt, es liegt räumlich unter 
dem gezeichneten Punkt. So erhalten wir eine Aufsicht auf die gra- 
phische Struktur der Funktion. Wenn Sie in das obige Programm le- 
diglich eine einzige Zeile hinzufügen, wird Ihnen der Effekt deutlich: 


355 PLOT 1,X,Y+1 TO X,199 :REM UNTER PUNKT LOESCHEN 


Das einzige Problem sind eventuell die Randbereiche. Hier könnte 
man eigentlich die Sicht quasi von unten auf die Kurve zulassen. Doch 
mit unserem Algorithmus ist dies nicht möglich - wie Sie sehen, wenn 
Sie das Programm laufen lassen -, da auch die "Rückansicht" gelöscht 
wird. Um dieses Manko auszugleichen, könnte man nun nicht bis zum 
unteren Bildrand, sondern lediglich zum darunterliegenden Punkt der 
nächsten Linie löschen. Damit wäre das Problem erledigt. Das Zeich- 
nen würde mit dieser Methode jedoch um Einiges länger dauern. 
Vielleicht versuchen Sie einmal das obige Programm so umzuschrei- 
ben. Es gibt einige schöne Funktionen, die Sie ausprobieren sollten. 
Versuchen Sie es evt. ’mal mit jenen: 


x"2+y”2 

1/(1+x*2+y”2) 
SAR(1-x"2/4-y”2/9) 
sin(x)/x+sin(y)/y 
sin(1/x)/x+sinl1/y)/y 


NNNNN 
nun N 


Sie können diese Funktionen auch mischen, da der Teil, der x enthält 
den Verlauf in x-Richtung wiederspiegelt, der Teil mit y den in y- 
Richtung. Man käme dann beispielsweise auf so etwas (Mischung: 
letzte und vorletzte): 


z = sin(x)/x+sin(1/y)/y 
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3.1.2.4 Bewegte Bilder in 3-D 


In den letzten Paragraphen haben Sie die Methoden kennengelernt, die 
zur Erzeugung 3-dimensionaler Bilder notwendig sind. Wenn es nicht 
gerade kleine Objekte waren, dauerte die Erstellung recht lange. Wie 
sollten daraus laufende Vorgänge entstehen, die von uns als bewegt 
angesehen werden können? Nun es gibt im Prinzip hierbei zwei Mög- 
lichkeiten. Die erste ist relativ einfach: Sie erstellen ein Bild unsicht- 
bar in einem im Moment nicht angezeigten Graphikbereich während 
Sie den Inhalt eines anderen Graphikbereiches auf dem Bildschirm 
darstellen. Ist das Bild vollendet, so schalten Sie einfach auf die neue 
Graphikseite um (s. Kap. 4.3.2). Die nun unsichtbar gewordene erste 
Seite kann dann zur Erstellung des nächsten Bildes herangezogen 
werden usw. 


Zwar ereichen Sie damit keine besonders schnell bewegten Bilder, 
doch ist für uns trotzdem ein gewisser Bewegungseffekt vorhanden. 
Sehr schön sind Rotationen oder schrittweise Vergrößerungen der 
Objekte. 


Die zweite Methode ist ein wenig aufwendiger. Sie benötigen dafür 
eine Filmkamera, die mit Einzelbildschaltung und einem Fernauslöser 
ausgerüstet ist. Rein theoretisch ist es auch möglich, eine Kamera 
ohne eine solche Einrichtung zu verwenden. Sie müssen dann zum 
Filmen einer Situation extrem kurz auf den Auslöser drücken, um 
möglichst wenige Bilder auf einmal zu knipsen. Mit etwas Übung er- 
halten Sie dann ebenfalls recht schöne Ergebnisse. Sind diese Voraus- 
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setzungen geschaffen, dann können Sie Ihre eigenen Computergra- 
phikfilme produzieren. Was sonst nur im Kino oder Fernsehen in 
Science fiction-Filmen zu sehen ist, das bekommen Sie nun hautnah 
ins Haus. 


Sie brauchen Ihre Kamera lediglich auf den Fernseher zu fixieren (am 
besten mit Stativ), die Einzelbildschaltung einzustellen und loszulegen: 
Sie programmieren dem Rechner eine Folge von Bildern ein. Die 
Rechen- bzw. Erstellungszeit ist dabei egal. Beispielsweise drehen Sie 
Ihr Objekt (Kurven oder Gegenstände) mit jedem Male ein Stück um 
eine Achse. Jedesmal, wenn ein Bild fertig gezeichnet ist, dann 
drücken Sie zum Festhalten eines Bildes einmal auf den Auslöser. Dies 
muß in sehr kleinen Schritten erfolgen, damit der Vorgang nachher 
auf dem Film nicht zu schnell erfolgt. Im Zweifelsfall photographieren 
Sie jede Szene mehrmals. 


Eine noch elegantere Methode ist die Steuerung der Kamera durch 
den Computer. Dies ist dann möglich, wenn Ihre Kamera einen elek- 
trischen Fernauslöser besitzt. Haben Sie nur einen Drahtauslöser, dann 
gibt es entsprechende Adapter, die im Fachgeschäft erhältlich sind. Sie 
können dann Ihren Computer alleine laufen lassen, ohne selbst jedes- 
mal die Kamera betätigen zu müssen. Gleichfalls können Sie, wenn Sie 
keine Einzelbildschaltung besitzen, extrem kurze Schaltzeiten erreichen 
und so nur wenige oder gar nur ein Bild auf einmal filmen. 


Zur Verwirklichung dieses Vorhabens müssen wir einen kleinen 
Abstecher in die Elektronik machen. Der Computer sendet jedesmal, 
wenn ein Bild geknipst werden soll ein Signal an den User-Port. 
Mittels der unten angegebenen Schaltung wird dann die Kamera aus- 
gelöst. Sie können sich diese folgende Schaltung selbst oder von 
kundigen Bekannten zusammenlöten lassen. Weiterhin benötigen Sie 
einen User-Port-Stecker und einen entsprechenden Stecker für den 
Fernauslöser Ihrer Kamera, die beide im Elektronik-Fachgeschäft er- 
hältlich sind. 
tsV Pin? 


RAeed Relais 
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Diese Schaltung wurde eigenhändig ausprobiert und lieferte her- 
vorragende Filmergebnisse. Mit den unten stehenden Befehlsfolgen 
können Sie die Kamera ansteuern: 


10 c2=56576 : REM BASISADRESSE CIA 2 ($DD00) 

20 POKE C2+3, PEEK(C2+2) OR 1 : REM PIN AUF AUSGANG 
30 POKE C2+1,0 : REM KAMERA AUS 

40 POKE C2+1,1 : REM KAMERA EIN 


Zeile 20 braucht nur einmal im Verlaufe des Programms gegeben 
werden. Beachten Sie bitte, daß zwischen einem ’ein’ und ’aus’ 
genügend Zeit ist, daß das Relais und die Kamera reagieren können. 


3.1.3 Graphische Statistik 


Ein beliebtes Anwendungsgebiet der Graphik, besonders für den 
kommerziellen Gebrauch, stellt die Veranschaulichung komplizierter 
Tabellen in übersichtlichen Diagrammen dar. Hierzu werden verschie- 
dene Darstellungsmethoden verwendet. Die wichtigsten unter ihnen 
sind: 


- Kurvenstatistik 
- Balkendiagramme 
- Kuchendiagramme 


a) Kurvenstatistik: 


Besitzen wir viele "Meßwerte" in Abhängigkeit eines bestimmten 
Faktors (z.B. der Umsatz einer Firma in Abhängigkeit von dem 
jeweiligen Monat (d.h. in jeweils verschiedenen Monaten)), so 
verwenden wir allgemein die erste Form der Ausgabe. Hierbei 
werden die gleichen Techniken angewandt, wie dies bei der 
Darstellung von 2-dimensionalen Funktionen (s. Kap. 3.1.1) der 
Fall ist. Der Unterschied liegt lediglich in der Herkunft der 
einzelnen Daten. Dort wurden sie errechnet, hier aus zweireihi- 
gen Tabellen gewonnen. Diesen Abschnitt sollten Sie sich also 
durchgelesen haben. Grundsätzlich gelten dieselben Regeln zur 
Verschiebung, Scalierung und Verzerrung der Kurven, wie in 
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b) 


Abschnitt 3.1.1 dargelegt. Besonders hier spielen die Einheiten 
an den beiden Koordinatenachsen eine Rolle und sollten beach- 
tet werden (s.u.). 


Balkendiagramme: 


Bei den Balkendiagrammen wird die Sache schon etwas kompli- 
zierter, obwohl das Prinzip identisch ist. Sie verwendet man bei 
relativ kleinen Datenmengen, die optisch besser sichtbar gemacht 
werden sollen. Ein Wertepaar dient nun nicht zur Bestimmung 
der Lage eines Punktes auf dem Bildschirm, sondern der Höhe 
und Position eines Balkens, der sich von der x-Achse in die 
Höhe zieht. Das folgende kleine Programm soll Ihnen die Pro- 
grammierung solcher Balken demonstrieren. Nehmen wir an, es 
sollen die Umsatzzahlen einer (den Marktschwankungen recht 
stark ausgelieferten) Firma über 10 Jahre mit Hilfe eines 
Balkendiagramms, dargestellt werden, um dem Leiter eine 
dringend nötige Übersicht zu vermitteln. Die jeweiligen Zahlen 
(in Tausend DM) werden dabei in DATA-Zeilen bereit gehalten. 
Sie könnten aber auch per INPUT solche Daten erfragen und 
evt. auf Diskette (Kasette) speichern und schon hätten Sie ein 
recht schönes Statistikprogramm. 


100 REM 


110 REM ** “r 
120 REM ** BALKENDIAGRAMM ** 
130 REM ** “r 
140 REM Wr 
150 REM 

320 REM 

330 REM **** ACHSEN ####* 

340 REM Krk 


350 GMODE 0,1 : GCLEAR : SCOL=0,7: SCOL=1,10 : REM GRAPHIK INIT 

360 READ ZA : REM ZAHL DER WERTEPAARE 

370 READ HI : REM HOECHSTER Y-WERT 

380 XH = 300 : YH = 180 : REM ANZAHL DER PUNKTE IN X-/Y-RICHTUNG (MAX.) 
390 XE=INTCXH/ZA*1) =: YE=INTCYH/HI*10) : REM BERECHNUNG DER (1ER) 10ER E 
INHEITEN 

400 PLOT ‚10,10 TO 10,190 : REM Y-ACHSE 

410 PLOT ‚10,190 TO 310,190 : REM X-ACHSE 

420 T=-1:FOR Y=190 TO 10 STEP -YE 

430 T=T+1:1F T/5-INTCT/5)=0 THEN:PLOT ,5,Y TO 15,Y : REM GROSSER S TRICH 
435 IF T/10-INTCT/10)=0 THEN:PLOT ,3,Y TO 17,Y : REM GROSSER STRIC H 

440 PLOT ,7,Y TO 13,Y : REM EINHEITSMARKIERUNGEN 

450 NEXT Y 

460 T=0:BE=20+XE/2 : REM BEGINN ERSTER STRICH 

470 FOR X=BE TO 310 STEP XE 
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480 T=T+1:IF T/5-INTCT/5)=0 THEN:PLOT ,%,195 TO X,190 : REM GROSSE R 
STRICH 

485 IF T/10-INTCT/10)=0 THEN:PLOT ‚X,198 TO X,190 : REM GROSSER ST RICH 
490 PLOT ‚X,193 TO X,190 : REM EINHEITSMARKIERUNGEN 


500 NEXT X 

600 REM 

610 REM ***%* DIAGRAMM *r'* 
620 REM Dorn 


630 BR=XE-20 : REM BALKENBREITE ERECHNEN 

640 PO=BE-BR/2 : REM STARTPOSITION ERSTER BALKEN 
650 FOR T=1 TO ZA 

660 READ DA : REM DATEN LESEN 

670 Y=190-DA*YE/10 : REM BALKENHOEHE (EINHEIT!) 
690 FILL 255,PO,Y TO PO+BR,190 : REM BALKEN ZEICHNEN 
710 PO=PO+XE : REM NEUE BALKENPOSITION 

720 NEXT T 

800 POKE198,0:WAIT 198,255:GMODE „O:END 

900 REM 

910 REM **** DATEN **** 

920 REM wu... 

1000 DATA 10 : REM ANZAHL WERTE 

1010 DATA 100 : REM HOECHSTER WERT 

1100 DATA 100,50,20,46,38,10,2,6,48,99 





Das Ganze sieht zunächst recht kompliziert aus, da eine Menge 
von Formeln angewandt werden. Diese "Formeln" sind aber recht 
gut zu verstehen, da Sie lediglich die Formatierung der Achsen 
und Balken betreffen. 


Wir haben uns in diesem Programm als Ziel gestellt, möglichst 
variabel bezüglich der Anzahl und der Größe der Daten zu sein, 
ohne Bereichsüberschreitungen oder viel zu kleine Graphiken zu 
erzeugen. Aus diesem Grunde werden vor die eigentlichen Daten 
zwei Werte gestellt: die Anzahl der Daten und das größte Glied, 
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die in den Zeilen 360/370 eingelesen werden. Weiterhin legen 
wir uns den Bereich fest, in dem die Balkendiagramme liegen 
sollen. Wir haben dafür ein 300x180-Punktefeld reserviert (Z. 
380). 


Als erstes Problem stellt sich das Zeichnen der Achsen, da wir 
Einheiten eintragen wollen. Die Senkrechte (y-Achse) soll (so 
unsere Vereinbarung) jede 10. Einheit mit einem einfachen 
Strich anzeigen. Jede 50. Einheit steht ein etwa doppelt, jede 
100. ein etwa dreimal so langer Strich. Auf der Waagerechten 
(x-Achse) wird die gleiche Einteilung unternommen, mit dem 
Unterschied, daß hier die l., 5. und 10. Einheit hervorgehoben 
werden. 


Dazu berechnen wir zunächst die Anzahl der Punkte, die auf 
eine (bei der x-Achse) bzw. 10 (y-Achse) Einheiten fallen 
dürfen, so daß wir sowohl nach rechts als auch nach oben nicht 
zu weit hinauskommen, aber auch die gesamte verwendbare 
Fläche ausnutzen (Z. 390). 


Nun zeichnen wir erst einmal die bloßen Achsen (Z. 400/410). 
Dann folgt der Eintrag der Scalen (Z. 420-500). Dieser Vorgang 
sollte relativ leicht zu durchschauen sein. Dazu einige Bemer- 
kungen: In den Zeilen 430, 435, 490 und 495 wird jeweils ge- 
prüft, ob gerade der 5. bzw. 10. Strich gezeichnet wird und 
entsprechend verlängert. Der dazu hinter dem IF stehende Aus- 
druck ist nichts weiter als das Abschneiden der Zahl vor dem 
Komma (auch Fraction genannt - das "Gegenteil" von INT). In 
Zeile 460 wird der Startpunkt der x-Scalierung errechnet. Die 
hier angeführte Formel hat etwas mit der Breite der Balken zu 
tun. 


Jetzt erst werden die eigentlichen Balken gezeichnet. Dazu wird 
die Balkenbreite so bestimmt, daß zwischen zwei Balken genü- 
gend Platz ist (Z. 630). Die Formel für die Startpositon der 
Balken und Ihre Höhe sollten Sie ebenfalls verstehen (bei letzte- 
rer Formel wird mit der Anzahl der Punkte pro Einheit multi- 
pliziert, um der Scala an der y-Achse gerecht zu werden). 


Sie können beliebig die Daten ab Zeile 1000 verändern, sollten 
aber darauf achten, keine negativen und nicht zu viele Daten zu 
verwenden. Bei extrem hohen Werten sollten Sie die Scalenein- 
heiten der Achsen ändern. 


Damit haben Sie einen Einblick in die Programmiertechniken 
dieser Anwendung. Sicher fallen Ihnen noch viele Anderungen 
ein, die Sie an diesem Programm vornehmen können. 
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c) Kuchendiagramme: 


Diese Art der graphischen Statistik ist geeignet zur über- 
sichtlichen Darstellung von Ver- bzw. Aufteilungen von Mengen 
in Teilmengen und der Größenverhältnisse unter ihnen. Hierzu 
wird ein Kuchen (Kreis) gezeichnet, der die Gesamtheit aller zu 
betrachtenden Elemente darstellt (100 %) und der sich in ver- 
schieden große Teilstücke unterteilt. Die Größe der Teilstücke 
gibt dann den Anteil dieser Teilmenge an der Gesamtmenge an. 


Oft sehen wir solche Graphiken bei Wahlen zur Darstellung z.B. 
der Sitzverteilung im Bundestag etc. oder im Geographieatlas, 
um beispielsweise die Anteile bestimmter Import- oder Export- 
waren eines Landes am Gesamtumschlag zu demonstrieren usw. 


Doch wie ist solches programmtechnisch zu verwirklichen? 
Schließlich haben wir es mit der ziemlich komplizierten Relation 
eines Kreises zu tun, der in bestimmte Winkelausschnitte unter- 
teilt werden muß. In Kapitel 5.2.2.3 werden wir noch die Erzeu- 
gung eines Kreises (Ellipse) kennenlernen. Doch die dort ange- 
gebene Kreisformel ist nicht dazu geeignet lediglich Ausschnitte, 
die ja durch Angabe des jeweiligen Winkels definiert werden, zu 
zeichnen. Wir könnten hier beispielsweise den Supergraphik- 
Befehl CIRCLE verwenden. Doch wir wollen ja weiterlernen. 
Aus diesem Grunde weisen wir Sie hier in die Kreiserzeugung 
per Polarkoordinaten ein. Polarkoordinaten sind eine alternative 
Möglichkeit der Darstellung von Funktionen. Verwendet wird 
ein sogenanntes Polarkoordinatensystem, in dem nicht x und y 
als Achsenabschnitte, sondern w als Winkel zwischen der Ver- 
bindung von einem beliebigen, gesuchten Punkt zu dem Null- 
punkt und der Waagerechten und | für den Abstand des Null- 
punktes und dem besagten Punkt angegeben werden. Veran- 
schaulicht sähe das dann etwa so aus: 
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Ein Kreis ist dann leicht durch die Änderung des Winkels w bei kon- 
stanthalten des Abstandes 1 zu konstruieren. Allgemein für eine belie- 
bige Ellipse mit dem Mittelpunkt im Ursprung (0,0) gilt dann unter 
Berücksichtigung der Umrechnung von Polar- (l,w) in die uns be- 
kannten sogenannten kartesischen Koordinaten (x,y): 


x 
y 


a*cos(W) 
b*sin(w) 


wobei außer den genannten Parametern bedeuten: 


a: Radius der Ellipse in x-Richtung 
b: Radius der Ellipse in y-Richtung 


Diese Zuordnung ist uns schon aus dem oben genannten Abschnitt be- 
kannt. Mithilfe dieser beiden Formeln ist es uns nun möglich, einen 
bestimmten Randpunkt einer Ellipse durch Angabe des Winkels der 
Polarkoordinaten des Punktes zu bestimmen. 


Eine Sache muß noch erläutert werden. Auch in den vorigen Ab- 
schnitten war öfter von Winkeln die Rede. Es gibt verschiedene Mög- 
lichkeiten, einen Winkel anzugeben: 


- Angabe in Altgrad (0-360) 
- Angabe in Neugrad (0-400) 
- Angabe in Radiant (0-2*pi) 


Die uns vertrauteste von allen ist wohl die erste. Doch unser Rechner 
rechnet nur mit der dritten, bei der 360 Altgrad dem Wert von 2*pi 
(pi=3.1415...) entsprechen. Dieser Wert entspricht der Länge eines 
Kreisbogens mit dem Radius I über den angegebenen Winkel. Wollen 
Sie Radiant in Altgrad oder umgekehrt umrechnen, so verwenden Sie 
diese Formel: 


grad = 180*2*pi/rad oder 
rad = 180*2*pi/grad 


Damit besitzen wir das notwendige Rüstzeug, um das folgende Pro- 
gramm verstehen zu können. Es wurde mit dem Graphik-Paket aus 
dem 5. Kapitel geschrieben, es läuft also nicht mit der Supergraphik, 
sondern erst nach dem Starten dieses Graphik-Paketes! 


268 Das Supergraphikbuch zum C64 


100 RENT 


110 REM ** Kr 
120 REM ** KUCHENDIAGRAMME ** 
130 REM ** *#* 
140 REM re 
150 REM 

230 REM **** GRAPHIK-ROUTINEN **** 
240 REM Are er er 


250 IN=51200 : OF=51203 :REM INIT /GRAPHIK OFF 
260 GC=51206 : SC=51209 :REM GCLEAR/SET COLOR 
270 Pc=51212 : PL=51215 :REM PCOLOR/PLOT 

280 UP=51218 : SL=51221 :REM UNPLOT/SET LINE 
290 CL=51224 : GL=51227 :REM CLINE /GLOAD 

300 GS=51230 : HC=51233 :REM GSAVE /HARDCOPY 


320 REM 
330 REM **** ELLIPSE **** 
340 REM ee 


350 P1=3.1415 

360 SYS IN : SYS GC : SYS SC,16*5+13 : REM GRAPHIK INIT 
370 A = 100 : B = 60 : V1=160 : V2=80 : REM PARAMETER 
380 W=0:G0SUB 930:X1=X:Y1=Y: REM X1 UND X2 VORBESTIMMEN 
390 SP=7*P1/180 : REM STEP 

400 BE=O:EN=2*PI : REM START- UND ENDWINKEL 

410 GOSUB 800 : REM ELLIPSE ZEICHNEN 

420 BE=O:EN=1.03*PI : REM ETWA 180 GRAD 

430 v2=100 : REM TIEFER SETZEN 

440 GOSUB 800 : REM ELLIPSE ZEICHNEN 


500 REM 
510 REM **** KUCHENSTUECKE *%*%** 
520 REM R03 020252125272 52 7717777755 


530 READ ZA : DIM TCZA) : REM ANZAHL DER TEILE 

540 FOR S=1 TO ZA 

550 READ T(S) : REM DATEN LESEN 

560 SU=SU+T(S) : REM SUMME BILDEN 

570 NEXT S 

580 W = 0 : REM STARTWINKEL 

590 FOR S=1 TO ZA 

600 PR=T(S)/SU : REM PROZENT AUSRECHNEN 

610 WA=2*PI*PR : REM WINKEL DES AUSSCHNITTES 

620 W=W+WA : REM WIRKLICHER WINKEL 

630 V2=80:G0SUB 930:REM KOORDINATEN ERRECHNEN 

640 SYS SL,V1,V2,X,Y : REM TRENNLINIE 

650 IF W>PI THEN 690 : REM NUR AUF DER SICHTBAREN SEITE 
660 X1=X:Y1=Y : REM MERKEN 

670 V2=100:G0SUB 930:REM UNTERE KOORD. ERRECHNEN 

680 SYS SL,X1,Y1,X,Y : REM SENKRECHTE ZUM UNTEREN BOGEN 
690 NEXT S 

799 WAIT 198,255:SYS OF:END 

800 REM 


810 REM **** ELLIPSENBOGEN **%** 
820 REM Ra a7 SS 2 27577, 
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830 FOR W=BE TO EN+SP STEP SP : REM WINKEL BESTIMMEN 
840 GOSUB 930 : REM KOORDINATEN BESTIMMEN 

850 SYS SL,X1,Y1,X,Y : REM LINIE 

860 X1=X:Y1=Y 

870 NEXT W : RETURN 

900 REM 

910 REM **** PUNKT BERECHNEN **** 

920 REM Ba 2 2 2 2 2 2 2 2 22 2 

930 X = A*COSCW) + VI 

940 Y = B*SINCW) + V2 : RETURN 


1000 REM 
1010 REM **** DATEN *** 
1020 REM WREN 


1100 DATA 6 : REM ANZAHL 
1110 DATA 20,10,15,40,30,8 


Wie Sie sehen, können Sie hier aus den Zeilen 800-940 für Ihre eige- 
nen Programme eine alternative Kreisformel entnehmen. Die Überga- 
beparameter sind im einzelnen: 


BE: Startwinkel 

EN: Endwinkel 

SP: Schritteinheit 

V1: Mittelpunkt-x-Koordinate 
V2: Mittelpunkt-y-Koordinate 
A: x-Radius 

B: y-Radius 


Zu der Schrittweite SP muß folgendes gesagt werden: Sie bestimmt, in 
welchem Winkelabstand die einzelnen Punkte der Ellipse berechnet 
werden, also die Genauigkeit. Diese Punkte werden dann in Zeile 850 
durch eine Linie verbunden. Wählen Sie SP sehr groß, z.B. 30 oder 45, 
so erhalten Sie spezielle Effekte: Damit wird dann ein gleichseitiges 
Vieleck (8-Eck etc.) gezeichnet, was für andere Zeichnungen gut ver- 
wendet werden kann! 


Eigentlich muß die Zeile 380 bereits in diesem Unterprogramm auf- 
geführt werden und sollte auch von Ihnen übernommen werden, 
sofern Sie lediglich die Ellipsenroutine verwenden wollen. Hier wurde 
sie herausgenommen, um einen speziellen Effekt zu erzielen (s.u.). 


270 D upergraphikbuch zum C64 


In dem obigen Programm wollen wir nicht einfach eine simple Scheibe 
zeichnen und dann entsprechende Abschnitte abtragen. Vielmehr soll 
das Ganze etwas Format haben und in 3-D gezeichnet sein. Es wird 
eine runde Platte mit einer gewissen Dicke dargestellt, die in die 
unterschiedlichen "Kuchenstücke" zerschnitten ist und von schräg oben 
gesehen werden soll. Dazu zeichnen wir zunächst einmal eine Ellipse 
als Oberfläche (Z. 410). Alsdann zeichnen wir die gleiche Figur nur 
um ein paar Punkte nach unten verschoben und als Halbellipse, um 
den unteren Rand der Platte darzustellen (Z. 440). Eigentlich wird bei 
dieser Konstruktion der Platte ein wenig "gemogelt", da wir die seit- 
lichen Ränder als gerade Linien darstellen müßten (was rechts auch 
geschieht), dafür zeichnen wir die Ellipse ein klein wenig über 180 
Grad (1*pi) hinaus, was wegen der Auflösung kaum auffällt. 


Nun kommen wir zu den eigentlichen Kuchenschnitten: 

Vorher sollten wir etwas über die verwendete Datenstruktur sagen. 
Am Anfang vor den eigentlichen Daten steht wie immer ihre Anzahl. 
Dann folgen beliebig viele und beliebig hohe Zahlen, die z.B. die 
Anzahl der Sitze der einzelnen Parteien oder allgemein die Größe der 
verschiedenen Teilmengen wiedergeben. 


Im ersten Teil der ab Zeile 500 folgenden Routine werden alle durch 
ZA angegebenen Daten in ein eindimensionales Feld eingelesen und 
(das ist der eigentliche Grund für diese Schleife) die Summe aller 
Teilmengen gebildet (Z. 540-570). 


In der nächsten FOR..NEXT-Schleife werden dann die Uhnter- 
teilungen vorgenommen: Zeile 600 rechnet den prozentualen Anteil 
der jeweiligen Partei an der Gesamtheit aus. Zeile 610 bestimmt die 
daraus resultierende Größe des Kreis- (Ellipsen-) Ausschnittes in Ra- 
diant, die zu dem aktuellen Winkel W hinzugezählt wird (Z. 620). 
Nun, da der Winkel des betreffenden Schnittes bekannt ist, kann die 
Position des entsprechenden Randpunktes der Ellipse errechnet 
werden. Alsdann wird vom Mittelpunkt der Ellipse zu diesem Punkt 
eine Linie gezeichnet (Z.640). 


Nun kommt es darauf an, ob sich dieser Schnitt bereits auf der 
hinteren Hälfte der Scheibe oder noch vorne befindet. Im ersten Fall 
ist die Sache erledigt und der nächste Wert kann bearbeitet werden. 
Im zweiten Fall jedoch muß der Schnitt noch sichtbar bis zur Unter- 
kante gezogen werden. Dies geschieht, indem wir einfach die Position 
auf der verschobenen Kante berechnen und vom zuletzt gezeichneten 
Punkt bis hierhin eine Linie ziehen (Z. 650-680). Damit wäre der 
Dreidimensionalität Genüge getan. 
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Auch dieses Programm ist selbstverständlich voll ausbaufähig. Sie 
könnten beispielsweise die einzelnen Teile in verschiedenen Farben 
oder schraffiert zeichnen usw. Ihrer Phantasie sind keine Grenzen 
gesetzt. 


3.2 Laufschriften 


Eine verlockend einfache und gleichzeitig recht schöne Art und Weise, 
beliebig gestaltete und bewegliche Buchstaben auf den Bildschirm 
(auch in die hochauflösende Graphik) zu bringen, ist die Konstruktion 
von Buchstabensprites. Die Sprites besitzen eine geradezu phantasti- 
sche Auflösung zur Erstellung von Schrift und können vergrößert, 
bewegt usw. werden. 


Wir werden hier zwei Versionen eines Programmes vorstellen. Die 
erste Version arbeitet mit den Sprite-Befehlen der Supergraphik, die 
zweite arbeitet mit dem normalen BASIC ohne jede Erweiterung, um 
Ihnen bereits eine kleine Vorstellung von den Problemen der Sprite- 
Programmierung ohne BASIC-Erweiterung zu geben. Sie brauchen 
hier an dieser Stelle noch nicht unbedingt alles zu verstehen, da hierzu 
die Lektüre der folgenden Kapitel notwendig ist. Überschlagen Sie 
also ruhig die in kursiv gedruckten Erläuterungen, bis Sie das hierzu 
notwendige Wissen besitzen. 


Das Problem bei der Bewältigung der Aufgabe in originalem BASIC 
ist der begrenzte Speicherraum, der uns unter BASIC zur Verfügung 
steht. Mit den vier Blöcken, die uns in BASIC zur völlig freien Ver- 
fügung stehen, kommen wir nicht aus. Um hier Abhilfe zu schaffen, 
können wir erstens den gesamten VIC-Adreßbereich um 16, 32 oder 
gar 48 K nach oben verschieben (s. Kap. 4.3.2) und so in Speicher- 
ebenen gelangen, die wir ohne weiteres nutzen können. Doch hier tritt 
eine kleine Schwierigkeit auf. Es verschieben sich ja nicht nur die 
Spriteblöcke, sondern gleich alle Bildschirmspeicher wie Video-RAM 
und Graphikspeicher, was die Handhabung erheblich erschwert. 


Wir wollen uns die zweite Möglichkeit zu Nutze machen: Wir packen 
alle Sprite-Definitionen, die wir in unserem Programm verwenden, in 
den Bereich von $2000-$3FFF (8192-16383), wo wir normalerweise 
unsere Graphik beherbergen. Zwar können wir dann nicht mehr 
gleichzeitig Graphik anzeigen, aber man muß bereit sein auch Kom- 
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promisse zu schließen. Damit verwenden wir die Blöcke 8192/64=128 
bis 255 und haben Platz für insgesamt 127 Spritedefinitionen, was 
ausreichend sein sollte. Wir brauchen dann nur darauf zu achten, daß 
wir nicht unbedingt riesige Mammutprogramme oder solche mit einem 
großen Speicheraufwand schreiben, und der Fall ist erledigt. 


Kommen wir zu den Buchstabendefinitionen. Normalerweise ist es un- 
nötiger Platzverbrauch, alle Spritedefinitionen als DATA-Zeilen in 
unser BASIC-Programm niederzulegen. Alternative Methoden werden 
Ihnen in Kapitel 5.3 vorgestellt. Hier allerdings wollen wir ausnahms- 
weise damit arbeiten, zumal wir nur wenige Buchstabendefinitionen 
vorstellen. 


Die einzelnen Sprites können Sie mit dem Spriteformer in Abschnitt 
5.3 erstellen und später z.B. direkt in den Speicher einlesen. Sie 
können sich so einen ganzen Vorrat an Zeichen erstellen und bei Be- 
darf abrufbereit halten. 


Wir wollen aber nun zu der eigentlichen Aufgabe vorschreiten: der 
Programmierung von Laufschriften. Hierzu ein kleines BASIC-Pro- 
gramm (zunächst mit der Supergraphik): 


100 REM Krrkkrr 

110 REM ** ”* 

120 REM ** LAUFSCHRIFTEN ** 

130 REM ** “r 

140 REM 

150 REM 

160 GMODE 0,1:GCLEAR 

170 COLOR= 0,0 :REM RAHMEN UND HINTERGRUND = SCHWARZ 
180 DIM A$(96) :REM SPRITEDEFINITIONEN 


190 REM 

200 REM 

210 REM **** EINSPEICHERUNG **** 

220 REM Ba ne 212 

230 REM 

240 FOR B=1 TO 9 :REM 9 BUCHSTABEN 

250 READ A$ :REM NAME DES BUCHSTABEN 
260 BK=ASC(A$)-32 :REM SPRITES NACH ASCII GEORDNET IM SPEICHER (BL 
OCKNUMMER) 

270 SREAD A$(BK) :REM SPRITE-DATEN LESEN 
280 NEXT B :REM 9 BUCHSTABEN LESEN 
290 REM 

300 REM 

310 REM **** INITIALISIERUNG **** 

320 REM Ka a a 12 


330 REM 
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340 FOR S=0 TO 7 


350 SDEFINE S,"" :REM SPRITES AUS 

360 SMODE S,3,S+1 :REM FARBE UND GROESSE FESTLEGEN 
370 NEXT S 

380 REM 

390 REM 

400 SP=0 :REM START-SPRITENUMMER 

410 ZA=8 :REM ANZAHL DER BUCHSTABEN AUF DEM BILD (GLEICHZEITIG / MAX.:8) 
420 AB=330/ZA :REM ABSTAND ZWEIER SPRITES 

430 GE = 20 :REM GESCHWINDIGKEIT 

440 REM 

450 REM 

460 REM **** LAUFSCHRIFT **** 

470 REM Ka 1 

480 REM 

490 TE$S="DATA-BECKER---" :REM LAUFTEXT 

500 FOR LA=1 TO 10 :REM 10 DURCHLAEUFE 


510 FOR BU=1 TO LEN(TE$) 
520 BU$=MID$(TE$,BU,1) :REM LAUFENDER BUCHSTABE 


530 BK =ASC(BU$)-32 :REM NUMMER DES BUCHSTABEN 
540 XK(SP)=351 

550 YK(SP)=100 :REM SPRITE-KOORDINATEN 
560 SSET SP,XK(SP),YK(SP):REM SPRITE-KOORDINATEN 
570 SDEFINE SP,A$(BK) «REM SPRITE EINSCHALTEN 
580 IF SO<>ZA-1 THENSO=SP 

590 SP=SP+1 :REM NAECHSTE SPRITENUMMER 
600 IF SP=ZA THENSP=O 

610 REM 

620 REM BEWEGEN: 

630 REM 

640 FOR K=1 TO AB STEP GE:REM AB SCHRITTE BEWEGEN 
650 FOR S=0 TO SO :REM SO SPRITES BEWEGEN 
660 XK(S)=XK(S)-GE :REM NEUE X-KOORDINATEN 
670 IF XKCS)<O THEN:SDEFINE S,'" 2 GOTO690:REM SPRITE AUS 


680 SSET S,XK(S),YK(S) :REM SPRITE POSITIONIEREN 
690 NEXT S,K 

700 NEXT BU :REM NAECHSTEN BUCHSTABEN 

710 NEXT LA :REM NAECHSTEN DURCHLAUF 


720 REM 

730 REM 

740 REM **** SPRITE-DATA **** 
750 REM Be 212175 

760 REM 


770 DATA A : REM BUCHSTABE A 

780 DATA 000,000,000, 000,000,000, 003,255,192 
790 DATA 007,000,224, 006,000,096, 006,000,096 
800 DATA 006,000,096, 006,000,096, 006,000,096 
810 DATA 006,000,096, 007,255,224, 006,000,096 
820 DATA 006,000,096, 006,000,096, 006,000,096 
830 DATA 006,000,096, 006,000,096, 006,000,096 
840 DATA 006,000,096, 000,000,000, 000,000,000 
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850 REM 


860 DATA 
870 DATA 
880 DATA 
890 DATA 
900 DATA 
910 DATA 
920 DATA 
930 DATA 


940 REM 


950 DATA 
960 DATA 
970 DATA 


980 DATA 
990 DATA 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 


DATA 
DATA 
DATA 
REM 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


B : REM BUCHSTABE B 

000,000,000, 000,000,000, 
003,001,128, 003,000,192, 
003,000,192, 003,000,192, 
003,255,000, 003,001,128, 
003,000,096, 003,000,096, 
003,000,096, 003,000,192, 
003,255,000, 000,000,000, 


C : REM BUCHSTABE C 

000,000,000, 000,000,000, 
003,129,192, 003,000,000, 
003,000,000, 003,000,000, 
003,000,000, 003,000,000, 


003,000,000, 003,000,000, 
003,000,000, 003,000,000, 
001,255,192, 000,000,000, 


D : REM BUCHSTABE D 

000,000,000, 000,000,000, 
012,001,128, 012,000, 192, 
012,000,192, 012,000, 192, 
012,000,192, 012,000,192, 
012,000,192, 012,000,192, 
012,000,192, 012,000,192, 
015,255,000, 000,000,000, 
E : REM BUCHSTABE E 

000,000,000, 000,000,000, 
003,001,192, 003,000,000, 
003,000,000, 003,000,000, 
003,255,000, 003,006,000, 
003,000,000, 003,000,000, 
003,000,000, 003,000,000, 
003,255,192, 000,000,000, 


K : REM BUCHSTABE K 

000,000,000, 000,000,000, 
003,003,000, 003,006,000, 
003,024,000, 003,048,000, 
003,192,000, 003,192,000, 
003,048,000, 003,024,000, 
003,006,000, 003,003,000, 
003,000,192, 000,000,000, 


R : REM BUCHSTABE R 

000,000,000, 000,000,000, 
003,001,128, 003,000, 192, 
003,000,192, 003,000, 192, 
003,255,000, 003, 192,000, 
003,048,000, 003,024,000, 
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003,255,000 
003,000, 192 
003,001,128 
003,000, 192 
003,000,096 
003,001,128 
000,000,000 


001,255,192 
003,000,000 
003,000,000 
003,000, 000 
003,000,000 
003,129,192 
000,000,000 


015,255,000 
012,000, 192 
012,000,192 
012,000,192 
012,000,192 
012,001,128 
000,000,000 


003,255,192 
003,000, 000 
003,006, 000 
003,000,000 
003,000, 000 
003,001,192 
000,000,000 


003,001,128 
003,012,000 
003,096,000 
003,096,000 
003,012,000 
003,001,000 
000,000,000 


001,255,000 
003,000, 192 
003,001,128 
003,096,000 
003,012,000 
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1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 


DATA 003,006,000, 003,003,000, 


DATA 
REM 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


003 


T: 
000 
012 
000 
000 
000 
000 
000 


000 
000 
000 
000 
000 
000 
000 


‚000,192, 000,000,000, 


REM BUCHSTABE T 
‚000,000, 000,000,000, 
‚048,192, 000,048,000, 
‚048,000, 000,048,000, 
‚048,000, 000,048,000, 
‚048,000, 000,048,000, 
‚048,000, 000,048,000, 
‚048,000, 000,000,000, 


: REM BINDESTRICH 
‚000,000, 000,000,000, 
‚000,000, 000,000,000, 
‚000,000, 000,000,000, 
‚000,000, 003,255,192, 
‚000,000, 000,000,000, 
‚000,000, 000,000, 000, 
‚000,000, 000,000,000, 


003,001,000 
000,000,000 


015,255, 192 
000,048,000 
000,048,000 
000, 048,000 
000,048,000 
000,048, 000 
000,000, 000 


000,000, 000 
000,000,000 
000,000,000 
000,000, 000 
000,000,000 
000,000, 000 
000,000,000 


Nun das gleiche Programm im originalen BASIC (die DATA-Zeilen 
sind hierbei identisch und wurden aus Platzersparnis weggelassen): 


100 
110 
120 
130 
140 
150 
160 
170 
175 
180 
190 
200 
210 
220 


230 BK=ASC(A$)-32+128 


REM rk 
REM ** 
REM ** L 


REM ** 
REM Hr 


REM 


V = 53248 : REM BASISADRESSE VIDEOCONTROLLER 


ur 


AUFSCHRIFTEN ** 
“r 


POKE V+32,0 : POKE V+33,0 : REM RAHMEN UND HINTERGRUND = SCHWARZ 
PRINT CHR$(147) 


REM 


REM **** EINSPEICHERUNG **** 


REM 


Wr 


FOR X=1 TO 9 : REM 9 BUCHSTABEN 


READ A$ : 


(BLOCKNUMMER ) 


240 AD=BK*64 : 


REM NAME DES BUCHSTABEN 


REM ADRESSEN AB 8192 


250 FOR Y=AD TO AD+62 
260 READ DA : 


300 


REM 


REM SPRITES NACH ASCII 


GEORDNET 


POKE Y,DA : REM DATEN LESEN UND SCHREIBEN 
270 NEXT Y,X : REM 63 DATEN/8 BUCHSTABEN LESEN 


IM SPEICHER 
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310 REM **** INITIALISIERUNG **** 

320 REM ja 

330 FOR X=0 TO 7 

340 POKE V+39+X,X+1 : REM FARBEN SPRITES 0-7 FESTLEGEN 
350 NEXT X 

360 POKE V+23,255 : REM ALLE SPRITES GROSS (Y) 

370 POKE V+29,255 : REM ALLE SPRITES GROSS (X) 

380 POKE V+27,0 : REM PRIORITAET 

390 POKE V+28,0 : REM NORMAL - FARBEN 

400 SP=0 : REM START-SPRITENUMMER 

410 ZA=8 : REM ANZAHL DER BUCHSTABEN AUF DEM BILD (GLEICHZEITIG / 
MAX.:8) 

420 AB=330/ZA : REM ABSTAND ZWEIER SPRITES 

430 GE = 20 : REM GESCHWINDIGKEIT 


500 REM 

510 REM **** LAUFSCHRIFT **** 

520 REM a 2121275, 

530 TE$="DATA-BECKER---" : REM LAUFTEXT 


540 FOR LA=1 TO 10 : REM 10 DURCHLAEUFE 

550 FOR BU=1 TO LEN(TE$) 

560 BU$=MID$CTE$,BU,1) : REM LAUFENDER BUCHSTABE 

570 BK =ASC(BU$)-32 + 128 : REM BLOCKNUMMER DES BUCHSTABEN 

580 POKE 2040+SP,BK : REM SPRITE AUF ENTSPRECHENDEN BLOCK SETZEN 
590 POKE V+SP*2,95 : REM SPRITE-X-KOORD.-LOW-BYTE 

600 POKE V+SP*2+1,100 : REM SPRITE-Y-KOORD. 

610 POKE V+16,PEEK(V+16) OR 2”SP : REM SPRITE-X-KOORD.-HIGH-BIT 
620 POKE V+21,PEEK(V+21) OR 2”SP : REM SPRITE EINSCHALTEN 

630 SP=SP+1 : REM NAECHSTE SPRITENUMMER 

635 IF SP=ZA THEN SP=0 

640 FOR K=1 TO AB STEP GE : REM AB SCHRITTE *** BEWEGEN *** 
650 FOR S=0 TO ZA-1 : REM ZA SPRITES BEWEGEN 

660 AD=V+S*2:XL=PEEK(AD)-GE:XH=PEEK(V+16)AND2“S:REM X-KOORDINATE DES 
SPRITES 

670 IF XL<0O THEN XL=256+XL:POKE V+16,PEEK(V+16) AND 255- 
2"S:IFXH=OTHENXL=O 

680 POKE AD,XL 

685 GOSUB 800 

690 NEXT S,K 

700 NEXT BU : REM NAECHSTEN BUCHSTABEN 

710 NEXT LA : REM NAECHSTEN DURCHLAUF 

800 POKE V+21,PEEK(V+21) AND 255-2“SP:RETURN : REM SPRITE AUS 
1000 REM 

1010 REM **** SPRITE-DATA **** 

1020 REM Ka 

1090 REM 
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Dieses Programm kann Ihnen nur die Grundzüge der Lauf- 
schrifttechnik vermitteln. Es liegt an Ihnen, die entsprechenden An- 
wenderprogramme zu schreiben. Richtig schnell und ansehnlich wird 
das Ganze natürlich erst in Maschinensprache. Aber ich hoffe, Sie 
haben auch so Ihren Spaß daran. Wenn Sie sich das Programm durch- 
schauen, so sollte Ihnen das Verständnis der Abläufe durch die vielen 
REM-Zeilen gut verständlich sein. Wie gesagt können Sie sich einen 
ganzen Zeichensatz zusammenstellen und scliließlich beliebige Texte 
ausgeben. Viel Spaß! 


3.3 Das Geheimnis der Spiele 


Inzwischen gibt es wohl bereits annähernd tausend gute bis weniger 
gute Spiele für den Commodore 64, die in Computer-Shops zu kaufen 
sind. Wir lassen uns von ihrer Graphik, ihren Soundkaskaden berau- 
schen und klopfen uns befriedigt auf die Schulter: "Hab’ ich mir doch 
einen guten Rechner gekauft, was der alles kann!". In der Tat zeigen 
von allen Programmen ganz besonders die Spiele, welche Qualitäten 
ein Gerät besitzt, da diese meist bis an die Grenzen des Machbaren 
stoßen. Beim 64er sind diese Grenzen ziemlich hoch angesetzt und 
sogar die besten Spieleprogrammierer haben Probleme alle Möglich- 
keiten voll auszunutzen. Doch was nutzt einem ein guter Computer, 
mit dem alles möglich ist, wenn man selbst nicht weiß, wie es geht? 
Und ewig nur zuzuschauen, was andere programmiert haben, macht 
einen auch nicht satt. 


In diesem Buch haben Sie bereits vieles erfahren, das Ihnen helfen 
wird, Ihren Computer bezüglich Graphik, Sprites und allgemein der 
Bildschirmausgabe optimal zu nutzen. Natürlich konnte nicht annä- 
hernd alles, was der 64er bietet und im Kapitel 4 (Hardwaregrundla- 
gen) steht, auch zur Anwendung gebracht werden. Das ist auch gut so. 
Auf diese Weise bleibt noch genügend Freiraum für Ihren Forscher- 
drang. 


Die meisten Spiele sind in Maschinensprache geschrieben, da das 
originale BASIC einfach zu langsam ist. Es wurden Ihnen bereits 
einige Utilities in Assembler angeboten, die quasi als kleine Er- 
weiterung des BASIC-Befehlssatzes für die Aufbesserung der Ge- 
schwindigkeiten Ihrer Programme zur Verfügung stehen (z.B. das Gra- 
phik-Paket). Hier nun sollen Ihnen einige Techniken und Erweiterun- 
gen speziell für Spiele vermittelt werden (sie sind selbstverständlich 
auch für andere Anwendungen recht nützlich). So sind Sie in der 
Lage, auch in BASIC (erst recht in Maschinensprache) schnelle und 
anspruchsvolle Spiele zu programmieren. 
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3.3.1 Animation 


Unter Animation versteht man die Erzeugung bewegter Bilder auf 
dem Bildschirm. Natürlich "leben" die Spiele von der Animation, 
sofern nicht etwa Denkspiele wie Schach, Memorie etc. gemeint sind. 
Ohne Bewegung auf dem Bildschirm "läuft" nichts. Oft werden Spiele 
nur aufgrund der Qualität dieser Bewegung in die Reihe der 
Actionspiele oder "sonstige" Spiele eingereiht. Wir wollen uns deshalb 
zunächst mit diesem wichtigen Thema beschäftigen. 


Man unterscheidet beim Commodore 64 fünf Arten von Animation: 


- Spriteinterne Bewegung 

- Spriteverschiebung 

- Zeicheninterne Bewegung 
- Zeichenverschiebung 

- Graphische Animation 


Unter ’intern’ verstehen wir hier das Bewegen des jeweiligen Objektes 
selbst, ohne daß es seine Position auf dem Bildschirm verändert. 


Die ersten beiden Formen haben wir bereits in den zwei Beispielen 
zur Spriteprogrammierung im Abschnitt 5.3.2 ausführlich dargelegt 
und erläutert. Sie sollten sich diesen Paragraphen sowieso durchgelesen 
haben, da die Spriteprogrammierung ein, wenn nicht gar das wichtig- 
ste, Fundament der Spiele darstellt. 


Auch den letzten Punkt wollen wir hier nicht abhandeln, da er sich 
aus den verschiedenen Graphikkapiteln ableitet und aus Geschwindig- 
keitsgründen nur selten oder gar nicht bei Spielen Verwendung findet. 


Äußerst beliebt sind dagegen die beiden restlichen Punkte. Meist 
werden sie in Verbindung mit einer Zeichensatzänderung verwendet. 
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a) Zeicheninterne Bewegung: 


Das Prinzip der zeicheninternen Bewegung ist das gleiche, wie bei der 
Bewegung der Sprites. Eine aus einem oder mehreren Zeichen zusam- 
mengesetzte Figur wird durch den stetigen Wechsel von Zuständen 
bestimmter Teile des Objektes so verändert, daß daraus eine Bewe- 
gung entsteht. Im Klartext bedeutet das folgendes: 


Angenommen wir wollen ein Männchen so steuern, daß es stets beide 
Arme und Beine auf und nieder bewegt. Wir setzen dieses Männchen 
dann aus mehreren Teilen zusammen, damit es nicht zu klein wird. 
Um nun die gewünschte Bewegung zu programmieren, legen wir uns 
jedoch zwei oder mehr Männchen bereit, die jeweils andere Phasen 
der Bewegung festhalten. Diese verschiedenen Figuren lassen wir dann 
in einem uns genehmen Takt abwechselnd an der gleichen Stelle auf 
dem Bildschirm erscheinen, und schon haben wir den gewünschten 
Effekt. 


Besonders effektiv wird das Ganze natürlich mit einem veränderten 
Zeichensatz oder ein paar veränderten Zeichen. Wie dies auf einfache 
Weise gemacht wird, zeigt Ihnen Abschnitt 5.4. Besonders hier zeigen 
Multicolorzeichen ihren Sinn. Ihr Objekt wird recht schön farbig. Sie 
sehen, beim Thema Spiele fließt alles Wissen und Können des Pro- 
grammierers zusammen. 


Das folgende Beispiel soll Ihnen den Nutzen auch des originalen Zei- 
chensatzes für dieses Thema darlegen: 


100 REM Ad 2 2 2 2 2 2 a a 2 2 2 a 2 2 zz 


110 REM ** “r 
120 REM ** ANIMATION-1 ** 
130 REM ** “r 
140 REM "reisen 
150 REM 

160 Ascoy=ı " +CHRSC119) 


170 ASCIISCHREC IN)+CHRSCIZZ)I+CHREC 99) 

180 ASC2)=CHRECI67)+CHRECI83Z)+CHRSC165) 

190 A$C3)=" " +CHR$(113) 

200 A$C4)=CHR$(173)+CHREC123)+CHRSC189) 

210 ASC5)=CHRSCIE3Z)+CHRECIBZ)+CHRECIEZ) 

300 PRINT CHR$C147) : REM BILDSCHIRM LOESCHEN 
310 X=18 : REM SPALTENPOSITION 

320 FOR ZA=0 TO 5 STEP 3 

330 Y=12 : GOSUB 1000 : REM POSITIONIEREN 
340 PRINT A$(CZA):GOSUB 1010 : REM KOPF 

350 PRINT A$(ZA+1):GOSUB 1010 : REM RUMPF/ARME 


280 Das Supergraphikbuch zum C64 


360 PRINT A$(ZA+2) : REM BEINE 

370 FOR S=1 TO 100 : NEXT S : REM WARTESCHLEIFE 
380 NEXT ZA 

390 GOTO 320 : REM MIT <RUN/STOP> UNTERBRECHEN 
400 REM 


410 REM **** POSITIONIEREN **** 
420 REM er 22 


1000 PRINT CHR$C19);:IF Y>O THEN FOR T=1 TO Y:PRINT:NEXT T 
1010 PRINT TAB(X);: RETURNzIn] 


Die beiden letzten Zeilen lassen sich sehr einfach durch den Su- 
pergraphik-Befehl POS= ersetzen. Damit Sie aber nicht nur für diesen 
einen Befehl die Supergraphik laden müssen, haben wir ihn hier er- 
setzt. 


In diesem Programm werden zu Anfang (Zeilen 160-210) die Teile für 
die zwei Phasen der Bewegung des Männchens definiert. Insgesamt 
bauen wir es aus 7 Zeichen auf, die in 3 untereinander liegenden 
Reihen stehen sollen. Jede der drei Reihen wird in einen separaten 
Array-Speicher (A$(...)) abgelegt (Nr. 0-2 für die erste Phase und Nr. 
3-5 für die zweite). Alsdann werden die Startkoordinaten des Männ- 
chens festgelegt und positioniert (Z. 330). Der Rest ist relativ einfach 
zu durchschauen: Die drei Reihen werden gezeichnet (1.Phase), wobei 
jeweils nur ein Teil der Positionierungsroutine aufgerufen wird. Im 
zweiten Durchlauf der FOR...NEXT-Schleife werden dann die Reihen 
der 2. Phase gezeichnet. Durch Veränderung der Länge der Warte- 
schleife in Zeile 370 kann die Geschwindigkeit der Bewegung gesteu- 
ert werden. Versuchen Sie doch einmal, dieses Männchen durch eigene 
Zeichendefinitionen darzustellen (s. Kap. 5.4). Dann ist es Ihnen 
gleichfalls möglich, mehr als zwei Bewegungsphasen nacheinander ab- 
laufen zu lassen, was die Effektivität natürlich um einiges steigert. 


b) Zeichenverschiebung: 


Wie bei den Sprites können wir auch unser Männchen über den Bild- 
schirm bewegen. Dies geschieht auf ähnliche Weise, wie in Kapitel 5.3 
angegeben. Wir zeichnen unser Männchen an einer bestimmten Posi- 
tion auf den Bildschirm. Nach einiger Zeit (Warteschleife) löschen wir 
es wieder und setzen es dafür ein klein wenig verschoben weiter nach 
rechts, links, oben oder unten usw. Aus dieser stetigen Verschiebung 
resultiert dann eine kontinuierliche Bewegung, wie wir sie von den 
Sprites her kennen. Das einzige Problem dabei ist die Auflösung der 
Bewegung. Normalerweise können wir unser Objekt immer nur um 
minimal ein Zeichen verschieben. Dieses Manko können wir allerdings 
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ein klein wenig dadurch ausgleichen, daß wir auch hier "Zwischen- 
phasen" programmieren (das Objekt steht praktisch "zwischen" zwei 
Zeichen). Das geht natürlich nur unter Veränderung des Zeichensatzes. 


Doch beschäftigen wir uns lieber erst einmal mit den Grundlagen. Das 
folgende Programm vereinigt die Technik der internen Bewegung mit 
der Zeichenverschiebung und vermittelt ein schon recht hübsches Bild. 
Wenn wir dieses Männchen nun noch per Joystick steuern, bleibt 
(fast) kein Wunsch mehr offen. 


100 REM WR 


110 REM ** wir 

120 REM ** ANIMATION-2 ** 

130 REM ** Idol 

140 REM re 

150 REM 

160 A$(O)=" nun +CHRECI IN) +" 9 un 


170 ASC1Y=" "+CHREC Y9A)+CHRECIZZI+CHREC 99)+" " 
180 A$C2)=" "+CHRSCI6T)+CHRECIEZI+CHRECIESI+" " 
190 ASCZ)=" nn. u +CHRSCI13)+" " yı u 
200 A$(4)=" "+CHRSCITZI+CHRECI23)+CHRECIEIYY+H" 
210 A$C5)=" "+CHRECIEZI+CHRECISZI+CHRECIEZ)H" " 
300 PRINT CHR$C147) : REM BILDSCHIRM LOESCHEN 
305 SP=1:B=0:E=33 

310 FOR X=B TO E STEP SP : REM SPALTENPOSITION 
320 FOR ZA=0 TO 5 STEP 3 

330 Y=12 : GOSUB 1000 : REM POSITIONIEREN 

340 PRINT A$(CZA):GOSUB 1010 : REM KOPF 

350 PRINT A$(ZA+1):GOSUB 1010 : REM RUMPF/ARME 
360 PRINT A$(ZA+2) : REM BEINE 

370 FOR S=1 TO 60 : NEXT S : REM WARTESCHLEIFE 
380 X=X+SP 

390 NEXT ZA 

400 X=X-SP 

410 NEXT X 

420 SP=-SP : ZW=B : B=E : E=ZW : GOTO 310 : REM AUSTAUSCH (BEWEGUNGSR. 
AENDERN) 

500 REM 

510 REM **** POSITIONIEREN **** 

520 REM WR 

1000 PRINT CHR$(19);:IF Y>O THEN FOR T=1 TO Y:PRINT:NEXT T 
1010 PRINT TAB(X);: RETURN 
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Wir haben in diesem Programm um die bereits bekannte Bewe- 
gungsroutine eine weitere FOR..NEXT-Schleife gepackt. Weiterhin 
mußten wir die Reihendefinitionen in den Zeilen 160-210 jeweils um 
ein Leerzeichen vorne und hinten erweitern, um ein Löschen der zu- 
letzt gezeichneten Figur sowohl beim Hin-, als auch beim Zurückge- 
hen zu gewährleisten. Vielleicht versuchen Sie einmal hinter die Be- 
deutung der Speicher SP, B, E (und ZW) zu kommen. Sie dienen zur 
Bereitstellung der notwendigen Parameter für Rechts- und Linkslauf. 


Damit haben wir Ihnen einige Tips gegeben, wie Sie neben den Sprites 
noch einige einfache Bewegungen mehr in Ihr Spiel bekommen. 
Kommen wir daher gleich zum nächsten Thema. 


3.3.2 Scrolling 


Wer hat nicht schon einmal ’Defender’ oder ähnliche Actionspiele ge- 
sehen oder gar mit ihnen gespielt, in denen Sie Führer eines Raum- 
schiffes sind, das mit einer Höllengeschwindigkeit durch den Welt- 
raum fliegt. Oder Sie fahren mit einem Rennwagen unter Aufbringung 
aller Konzentration auf einer Piste, verfolgt von anderen Rivalen, die 
Sie abdrängen. 


Doch wenn Sie genauer hinschauen, sind es nicht das Flugzeug oder 
das Auto, die sich vorwärts bewegen, sondern vielmehr der Hinter- 
grund. D.h. der gesamte Bildschirm (oder Teile) wird nach rechts, 
links, oben oder unten verschoben, während das jeweilige zu 
steuernde Objekt (ein Sprite) meist nur beschränkt bewegt werden 
kann. Nun ist ein solches Verschieben, Rollen oder Scrolling des 
Bildschirms eine sehr zeitaufwendige Sache und kann daher nur in 
Maschinensprache durchgeführt werden. Dabei verwendet man nicht 
etwa Graphik (hier müßten für einmal verschieben 8 K bewegt 
werden) sondern den Textmodus, was bei Spielen fast das Gleiche ist, 
da wir ja den Zeichensatz beliebig verändern können und so quasi 
hochauflösende Bilder erhalten. Bekanntlich müssen hier nur etwa IK 
Bytes bewegt werden, was die Arbeit gewaltig verringert. Im folgen- 
den werden Ihnen entsprechende Assemblerroutinen angegeben, die 
Sie genauso wie die Befehle des Graphik-Paketes per SYS aufrufen 
können: 
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10: ccoO *= $CC00 

20: s 

30: ZURWIRKTTTTUTRRRNR 

40: ze “r 

50: s=® SCROLLING ** 

60: zit vr 

70: EWUIRERERTERIRNERE 

80: ; 

110: CCOO CHKGET = $B7Fi 

120: CCOO 0B = 2038 

130: CCOO UN = 2039 

140: CCOO FLAG = $FD 

150: ccoO ZAHL = S$FE 

160: CCOO ADRESS = $61 

200: CCOO 20 F1 B7 START JSR CHKGET ;KOMMA + BYTE HOLEN 
210: CCO3 8A TXA ;RECHTS/LINKS- FLAG 
220: CCO4 4A LSR A 

230: CC05 08 PHP 

280: CCO6 20 FI B7 JSR CHKGET 

290: CCO9 EO 19 CPX #25 ;OBERE ZEILE 

300: CCOB 90 02° BCC S1 

310: CCOD A2 18 LDX #24 

320: CCOF 8E F6 07 S1 STX 0B 

330: Cc12 20 F1 B7 JSR CHKGET ;UNTERE ZEILE 

340: CC15 EO 19 CPX #25 

350: CC17 90 02 BCC S2 

360: CC19 A2 18 LDX #24 

370: CC1B 8E F7 07 s2 STX UN 

380: CCIE 8A TXA 

390: CCIF AE F6 07 LDX 08 

400: CCc22 AC F7 07 LDY UN 

410: CC25 38 SEC 

420: CC26 ED F6 07 SBC OB ;OBEN - UNTEN 

430: CC29 BO 08 BCS S3 

440: CC2B 49 FF EOR #SFF sOBEN<UNTEN=>TAUSCH 
450: CC2D AE F7 07 LDX UN 

460: CC30 AC F6 07 LDY OB 

470: CC33 85 FE s3 STA ZAHL ;ZAEHLER 

480: CC35 28 PLP 

490: CC36 08 PHP ;RE/LI-FLAG 

500: Cc37 90 03 BCC 54 

510: CC39 c8 INY ;RECHTS:ZEILE WEITER 
520: CC3A 98 TYA :UND UNTEN STARTEN 
530: CC3B AA TAX 


540: CC3C BD CB CC S4 LDA MULH,X ;HIGH BYTE ADRESSE 
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550: 
560: 
570: 
580: 
590: 
600: 
610: 
620: 
630: 
640: 
650: 


cc3F 
CC41 
CC44 
CC46 
Cc47 
CC48 
CCAA 
CCAC 
CC4E 
cc50 


cc52 


: CC54 


CC56 


: CC58 


cc59 
CC5A 


: CC5D 


CC5E 
cc5F 


: CC61 


CC63 
CC65 
Cc67 
CC69 
CC6B 
CC6D 
CC6F 


: Cc71 
: CC73 


cc75 


: Cc77 


cc79 
CC7B 
Cc7Cc 


: CC7D 


cc80 
cc82 
Cc84 
Cc85 


85 
BD 
85 
28 
08 
90 
E9 
85 
BO 
c6 


85 


E9 
85 
BO 
c6 
A5 


10 


62 
E5 
61 


08 
01 
61 
02 
62 


86 


CE 


cc 


cc 


cc 


‘ 
‘ 


STA 
LDA 
STA 
PLP 
PHP 
BCC 
SBC 
STA 
BCS 
DEC 
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ADRESS+ 
MULL,X ;LOW-BYTE 
ADRESS 


5RE/LI- FLAG 
MOVE 

# ;BEI RECHTS -1 
ADRESS 

MOVE 

ADRESS+ 


VERSCHIEBUNG 


5 wre 


MOVE 


M1 


M2 


LDA 
AND 
ORA 
PLP 
PHP 
JSR 
PLP 
PHP 
LDA 
BCC 
ADC 
STA 
BCC 
INC 
BCS 
SBC 
STA 
BCS 
DEC 
LDA 
AND 
ORA 
PLP 
PHP 
JSR 
DEC 
BPL 
PLP 
RTS 


ADRESS+1 
#3 
# ;BASISADRESSE=$0400 


;FLAG 
MOVEI ;VIDEORAM VERSCHIEBEN 


;FLAG 
ADRESS 
Mi 
#39 ;c=1! / RECHTS 
ADRESS 
M2 
ADRESS+1 
M2 UNBEDINGT 
#39 ;Cc=0! / LINKS 
ADRESS 
M2 
ADRESS+1 
ADRESS+1 
#3 
#$D8B ;FARBRAM BEI $0800 


MOVE 1 ;FARBRAM VERSCHIEBEN 
ZAHL 
MOVE 
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980: :VERTEILER 

0: EERRUERRREN 

1000: , 

1010: CC86 85 62 MOVEI STA ADRESS+1 

1020: CC88 90 03 BCC LINKS 

1030: CC8A 4C AB CC JMP RECHTS 

1040: 5 

1050: ;LINKSVERSCHIEBUNG 

1060: SERRRRRRTEREURER UNE 

1070: : 

1080: CC8D AO 00 LINKS LDY #0 

1090: CC8F B1 61 LDA (ADRESS),Y 

1100: CC91 AA TAX ‚ERSTES BYTE MERKEN 
1140: CC92 AO 27 LDY #39 

1150: CC94 B1 61 L2 LDA (ADRESS),Y 

1160: CC96 48 PHA ;MERKER 1 
1170: CC97 8A TXA ;HOLE MERKER 2 
1180: CC98 91 61 STA (ADRESS),Y 

1190: CCYA 68 PLA ;HOLE MERKER 1 
1200: CC9B AA TAX ;IN MERKER 2 
1210: CCIC 88 DEY 

1220: CC9D 10 F5 BPL L2 

1230: CCIF 18 CLC 

1240: CCAO A5 61 LDA ADRESS 

1250: CCA2 69 28 ADC #40 ;NAECHSTE ZEILE 
1260: CCA4 85 61 STA ADRESS 

1270: CCA6 90 02 BCC L3 

1280: CCAB E6 62 INC ADRESS+1 

1290: CCAA 60 L3 RTS 

1300: # 

1310: ;RECHTSVERSCHIEBUNG 

1320: RRERERTERURETERENEN 

1330: ; 

1340: CCAB 38 RECHTS SEC 

1350: CCAC A5 61 LDA ADRESS 

1360: CCAE E9 28 SBC #40 

1370: CCBO 85 61 STA ADRESS ;40 ABZIEHEN 
1380: CCB2 BO 02 BCS R1 

1390: CCB4 C6 62 DEC ADRESS+1 

1400: CCB6 AO 28 R1 LDY #40 

1410: CCB8 Bi 61 LDA (CADRESS),Y ;LINKES BYTE HOLEN 
1420: CCBA AA TAX 


1460: CCBB AO 01 LDY #1 
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1470: CCBD BI 61 R3 LDA (ADRESS),Y 


1480: CCBF 48 PHA ;MERKER 1 

1490: CCCO 8A TXA ;MERKER 2 HOLEN 
1500: Ccc1 91 61 STA (ADRESS),Y 

1510: CCC3 68 PLA ;MERKER 1 

1520: CCC4 AA TAX ;IN MERKER 2 

1530: CCC5 C8 INY 

1540: CCC6 CO 29 CPY #41 

1550: CCC8 DO F3 BNE R3 

1560: CCCA 60 RTS 

1570: CCCB 04 04 04 MULH .BYT 4,4,4,4,4,4,4,5,5,5,5,5,5 
1580: CCD8 06 06 06 .BYT 6,6,6,6,6,6,6,7,7,7,7,7,7 
1590: CCES 00 28 50 MULL .BYT $00,$28,$50,$78,$A0,$C8,$FO 
1600: CCEC 18 40 68 .BYT $18,$40,$68,$90,$88,$E0 
1610: CCF2 08 30 58 .BYT $08,$30,$58,$580,$A8,$D0,$F8 
1620: CCF9 20 48 70 .BYT $20,$48,$70,$598,$C0,$E8 


Auch hier wird Ihnen natürlich wieder ein entsprechender BASIC- 
Lader angeboten: 


100 FOR I = 52224 TO 52480 

110 READ X : POKE 1,X : S=St+X : NEXT 

120 DATA 32,241,183,138, 74, 8, 32,241,183,224, 25,144 
130 DATA 2,162, 24,142,246, 7, 32,241,183,224, 25,144 
140 DATA 2,162, 24,142,247, 7,138,174,246, 7,172,247 
150 DATA 7, 56,237,246, 7,176, 8, 73,255,174,247, 7 
160 DATA 172,246, 7,133,254, 40, 8,144, 3,200,152,170 
170 DATA 189,203,204,133, 98,189,229,204,133, 97, 40, 8 
180 DATA 144, 8,233, 1,133, 97,176, 2,198, 98,165, 98 
190 DATA 41, 3, 9, 4, 40, 8, 32,134,204, 40, 8,165 
200 DATA 97,144, 10,105, 39,133, 97,144, 12,230, 98,176 
210 DATA 8,233, 39,133, 97,176, 2,198, 98,165, 98, 41 
220 DATA 3, 9,216, 40, 8, 32,134,204,198,254, 16,206 
230 DATA 40, 96,133, 98,144, 3, 76,171,204,160, 0,177 
240 DATA 97,170,160, 39,177, 97, 72,138,145, 97,104,170 
250 DATA 136, 16,245, 24,165, 97,105, 40,133, 97,144, 2 
260 DATA 230, 98, 96, 56,165, 97,233, 40,133, 97,176, 2 
270 DATA 198, 98,160, 40,177, 97,170,160, 1,177, 97, 72 
280 DATA 138,145, 97,104,170,200,192, 41,208,243, 96, 4 
290 DATA 4, 4, 4,4, 44,5, 5, 5,95, 95,5 
300 DATA 6, 6, 6, 6, 6, 6,6 7, 7,777 
310 DATA 7, 0, 40, 80,120,160,200,240, 24, 64,104, 144 
320 DATA 184,224, 8, 48, 88,128,168,208,248, 32, 72,112 
330 DATA 152,192,232, 0, 0 

340 IF S <> 27098 THEN PRINT "FEHLER IN DATAS !!" : END 
350 PRINT "OK" 
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Dieses Programm harmonisiert mit dem Graphik-Paket aus Kapitel 5, 
d.h. beide Maschinenprogramme können sich gleichzeitig im Speicher 
befinden und auch verwendet werden. Der Aufruf erfolgt, wie gesagt, 
ebenfalls über SYS und zwar in der wie folgt angegebenen Art und 
Weise: 


sYs 52224 ,r,a,e 
Dabei bedeuten: 


E Richtung des Scrollens (O=links/l=rechts) 
a! Anfangszeile und 
e: Endzeile zwischen denen gescrollt wird 


Die Anwendung dieser BASIC-Erweiterung sollten Sie dem folgenden 
kleinen Demonstrationsprogramm entnehmen: 


100 REM Hr 

110 REM ** wi 

120 REM ** SCROLLING ** 

130 REM ** wi 

140 REM Hrn 

150 REM 

200 SR = 52224 : REM SCROLL-ADRESSE 

210 PRINT CHR$C147) : REM BILDSCHIRM LOESCHEN 

220 PRINT:PRINT" DER SCROLL-BEFEHL ERMOEGLICHT IHNEN," 


230 PRINT" JEDE BELIEBIGE BILDSCHIRMZEILE" 
240 PRINT" UND BEI BEDARF AUCH MEHRERE GLEICH-" 
250 PRINT" ZEITIG ZU VERSCHIEBEN." 

260 PRINT" SEHEN SIE?" 


270 FOR X=1 TO 5000 : NEXT X 

280 FOR X=1 TO 40 

290 FOR Y=1 TO 50 : NEXT Y 

300 SYS SR,1,6,6 

310 NEXT X 

320 PRINT:PRINT "DAS GANZE GEHT NATUERLICH AUCH SCHNELLER" 
330 FOR X=1 TO 4000 : NEXT X 

340 FOR X=1 TO 200 : SYS SR,1,8,8 : NEXT X 

350 PRINT" UND ANDERS HERUM!" 

360 FOR X=1 TO 4000 : NEXT X 

370 FOR X=1 TO 400 : SYS SR,0,10,10 : NEXT X 

380 PRINT : PRINT" VIELLEICHT AUCH DER GANZE BILDSCHIRM" 
390 FOR X=1 TO 4000 : NEXT X 

400 FOR X=1 TO 200 : SYS SR,0,0,24 : NEXT X 

410 PRINT:PRINT" WOLLEN SIE EINMAL" 
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420 PRINT" LAUFSCHRIFTEN ERSTELLEN?" 
430 FOR X=1 TO 4000 : NEXT X 
440 PRINT:PRINT" ---- DATA BECKER ----" 


450 FOR X=1 TO 400:SYS SR,0,17,17:FOR Y=X TO 150: NEXT Y,X 


Wenn Sie mit unserer Supergraphik arbeiten, wird Ihnen dieser Befehl 
in erweiterter Form bereits durch GMOVE angeboten. 


Wir haben Ihnen nun die wichtigsten Grundlagen für die Pro- 
grammierung der Spiele vermittelt. Nun ist es an Ihnen, diese in die 
Tat umzusetzen. Die Phantasie können wir Ihnen nicht abnehmen. 
Und wenn Sie einmal ein kleines Spiel fertig haben, dann laden Sie 
mich doch einmal ein. 


3.4 GEM 64 alias GEOS - Bildschirmfenster mit Supergraphik 


Zusammen mit dem Commodore 64 wird seit neuestem das Bild- 
schirmfenster-orientierte GEOS ausgeliefert. Es simuliert das bekannte 
GEM vom Atari ST oder anderen Rechnern auf dem kleinen 6der. 
Daß das auch mit der Supergraphik und sogar in BASIC funktioniert 
und auch gar nicht so unheimlich schwer ist, soll ihnen das unten 
stehende Programm zeigen. Dort wurde ein kleines GEM-ähnliches 
"Betriebssystem" entworfen, das schon recht nett ist und sich sehen 
lassen kann. Es wurde absichtlich so entwickelt, daß auch Sie sehr 
leicht Änderungen und Erweiterungen vornehmen können. Doch 
schauen Sie einmal selbst: 


DATEI 





— 1 me#e 
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100 REM ee 

110 REM ** “r 

120 REM ** BILDSCHIRMFENSTER ** 

130 REM ** “r 

140 REM ee 

150 REM 

160 GMODE 0,1 : GCLEAR : SCOL= 0,0 : SCOL= 1,7 
165 GMODE 1,1 : GCLEAR : SCOL= 0,0 : SCOoL= 1,7 
170 MH=9 : MZ= 3 :REM MENUEFARBEN 

180 KH=2 : KZ= 7 :REM FENSTERFARBEN 

190 GMODE O 

200 GosuB 1050 :REM INIT/MENUELEISTE 

210 REM 

220 GOSUB 1650 :REM PFEIL STELLEN 

230 IF KN=0 THEN 220 :REM KEIN KNOPF GEDRUECKT 
240 REM 

250 REM KNOPF GEDRUECKT: 

260 REM 

270 IF YP>7 THEN 220 :REM NICHT AUF MENUELEISTE 
280 REM FESTSTELLEN DES MENUEPUNKTES: 

290 FOR MP=0 TO AM 

300 IF XP<LICMP) OR XP>L2CMP) THEN NEXT MP : GOTO 220 :REM NICHT 
GEFUNDEN 

310 REM 

320 REM MENUEPUNKT ANGEWAEHLT: 

330 REM 

340 GOSUB 2300 :REM FENSTER OEFFNEN 

350 GOSUB 1650 :REM PFEIL STELLEN 

360 IF KN=0 THEN 350 :REM KEIN KNOPF GEDRUECKT 
370 FOR UM=0 TO MZ(MP) 

380 IF XP<X1CMP) OR YP<YicMP)+UM*8+ 5 THEN NEXT UM : GOSUB 2550 : GOTO 
220 

390 IF XP>X2(MP) OR YP>Yi(cMP)+UM*8+13 THEN NEXT UM : GOSUB 2550 : GOTO 
220 

400 REM 

410 REM UNTERMENUEPUNKT ANGEWAEHLT: 

420 REM 

430 GOSUB 2550 :REM MENUEFENSTER SCHLIESSEN 
440 REM 

450 REM UNTERMENUEPUNKT AUSFUEHREN: 

460 REM 

470 ON US(CMP,UM) GOSUB 5080,5250,5650,5850,6050 
480 IF US(MP ‚UM)>5 THEN ON US(MP ‚UM)-5 GOSUB 


6250,6450,6650,6950,7150,7350, 7750 


490 
500 


IF USCMP,UM)>12 THEN ON US(CMP,UM)-12 GOSUB 8050,8450,8250 
GOTO 220 


1000 REM 
1010 REM 


290 


1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1600 
1610 
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REM MENUELEISTE AUFBAUEN/INIT: 


REM a2 2 202 202 2 202 20202 202 2 202 2 202 20270270273 

REM 

RESTORE :REM DATA-START 

READ AM :REM ANZAHL MENUEPUNKTE 
AM=AM-1 

DIM LICAM),L2CAM),MPS$CAM) ‚MZCAM) 


DIM X1CAM),Y1CAM) ‚X2CAM),Y2CAM) 

DIM UPSCAM, 10) ,USCAM, 10) 

REM 

REM MENUEPUNKT-SCHLEIFE: 

REM (DATAS EINLESEN) 

FOR MP=0 TO AM 

READ LICMP),L2CMP) :REM MENUEPUNKTPOSITION 
READ MP$(MP) :REM MENUEPUNKT 

READ MZ(MP) :REM ANZAHL UNTERMENUES 
MZCMP)=MZCMP)-1 

READ X1CMP),Y1CMP),X2CMP),Y2(MP) :REM KOORD. 
REM 

REM UNTERMENUEPUNKT-SCHLEIFE: 

REM 

FOR UP=0 TO MZ(MP) 

READ UP$(MP,UP) :REM UNTERMENUEPUNKTE 
READ US(MP,UP) :REM SPRUNGADRESSEN 

NEXT UP 

NEXT MP 

REM 

REM MENUELEISTE ZEICHNEN: 

REM 

PCOL= 0,MH : PCOL= 1,MZ 

GCLEAR ‚0,0 TO 319,7 :REM STREIFEN 
FOR MP=0 TO AM 

TEXT 2,MP$(CMP),L1CMP),7,0 :REM SCHREIBEN 
NEXT MP 

REM 

REM WEITERE INITIALISIERUNG: 

REM 

XP=160 : YP=100 :REM PFEILPOSITION 

G=1 
PF$=".2.2.2.2.10.0.0.0.1.1.1.23.3.2.12.12.1" :REM PFEILDEFINTION 
SCALE= 0,0 

GOSUB 2080 

RETURN 

REM 

REM 
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1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1840 
1850 
1860 
1870 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2300 
2310 
2320 
2330 
2340 


REM PFEILSTEUERUNG: 

REM Hk 

REM 

KN=0 :REM KNOPFFLAG LOESCHEN 
GET T$ : T=ASC(T$+CHR$CO)) :REM TASTE HOLEN 
IF# B 2 THEN KN=1 :REM KNOPF 

IF# U 2 THEN YP=YP-G :REM HOCH 

IF# D 2 THEN YP=YP+G :REM RUNTER 

IF# R 2 THEN XP=XP+G :REM RECHTS 

IF# L 2 THEN XP=XP-G :REM LINKS 

IF T=133 THEN KN=1 :REM KNOPF 

IF T=145 THEN YP=YP-G :REM HOCH 

IF T= 17 THEN YP=YP+G :REM RUNTER 

IF T= 29 THEN XP=XP+G :REM RECHTS 

IF T=157 THEN XP=XP-G :REM LINKS 

IF T= 20 THEN G=G+7 : IF G>8 THEN G=1 
IF XP< O0 THEN XP=XP+319 

IF YP< O0 THEN YP=YP+199 

IF XP>319 THEN XP=0 

IF YP>199 THEN YP=0 

IF X0=XP AND YO=YP THEN 1870 :REM KEINE VERAENDERUNG 
GOSUB 2080 :REM PFEIL LOESCHEN 
x0=XP : YO=YP :REM PFEILKOORDINATEN 
GOSUB 2080 :REM PFEIL SETZEN 
RETURN 

REM 

REM 

REM PFEIL SETZEN/LOESCHEN: 

REM 

REM 

REM UEBERGABE: 

REM X0,YO:KOORDINATEN 

REM 

DRAW 2,PF$ ON X0,YO :REM PFEIL SETZEN 
RETURN 

REM 

REM 


REM UNTERMENUEFENSTER ZEICHNEN: 
REM ER 


REM 

REM UEBERGABE: 

REM MP - MENUEPUNKT 
REM 

GOSUB 2080 :REM PFEIL LOESCHEN 


PCOL= 0,MH : PCOL= 1,MZ 

INVERS 255,L1CMP),O TO L2CMP),7 :REM INVERTIERE MENUEPUNKT 

GMODE 1 :REM ZIELSEITE 2 

GCOMB 3,X1(MP),YiCMP) TO X2(MP),Y2(MP) :REM INHALT DES FENSTERS 


RETTEN 
2350 GMODE 0 :REM WIEDER AUF 1 


2360 


GCLEAR ‚X1(MP),Y1CMP) TO X2(MP),Y2CMP) :REM FENSTER LOESCHEN 
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2370 
2380 
2390 
2400 
2410 
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FRAME 2,3,X1CMP),YICMP) TO X2(MP),Y2CMP) :REM RAHMEN 
REM 


REM 
FOR UM=0 TO MZCMP) 
TEXT  „UPSCMP,UM),X1CMP)+5,YICMP)+UM*8+13,0 :REM UNTERMENUEPUNKT 


AUSGEBEN 


2420 
2430 
2440 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2 

2590 
2600 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2775 
2780 
2790 
2800 
2810 
2820 
2825 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 


NEXT UM 

GOSUB 2080 :REM PFEIL SETZEN 

RETURN 

REM 

REM 

REM MENUEFENSTER SCHLIESSEN: 

REM a 0 0 2 2 2 2 a da a a a 2 a 2 2 2 2 2 a2 2a 

REM 

GOSUB 2080 :REM PFEIL LOESCHEN 

PCOL= 0,MH : PCOL= 1,MZ 

INVERS 255,L1CMP),O TO L2CMP),7 :REM NORMALISIERE MENUEPUNKT 
GCOMB 3,X1CMP),YICMP) TO X2CMP),Y2CMP) :REM ALTER INHALT AUS SEITE 


GOSUB 2080 :REM PFEIL SETZEN 
RETURN 

REM 

REM 


REM KOMMUNIKATIONSFENSTER: 
REM 


REM UEBERGABE : 

REM S1$-AUSGABESTRING 1 

REM S2$-AUSGABESTRING 2 

REM ZA -ZAHL DER EINGABEZEICHEN 
REM AUSGABE: BK$-EINGABEZEILE 

REM 


PCOL= 0,KH : PCOL= 1,KZ 

GOSUB 2080 :REM PFEIL LOESCHEN 

GMODE 1 :REM GRAPHIKSEITE 2 

GCOMB 3,80,80 TO 239,119 :REM FENSTER RETTEN 
GMODE O 


GCLEAR ‚80,80 TO 239,119 :REM FENSTER LOESCHEN 
FRAME 2,3,80,80 TO 239,119 :REM RAHMEN 

TEXT „S1$,90, 93,0 :REM TEXT 1 AUSGEBEN 
TEXT ‚S2$8,90,103,0 :REM TEXT 2 

REM 

z=-1 : BK$=" 

7=7+1 


GET T$ : IF T$="" THEN 2900 

IF ASCCT$)=13 THEN 2960 

IF Z=ZA THEN 2900 

TEXT ‚T$,90+8*Z,113,0 :REM ZEICHEN AUSGEBEN 
BKS=BKS+TS 

GOTO 2890 

REM 
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2970 REM FENSTER SCHLIESSEN: 

2980 REM 

2990 GCOMB 3,80,80 TO 239,119 :REM FENSTER WIEDERHOLEN 
3000 GOSUB 2080 :REM PFEIL SETZEN 

3010 RETURN 

5000 REM 


5010 REM a2 2 2 2 0 2 2 2 2 2 2 2 2 zz 


5020 REM BEFEHLSROUTINEN: 

5030 REM Hr 

5040 REM 

5050 REM PROGRAMM LADEN: 

5060 REM HH 

5070 REM 

5080 S1$="GEBEN SIE DEN" 

5090 S2$="PROGRAMMNAMEN AN:" 

5100 ZA =15 

5110 GOSUB 2790 :REM EINGABE HOLEN 
5120 IF BK$="" THEN 5140 

5130 REM LOAD BK$,8 :REM PROGRAMM LADEN UND STARTEN 
5140 RETURN 

5200 REM 

5210 REM 

5220 REM BILD EINLADEN: 

5230 REM Hrn 

5240 REM 

5250 S1$="GEBEN SIE DEN" 

5260 S2$="BILDNAMEN AN: '" 


5270 ZA=15 

5280 GOSUB 2790 :REM EINGABE HOLEN 

5285 IF BK$="" THEN 5450 

5290 GMODE 2 

5300 GLOAD GC,2,BK$,8 :REM EINLADEN (SEITE 2) 
5310 GMODE 0 

5320 GOSUB 2080 :REM PFEIL AUS 

5330 IF AF=0 THEN 5400 

5340 REM 

5350 REM AUSSCHNITT NACH 2: 

5360 REM 

5370 GMODE 1 :REM SEITE 2=ZIEL 

5380 GCOMB 3,XA,YA TO XB,YB :REM AUSSCHNITT NACH 2 
5390 GMODE 0 :REM SEITE 1 

5400 REM 

5410 REM NACH SEITE 1 COPIEREN: 

5420 REM 


5430 GCOMB 3,0,8 TO 319,199 
5440 GMODE 1 : GCLEAR : GMODE 0 
5450 GOSUB 2080 :REM PFEIL EIN 
5460 RETURN 

5600 REM 

5610 REM 
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5620 REM DATEI LOESCHEN: 

5630 REM a2 2 2 2 2 2 2 2 2 2 2 2 23 

5640 REM 

5650 SI$="GEBEN SIE DEN" 

5660 S2$="DATEINAMEN AN: " 

5670 ZA=15 

5680 GOSUB 2790 :REM EINGABE HOLEN 
5690 IF BK$="" THEN 5710 

5700 OPEN 1,8,15,"S0:"+BK$ 

5710 RETURN 

5800 REM 

5810 REM 

5820 REM DISKETTE FORMATIEREN: 
5830 REM ee 
5840 REM 

5850 SI$="DISKETTE LOESCHEN!" 

5860 S2$="DISKNAME, ID: "" 

5870 ZA=18 

5880 GOSUB 2790 :REM EINGABE HOLEN 
5890 IF BK$="" THEN 5910 

5900 OPEN 1,8,15,"NO:""+BK$ 

5910 RETURN 

6000 REM 

6010 REM 

6020 REM BILD SPEICHERN: 

6030 REM a2 2 2 2 2 2 2 2 2 2 2 2 22 

6040 REM 

6050 SI$="GEBEN SIE DEN" 

6060 S2$="BILDNAMEN AN: 

6070 ZA=15 

6080 GOSUB 2790 :REM EINGABE HOLEN 
6090 IF BK$="" THEN 6110 

6100 GSAVE GC,1,BK$,8 

6110 RETURN 

6200 REM 

6210 REM 

6220 REM BILD LOESCHEN: 

6230 REM 2 2 2 2 2 2 2 2 2 2 202 23 

6240 REM 

6250 S1$="MOECHTEN SIE" 

6260 S2$="LOESCHEN (J/N)?" 

6270 ZA=2 

6280 GOSUB 2790 :REM EINGABE HOLEN 
6290 IF BK$<>"JjN THEN GOTO 6390 
6300 GOSUB 2080 :REM PFEIL AUS 
6310 IF AF=0 THEN:GCLEAR ‚0,8 TO 319,199 : GOTO 6380 
6320 GMODE 1 :REM SEITE 2=ZIEL 
6330 GCOMB 3,XA,YA TO XB,YB :REM FENSTER RETTEN 
6340 GMODE 0 :REM SEITE 1 

6350 GCLEAR ‚0,8 TO 319,199 :REM LOESCHEN 
6360 GCOMB 3,XA,YA TO XB,YB :REM FENSTER ZURUECK 
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6370 REM 

6380 GOSUB 2080 :REM PFEIL SETZEN 

6390 RETURN 

6400 REM 

6410 REM 

6420 REM BILD INVERTIEREN: 

6430 REM a 2 2 2 2 2 2 2 2 2 2 2 22 2 22 

6440 REM 

6450 GOSUB 2080 :REM PFEIL AUS 

6460 IF AF=0 THEN:INVERS ‚0,8 TO 319,199 : GOTO 6530 
6470 GMODE 1 :REM SEITE 2=ZIEL 

6480 GCOMB 3,XA,YA TO XB,YB :REM FENSTER RETTEN 
6490 GMODE 0 :REM SEITE 1 

6500 INVERS „0,8 TO 319,199 :REM INVERTIEREN 
6510 GCOMB 3,XA,YA TO XB,YB :REM FENSTER ZURUECK 
6520 REM 

6530 GOSUB 2080 :REM PFEIL EIN 

6540 RETURN 

6600 REM 

6610 REM 

6620 REM AUSSCHNITT WAEHLEN: 

6630 REM 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 zz 

6640 REM 

6650 S1$="CURSOR AUF START" 

6660 S2$=" UND KNOPF!" 

6670 ZA=0 

6680 GOSUB 2790 :REM MELDUNG GEBEN 

6690 GOSUB 1650 :REM PFEIL STELLEN 

6700 IF KN=0 OR YP<8 THEN 6690 

6710 REM 

6720 XA=XP : YA=YP :REM KOORDINATEN UEBERNEHMEN 
6730 FRAME 2,1,XA,YA TO XP,YP :REM RAHMEN ZEICHNEN 
6740 FRAME 2,1,XA,YA TO XP,YP :REM RAHMEN LOESCHEN 
6750 GOSUB 1650 :REM PFEIL STELLEN 

6760 IF KN=0 OR YP<8 THEN 6730 

6770 XB=XP : YB=YP :REM KOORDINATEN UEBERNEHMEN 
6780 AF=1 :REM FLAG 

6790 RETURN 

6900 REM 

6910 REM 

6920 REM AUSSCHNITT LOESCHEN: 

6930 REM a 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 22 

6940 REM 

6950 IF AF=0 THEN 7040 

6960 S1$="MOECHTEN SIE" 

6970 S2$="LOESCHEN (J/N)?" 

6980 ZA=2 

6990 GOSUB 2790 :REM EINGABE HOLEN 

7000 IF BK$<>"J" THEN 7040 

7010 GOSUB 2080 :REM PFEIL AUS 

7020 GCLEAR ‚XA,YA TO XB,YB 
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7030 GOSUB 2080 :REM PFEIL EIN 

7040 RETURN 

7100 REM 

7110 REM 

7120 REM AUSSCHNITT INVERTIEREN: 
7130 REM aa 2 2 2 202 20202020202 202 2 272 2727020273 
7140 REM 

7150 IF AF=0 THEN 7200 

7160 GOSUB 2080 :REM PFEIL AUS 

7170 INVERS ‚XA,YA TO XB,YB 

7180 GoSUB 2080 :REM PFEIL EIN 

7190 RETURN 

7300 REM 

7310 REM 

7320 REM AUSSCHNITT VERSCHIEBEN: 
7330 REM Re 
7340 REM 

7350 IF AF=0 THEN 7620 

7360 FRAME 2,1,XP,YP TO XP+XB-XA,YP+YB-YA :REM RAHMEN ZEICHNEN 
7370 FRAME 2,1,XP,YP TO XP+XB-XA,YP+YB-YA :REM RAHMEN LOESCHEN 
7380 GOSUB 1650 :REM PFEIL STELLEN 
7390 IF KN=0 OR YP<8 THEN 7360 

7400 REM 

7410 REM VERSCHIEBEN: 

7420 REM 

7430 GOSUB 2080 :REM PFEIL AUS 

7440 GMODE 1 

7450 GCOMB 3,XA,YA TO XB,YB TO XP,YP 
7550 GMODE 0 

7560 GMODE 0 

7570 XB=XP+XB-XA : YB=YP+YB-YA :REM KOORDINATEN UEBERNEHMEN 
7580 XA=XP : YA=YP 

7590 GCOMB 3,XA,YA TO XB,YB :REM NACH SEITE 1 
7600 GoSUB 2080 :REM PFEIL EIN 

7610 REM 

7620 RETURN 

7700 REM 

7710 REM 

7720 REM AUSSCHNITT AUS: 

7730 REM Ark 

7740 REM 

7750 SI$="MOECHTEN SIE" 

7760 S2$="AUSSCHALTEN (J/N)?" 

7770 ZA=2 

7780 GOSUB 2790 :REM EINGABE HOLEN 
7790 IF BK$<>"J" THEN 7810 

7800 AF=0 :REM FLAG AUS 

7810 RETURN 
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8000 REM 

8010 REM 

8020 REM HINTERGRUNDFARBE: 

8030 REM a2 2 2 2 2 2 2 2 2 2 2 2 2 22 

8040 REM 

8050 S1$="GEBEN SIE DIE" 

8060 S2$="HINTERGRUNDF. AN: 

8070 ZA=2 

8080 GOSUB 2790 :REM EINGABE HOLEN 
8090 IF BK$="" THEN 8170 

8100 GOSUB 2080 :REM PFEIL AUS 
8110 GMODE 1 

8120 GCOMB 3,0,0 TO 319,7 :REM MENUELEISTE RETTEN 
8130 GMODE 0 

8140 SCOL= 0,VAL(BK$):H1=VAL(BK$) 
8150 GCOMB 3,0,0 TO 319,7 :REM MENUELEISTE HOLEN 
8160 GOSUB 2080 :REM PFEIL EIN 
8170 RETURN 

8200 REM 

8210 REM 

8220 REM ZEICHENFARBE: 

8230 REM a2 2 2 2 202 2 2 2 2 202 

8240 REM 

8250 S1$="GEBEN SIE DIE" 

8260 S2$="ZEICHENFARBE AN:" 

8270 ZA=2 

8280 GOSUB 2790 :REM EINGABE HOLEN 
8290 IF BK$="" THEN 8370 

8300 GOSUB 2080 :REM PFEIL AUS 
8310 GMODE 1 

8320 GCOMB 3,0,0 TO 319,7 :REM MENUELEISTE RETTEN 
8330 GMODE 0 

8340 SCOL= 1,VAL(BK$) 

8350 GCOMB 3,0,0 TO 319,7 :REM MENUELEISTE HOLEN 
8360 GOSUB 2080 :REM PFEIL EIN 
8370 RETURN 

8400 REM 

8410 REM 

8420 REM RAHMENFARBE: 

8430 REM ee 

8440 REM 

8450 S1$="GEBEN SIE DIE" 

8460 S2$="RAHMENFARBE AN:! 

8470 ZA=2 

8480 GOSUB 2790 :REM EINGABE HOLEN 
8490 IF BK$="" THEN 8570 

8500 GOSUB 2080 :REM PFEIL AUS 
8510 GMODE 1 

8520 GCOMB 3,0,0 TO 319,7 :REM MENUELEISTE RETTEN 
8530 GMODE 0 

8540 COLOR= VAL(BK$),H1 
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8550 GCOMB 3,0,0 TO 319,7 :REM MENUELEISTE HOLEN 
8560 GOSUB 2080 :REM PFEIL EIN 

8570 RETURN 

10000 REM 

10010 REM 

10020 REM DATEN FUER BILDSCHIRMFENSTER: 
10030 REM Rad 2 2 2 2 2 202 2 202 2 212 2 21202 2 202 2 20202 2.202 
10040 REM 

10050 REM MENUEZEILE: 

10060 REM 

10070 DATA 3 :REM ANZAHL MENUEPUNKTE 

10080 REM 

10090 DATA 16,56 :REM POSITION MENUEPUNKT 1 
10100 DATA DATEI :REM MENUEPUNKT 

10110 REM 

10120 DATA 5 :REM ZAHL DER UNTERMENUES 
10130 DATA 10, 8,132, 60 :REM BILDSCHIRMFENSTER 
10140 DATA PROGRAMM LADEN, 1 :REM UNTERMENUES/SPRUNGADRESSEN: 
10150 DATA BILD LADEN, 2 

10160 DATA DATEI LOESCHEN,3 

10170 DATA FORMATIEREN,4 

10180 DATA BILD SPEICHERN,5 

10190 REM 

10200 REM 

10210 DATA 80,160 

10220 DATA BEARBEITEN 

10230 REM 

10240 DATA 7 

10250 DATA 50, 8,236, 74 

10260 DATA BILD LOESCHEN,6 

10270 DATA BILD INVERTIEREN,7 

10280 DATA AUSSCHNITT WAEHLEN,8 

10290 DATA AUSSCHNITT LOESCHEN,9 

10300 DATA AUSSCHNITT INVERTIEREN, 10 

10310 DATA AUSSCHNITT VERSCHIEBEN, 11 

10320 DATA AUSSCHNITT AUS,12 

10330 REM b 

10340 REM 

10350 DATA 184,232 

10360 DATA FARBEN 

10370 REM 

10380 DATA 3 

10390 DATA 140, 8,246, 42 

10400 DATA HINTERGRUND, 13 

10410 DATA RAHMEN, 14 

10420 DATA ZEICHENFARBE, 15 
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Haben Sie keine Angst vor der Länge dieses Programmes, wir werden 
es Schritt für Schritt erläutern. 


Die eigentliche Hauptroutine füllt lediglich die Zeilen 160-500 aus, 
der Rest sind Unterprogramme und Tabellen. Was wird gemacht? 
Nachdem in den Zeilen 160/165 die beiden Graphikseiten gelöscht 
wurden, werden zunächst einige Initialisierungen vorgenommen. Diese 
Initialisierungen finden im Unterprogramm ab Zeile 1050 statt und 
betreffen die Datenübernahme aus den DATA-Zeilen ab Zeile 10000 
und die Ausgabe der oberen Menueleiste. 


Die obere Menueleiste enthält eine bestimmte Anzahl von Menue- 
punkten (hier 3), die durch das READ AM der Zeile 1070 eingelesen 
wird. Jeder dieser Menuepunkte soll später angewählt werden und eine 
Reihe von Untermenuepunkten freigeben, die ebenfalls bereits ab 
Zeile 10000 definiert sind. 


Dazu werden zunächst einmal eine ganze Menge Dimensionierungen 
vorgenommen (Zeilen 1080-1100). Die einzelnen Speicher haben fol- 
gende Funktion: 


LI() - Startposition des Menuepunktes 

L2() - Endposition des Menuepunktes 

MP$() - Name des Menuepunktes 

MZ() - Anzahl der Untermenuepunkte 

X10 - x-Koord. oben links des Pull-down-Menues 
Y1O - y-Koord. oben links des Pull-down-Menues 
X2() - x-Koord. unten rechts des Pull-down-Menues 
Y2() - y-Koord. unten rechts des Pull-down-Menues 
UP$(,) - Name des Untermenuepunktes 

US(,) _- Startadressennummer des Untermenuepunktes 


In den Zeilen 1140-1270 werden diese Daten aus den DATAs der 
Zeilen 10000 ff. ausgelesen. Dann kann mit einem Teil dieser Daten 
die Menueleiste in den Zeilen 1310-1350 gezeichnet werden. 


Die weiteren Initialisierungen betreffen die Pfeil-Start-Position, die 
Pfeildefinition für den DRAW-Befehl, die SCALE=-Definition des 
Pfeiles und das Einschalten desselben durch das Unterprogramm ab 
Zeile 2080. 
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In diesem Unterprogramm wird der Pfeil durch einen DRAW-Befehl 
invertiert gezeichnet, d.h. bei einem nochmaligen Aufruf dieser Rou- 
tine wird er wieder gelöscht. Dieser Vorgang wird uns noch durch das 
gesamte Programm begleiten. 


Doch kommen wir zurück zu unserem Hauptteil: Nun beginnt die 
eigentliche Hauptschleife des Programms (Z. 220). Hier wird zunächst 
einmal eine Routine (ab Z. 1650) aufgerufen, die auf die Cursortasten 
bzw. die Joystick-Steuerung anspricht, um einen kleinen Pfeil über 
den Bildschirm zu bewegen. Mit diesem Pfeil können Sie die einzelnen 
Menuepunkte anwählen etc. Wenn Sie den Feuerknopf Ihres Joysticks 
oder die fl-Taste betätigen, dann wird die Variable KN (für Knopf) 
auf 1 gesetzt. Dies ist ein Zeichen für die Übergeordnete Routine und 
wird ihr übergeben. Mit der Taste <inst/del> können Sie die Ge- 
schwindigkeit des Pfeiles erhöhen. 


Auf dieses KN wird dann auch in Zeile 230 getestet. Solange kein 
Knopf gedrückt ist, können Sie nur den Pfeil bewegen. 


Ist nun aber KN=1, dann wird die Position des Pfeiles überprüft. Um 
einen Menuepunkt anzuwählen, muß sich die Spitze des Pfeiles inner- 
halb der Menuezeile und innerhalb der Start- und Endpositionen eines 
Menuepunktes befinden (Z. 270-300). 


Ist das der Fall, so ist ein Menuepunkt angewählt und es wird durch 
das Unterprogramm ab Zeile 2300 ein Pull-down-Menue herunterge- 
lassen. Diesem Unterprogramm wird lediglich mit MP die Nummer 
des Menuepunktes übergeben, dessen Untermenues angezeigt werden 
sollen. 


Jetzt wird es interessant. Nachdem zunächst einmal der Pfeil gelöscht 
wurde (Z. 2300) wird der Menuepunkt invertiert (Z. 2320). Dann muß 
der Inhalt des Graphikbildschirms, der nachher vom Pull-down- 
Menue überdeckt werden soll, in die zweite Graphikseite gerettet 
werden. Dies geschieht mit Hilfe des GCOMB-Befehles in Zeile 2340, 
der diesen Bereich in die zweite Graphikseite kopiert. Alsdann wird 
der Bereich in Seite I gelöscht (Z. 2360) und nach dem Zeichnen eines 
Rahmens die verschiedenen Untermenuepunkte eingeschrieben. Die 
Defintion des Fensters und der Untermenuepunkte stammen dabei be- 
kanntlich aus den DATAs ab Zeile 10000. 
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Das Pull-down-Menue mit den verschiedenen Untermenuepunkten ist 
nun also sichtbar. Jetzt kann die Kontrolle wieder dem Benutzer über- 
geben werden, der den Pfeil auf den Punkt ansteuert, den er auswäh- 
len möchte. Welchen er angeklickt hat, wird dann in den beiden 
Zeilen 380/390 festgestellt. Wurde keiner angewählt, so wird das Pull- 
down-Menue wieder geschlossen und zum Programmanfang gesprun- 
gen. 


Das Schließen des Pull-down-Menues findet ab der Zeile 2550 statt. 
Das geht einfach durch Zurückkopieren des geretteten Graphikteils 
und dem Normalisieren des Menuepunktes. 


Wurde nun tatsächlich ein Untermenuepunkt angewählt, so wird das 
Pull-down-Menue ebenfalls geschlossen (Z. 430). Sie haben sich sicher 
bereits gefragt, was wir unter Sprungadressennummer des Speichers 
US(,) verstehen. Nun, das ist hier ganz einfach. Jedem Untermenue- 
punkt ist eine ganz bestimmte Nummer zugeordnet, die in den DATAs 
direkt hinter dem Namen des Untermenuepunktes steht. Sie bestimmt 
in den Zeilen 470-490 die Zeilennummer, zu der ein Unterpro- 
grammsprung ausgeführt werden soll. In diesem Unterprogramm wird 
dann ausgeführt, was Sie angewählt haben. Danach springt das Pro- 
gramm wieder nach Zeile 220. 


Was nun in den einzelnen Untermenues passiert, soll hier nicht mehr 
erläutert werden, da es sich praktisch nur noch um den Aufruf ver- 
schiedener Unterprogramme und Lösch-, Invertier- und Kopierbe- 
fehle handelt, die leicht zu durchschauen sein sollten. Beispielhaft 
werden wir uns hier nur einmal den Untermenuepunkt "Ausschnitt 
wählen" anschauen (ab Zeile 6650): 


Sie können einen bestimmten rechteckigen Bildausschnitt anwählen, 
den Sie getrennt verschieben, invertieren oder löschen können oder 
der beim Löschen oder Invertieren des Graphikbildes vom Löschen 
bzw. Invertieren ausgenommen sein soll, d.h. das gesamte Bild wird 
gelöscht, invertiert oder von Diskette nachgeladen, bis auf den defi- 
nierten Ausschnitt. 


r 


Dieser Ausschnitt wird nun in dem Unterprogramm ab Zeile 6650 
festgelegt. Zunächst aber sollten wir ein kleines Unterprogramm vor- 
stellen, das wir bisher noch nicht kannten. Es ist das Unterprogramm 
ab Zeile 2790, das eine Eingabe vom Benutzer einholt. 
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Dieser Routine werden in den Speichern SI$ und S2$ zwei Strings 
übergeben, deren Funktion Sie gleich erkennen werden. Weiterhin 
übergeben Sie ihr die Variable ZA, die die Anzahl der Zeichen be- 
stimmt, die der Benutzer maximal eingeben kann. Die Eingabe wird 


dann durch den Speicher BK$ an die übergeordnete Routine überge- 
ben. 


Dieses Unterprogramm öffnet zunächsteinmal ein Kommunika- 
tionsfenster in der Mitte des Bildschirms auf die gleiche Art und 
Weise wie wir das Pull-down-Menue erstellt haben, indem zunächst 
der Inhalt des betroffenen Bereiches in die zweite Seite gerettet wird. 
Der Bereich wird dann gelöscht und umrahmt. In diesem Stadium 
werden die beiden übergebenden Strings in den Zeilen 2850/2860 in 
dieses Bildschirmfenster geschrieben. Sie enthalten eine Meldung bzw. 
die Aufforderung, eine Eingabe zu tätigen. 


Diese Eingabe wird dann in den Zeilen 2890-2950 getätigt. Jede Ein- 
gabe wird mit <return> abgeschlossen. Ist ZA=0, so brauchen Sie nur 
<return> einzugeben, um eine Meldung z.B. zu bestätigen. 


Nach der Eingabe, die nicht editiert werden kann (eine Aufgabe für 
Sie!), wird das Fenster durch Zurückholen des ursprünglichen Inhaltes 
(Zeile 2990) wieder geschlossen. 


Kommen wir zurück zur Zeile 6650: Ausschnitt wählen. In diesem Fall 
wird der eben vorgestellten Routine nur eine Meldung übergeben, die 
mit <return> abgeschlossen werden muß. Dann können Sie den Pfeil 
wieder frei bewegen. Beim nächsten Knopfdruck (oder fl) jedoch 
legen Sie die obere linke Ecke des Ausschnittes fest. Danach erscheint 
mit der Pfeilbewegung ein blinkendes Rechteck, das diesen Ausschnitt 
kennzeichnet (Zeilen 6730/6749). Bei nochmaligem Betätigen des 
Knopfes bzw. der fl-Taste, legen Sie auch die untere linke Ecke des 
Ausschnittes fest. 


Die Ausschnitt-Koordinaten werden in XA,YA,XB,YB festgehalten. 
Zusätzlich wird für die anderen Routinen das Flag AF gesetzt. Dieses 
Flag wird erst wieder gelöscht, wenn Sie den Menuepunkt "Ausschnitt 
aus" angewählt haben. 


Sie sehen also, wie man mit einfachen Mitteln bereits recht ordent- 
liche Ergebnisse erreichen kann. Lassen Sie sich doch einmal etwas 
einfallen, wie Sie das obige Programm erweitern. Sie brauchen im 
wesentlichen nur die DATA-Zeilen für einen weiteren Menuepunkt 
zu ergänzen und die Untermenue-Routinen an das Programm anzu- 
hängen, die Sie dann vielleicht in einer Zeile 495 aufrufen. Viel Spaß! 
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4.  Hardwaregrundlagen 


Ihr Commodore 64 besitzt eine ungeheure Vielzahl an Möglichkeiten, 
Graphiken zu erstellen und zu kontrollieren. Da er jedoch keinerlei 
BASIC-Befehle zur Verfügung hat, um diese Dinge auszunutzen, muß 
alles, was die Graphik betrifft, selbst entweder direkt in Maschinen- 
sprache oder von BASIC aus programmiert werden, es sei denn, Sie 
besitzen eine entsprechende Graphikerweiterung, die Ihnen diese Be- 
fehle an die Hand gibt. Doch keine noch so gute Erweiterung kann 
auf alle Fähigkeiten des CBM 64 eingehen. Deshalb bedarf es einer 
guten Kenntnis der in Ihrem Rechner verwirklichten Graphikorgani- 
sation, um sie alle zu nutzen. Außerdem ist es äußerst interessant, 
festzustellen, wie perfekt die einzelnen Dinge zusammenspielen oder 
wo es manchmal ärgerliche Haken oder Ösen gibt, durch die man hin- 
durchschlüpfen kann. 


Bevor wir uns also mit der Programmierung der Graphik und den 
vielen Anwendungsmöglichkeiten beschäftigen, die den Nutzen dieser 
Rechnereigenschaft erst richtig zum Ausdruck bringen (auch oder ge- 
rade bei der Verwendung einer entsprechenden Erweiterung, die auf 
jeden Fall zu empfehlen ist), wollen wir daher eine detailierte Kennt- 
nis über die einzelnen Positionen der Graphik und Ihre Organisation 
vermitteln. Zugegeben, es ist nicht ganz einfach, aber wir wollen 
versuchen, es Ihnen so nahe wie möglich zu bringen. 


4.1 Die Register des VIC 


Zunächst einmal werden Ihnen die 47 Register des VIC, also des 
Video Interface Chips, dem zentralen Prozessor, der u.a. die gesamte 
Bildschirmausgabe steuert, kurz und übersichtlich beschrieben. Mit 
Hilfe dieser Register werden (fast) alle Funktionen bezüglich Graphik, 
Text usw. gesteuert. Sie besitzen daher fundamentalsten Wert für Ihr 
Verständnis über Graphik und Bildschirmmanipulationen und sollten 
schon (bis auf einige Kleinigkeiten) weitgehendst verstanden werden. 


Diese Übersicht wird dann in den folgenden Abschnitten und Kapi- 
teln vertieft und näher erläutert. Wenn Sie also nicht sofort alles ver- 
stehen, so ist das nur verständlich und praktisch zwingend. Wir 
werden jedoch stets mit diesen Dingen arbeiten, weswegen Sie im 
Anhang des vorliegenden Buches noch einmal eine kurze Übersicht 
über die Registerbelegung jenes integrierten Schaltkreises finden. 
Grundsätzlich ist diese folgende Beschreibung als Nachschlagewerk 
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gedacht und auch verfaßt. Nun aber zu den Registern, die mit folgen- 
dem Aufbau vorgestellt werden. Zunächst das Register in Dez. und 
Hex., dann die Kurzbeschreibung, danach die Startbelegung (in Dez. 
und Dual) sowie eine ausführliche Erklärung: 


VIC-Register --- Basisadresse: 53248 ($D000) 

00 300 x-Koordinate Sprite 0 00 %0000 0000 
Dieses Register beinhaltet die 8 unteren Bits (0-255) der x-K.oordinate 
des ersten Sprites (Sprite 0). Das oberste, 9. Bit (auch MSB = most 
significant bit genannt) wird dagegen in Register 16 gespeichert. Dies 
ist notwendig, da die x-K.oordinate größer als 255 werden kann. 

01 301 y-Koordinate Sprite O0 00 %0000 0000 


Wie oben, nur ohne Übertrag. 


02-15 $02- OF Koordinaten der übrigen 7 Sprites 





16 310 MSB der x-Koordinaten 00 %0000 0000 


Hier befinden sich die Überläufe (9. Bit) aus den x-Koordinaten Re- 
gistern. Jedem Bit ist ein Sprite zugeordnet. Bit 0 für Sprite O / Bit I 
für Sprite ] usw. 


17 811 Steuerregister 1 155 %1001 1011 


Bit 0-2: Bildschirmverschiebung oben/unten 
Bit 3: =0: 24 Zeilen / =1: 25 Zeilen 
Bit 4: =0: Bildschirm aus / =1: ein 


Ist der Bildschirm aus, so wird die CPU nicht mehr vom VIC unter- 
brochen (was z.B. bei der Generierung von Sprites für bis zu 40 Milli- 
sekunden geschehen kann) und Ihr Programm läuft evt. etwas schnel- 
ler und gleichmäßiger. 


Bit 5: =1: Standart Bitmap Mode 
Bit 6: =1: Extended Colour Mode 
Bit 7: Übertrag aus Register 18 ($12 
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18 312 Rasterzeilen-IRQO 55 %0011 0111 


Wird dieses Register beschrieben, so geben Sie hier die Bild- 
schirmrasterzeile an, bei deren Aufbau durch den VIC ein IRQ aus- 
gelöst werden kann. Wird es dagegen gelesen, so steht in ihm stets die 
aktuelle Rasterzeile, die der VIC gerade aufbaut. Der Übertrag dieses 


Registers steht in Register 17. 
19 813 Lightpen-x-koordinate 00 %0000 0000 


x-Koordinate (Rasterkoordinate) der Bildschirmposition, die gerade 
aufgebaut wurde, als ein Signal vom Lightpen kam (Lightpenleitung = 


0). 

20 314 Lightpen-y-koordinate 00 %0000 0000 
Wie Register 19, jedoch y-Koordinate. 

21 815 Sprite ein/aus 00 %0000 0000 


Hier werden die einzelnen Sprites ein- oder ausgeschaltet. Jedem Bit 


ist ein Sprite zugeordnet (wie in Register 16). 

22 316 Steuerregister 2 08 %0000 1000 
Bit 0-2: Bildschirmverschiebung links/rechts 

Bit 3: =0: 38 Zeilen / =1: 40 Zeilen pro Zeile 


Bit 4: =1: Multicolor Modus 
Bit 5-7: unbenutzt 


23 317 Spritevergr. y-Richtung 00 %0000 0000 


Jedem Sprite ist ein Bit zugeordnet. Bit=l: Sprite wird doppelt so 
breit. (s. auch Reg. 29) 
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24 318 VIC-Basisadressen 20 %0001 0100 


Hier werden einige der oberen Bits der Startadressen von Video-RAM 
und Zeichensatzspeicher abgelegt. Durch Änderung ist eine Verschie- 
bung dieser Bereiche möglich (s. auch Reg. 0 der CIA 2). Die Bele- 
gung lautet: 


Bit 0: unbenutzt 
Bit 1-3: Adressbits 11-13 des Zeichensatzes (*2048) 
Bit 4-7: Adressbits 10-13 des Video-RAMs (*1024) 


Die im CBM 64-Handbuch auf Seite 158 angegebene Belegung dieses 
Registers ist falsch! 


25 319 Interrupt Request (IRR) 15 %0000 1111 
Hier kann die Ursache für einen IRQ festgestellt werden: 


Bit 0=1: Ursache: Rasterzeilen-IRQ (Reg. 18) 

Bit 1=1: Ursache: Sprite-Hintergr. Koll. (Reg. 31) 
Bit 2=1: Ursache: Sprite-Sprite Koll. (Reg. 30) 
Bit 3=1: Ursache: Lightpen sendet Impuls 

Bit 4-6: unbenutzt 

Bit 7=1: mindestens eines der ersten 4 Bits ist 1. 


Dieses Register muß (soweit es verwendet wird) nach dem Ereignis 
wieder gelöscht werden. Dies geschieht, indem man den gerade ausge- 
lesenen Wert wieder hineinschreibt. 


26 31A Interrupt Mask (IMR) 00 %0000 0000 


Hier wird vom Programmierer ausgewählt, durch welches Ereignis ein 
IRQ ausgelöst werden soll. Die Belegung entspricht der des Registers 
25. Ist ein Bit sowohl in diesem wie auch gleichzeitig im Reg. 25 ge- 
setzt, so wird ein IRQ ausgelöst, d.h. alle im Reg. 26 gesetzten Bits 


ermöglichen die Auslösung eines IRQ durch Reg. 25. 
27 31B Priorität 00 %0000 0000 


Jedem Sprite ist ein Bit zugeordnet. Bit=l: Hintergrundzeichen hat 
Priorität vor dem Sprite / Bit=0: Sprite vor Hintergrundzeichen 
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28 SIC Multicolor-Sprites 00 %0000 0000 


Jedem Sprite ist ein Bit zugeordnet. Bit=1: Sprite wird im Multicolor 
Modus gezeichnet. 


29 31D Spritevergr. x-Richtung 00 %0000 0000 


Jedem Sprite ist ein Bit zugeordnet. Bit=!: Sprite wird in x-Richtung 


vergrößert (doppelt so hoch). 
30 SIE Sprite-Sprite-Kollision 00 %0000 0000 


Jedem Sprite ist ein Bit zugeordnet. Berührt ein Sprite ein anderes, so 
werden die beiden entsprechenden Bits dieser Sprites gesetzt. Gleich- 
zeitig wird Bit 2 des Registers 25 (IRR) =1. Nach dem Ereignis muß 
dieses Register gelöscht werden, da sich die Bits nicht selbsttätig zu- 
rücksetzen. 


3l SIF Spr-Hintergr.-Kollision 00 %0000 0000 


Wie Register 30. Hier jedoch wird die Berührung eines Sprites mit 
einem Hintergrundzeichen (gesetzter Punkt) registriert. 


32 320 Rahmenfarbe 14 %0000 1110 
33__821 Hintergrund farbe 0 06 %0000 0110 
34-36 _322-24 Hintergrund farben 1-3 01 02 03 
37/38 __325/26 Sprite Multicolor 0/1 04 00 
39-46 327-2E Farbe Sprite 0-7 0102.03 04 05 06 07 


Nach der dezimalen und hexadezimalen Nummernangabe der einzelnen 
Register, die bei der Ansteuerung stets zu der Basisadresse hinzu- 
addiert werden muß, folgt, wie Sie sehen, der Registername und die 
Startbelegung. Unter Startbelegung verstehen wir dabei den Wert, der 
nach dem Einschalten des Computers in das jeweilige Register als 
Initialisierungswert eingeschrieben wird. Dieser Wert wird in unserer 
Übersicht dezimal (z.B. für BASIC-Programmierer) und dual ange- 
geben. 


308 Das Supergraphikbuch zum C64 


Zusätzlich zu diesen Registern des VIC gibt es natürlich noch einige 
andere Speicherstellen, die besonders interessant im Zusammenhang 
mit der Graphikprogrammierung sind. Der Vollständigkeit halber seien 
sie hier hinten angefügt: 


a) Spritedefinitionspointer: 


Um dem VIC mitzuteilen, wo in seinem Adressierungsbereich er die 
63 Byte lange Definition eines bestimmten Sprites findet, müssen die 8 
letzten Bytes des Video-RAM mit einem Pointer belegt werden (im 
Originalzustand: Speicherstellen 2040 - 2047 bzw. $07F8 - $07FF). 
Multipliziert man ihn mit 64, so gibt er die Adresse des Definitions- 
beginns eines Sprites relativ zu dem Adressbereich des VIC an (einzu- 
stellen mit Register 0, Bit | und O der CIA 2 (s.u.)). Dabei ist jedem 
der 8 Bytes ein Sprite (von 0-7) zugeordnet und die Pointer können 
Werte von 0-255 annehmen (16 Kbyte Adressierung). 


b)  höchstwertige Adressbits des VIC- Adressbereiches 

Neben dem VIC-Register 24 gibt es noch eine weitere Speicherstelle, 
mit welcher z.B. Video-RAM oder Zeichensatz verschoben werden 
können. Es ist dies das Register 0 der CIA 2 (= Complex Interface 
Adapter 2) mit der Adresse 56576 ($DD00), speziell Bit 0 und 1. Diese 
beiden Bits ergeben die obersten zwei Adressbits (Bit 14 und 15) der 
Basisadresse des VIC. Vorsicht! Die Bits sind LOW-Aktiv, d.h. ist ein 
Bit=l so gilt es als O und umgekehrt! 

c) Joystick/ Paddale/T astatur 


Hierfür sind (u.a.) die ersten zwei Register der CIA 1 zuständig: 
Register 0 (Adresse: 56320/$DC00): 


Normalbetrieb: 


Bit 0-7: Reihenauswahl der Tastatur 
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weitere Aufgaben: 


Bit 0-4: Joystick 0: Bit 0=1: oben 
(Port 1) Bit 1=1: unten 
Bit 2=1: links 
Bit 3=1: rechts 
Bit 4=1: Knopf 
Bit 6/7: Paddle-Set-Auswahl: Bit 6=1: Set A 


(Port 1) Bit 7=1: Set B 
Nur eins der zwei Bits darf = 1 sein! 


Für den Joystick-Betrieb muß hier zunächst das Register 0 durch ein 
POKE 56322,224 (Register 2 - $DCO2) auf Eingabe gestellt werden. 
Rückstellung: POKE 56322,255 (gilt nicht unbedingt für Register 1). 


Register 1 (Adresse: 56321/$DCO1): 


Normalbetrieb: 


Bit 0-7: Spaltenrückmeldung der Tastatur 


weitere Aufgaben: 


Bit 0-4: wie Register 0 nur für Port 2 
(Joystick 1 / Paddles) 


Soweit in aller Kürze das Wichtigste zur CBM 64-Graphik. Nun lassen 
Sie sich genauer in die vielen Geheimnisse Ihres Rechners einweihen. 


4.2 Die Betriebsarten des VIC 


Mit dem Video Interface Chip ist eine große Menge von Einstellungen 
möglich. Grob unterteilt man diese in drei Kategorien: 


- hochauflösende Graphik mit dem Einzelpunktmodus (Standart 
Bitmap Mode) 

- Sprites 

- Textmodus (= Zeichen aus einem festen Zeichensatz) 
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Hinzu kommen noch zwei Modi, die Sie jeweils für diese drei Grund- 
darstellungen zusätzlich wählen können: 


- Normalfarbenmodus 
- Multicolormodus 


und eine weitere Möglichkeit, die jedoch nur in Zusammenhang mit 
dem Text- und nicht gemeinsam mit dem Multicolormodus verwendet 
werden darf, der: 


- Extended Color Modus 


Die einzelnen Modi sollen im folgenden kurz skizziert werden, um 
Ihnen einen Überblick zu gewähren. Die nähere Besprechung ge- 
schieht dann aber in den späteren Abschnitten (für die Begriffe Farb- 
RAM, Video-RAM, Graphikspeicher, Zeichensatzspeicher schauen Sie 
bitte unter Kap. 4.3). 


A.  Einzelpunktmodus 
a) Normaler Einzelpunktmodus 


Im normalen Einzelpunktmodus, der durch das Setzen der Bits 5 und 6 
des VIC-Registers 17 ausgewählt wird (Register 22, Bit 4=0), besteht 
ein direkter Zusammenhang zwischen Bildschirm und Graphik- 
speicher. Ein Bit des Graphikspeichers korrespondiert mit einem 
Punkt des Bildschirms. 


Die Auflösung beträgt 320x200 Punkte, der Graphikspeicher nimmt 
somit einen Raum von etwa 8 K ein. Die Farbe kommt aus dem etwa 
1 K großen Video-RAM, wobei je ein Byte des Video-RAMs die 
Farbinformation für ein 8x8-Punkte großes Feld des Bildschirms 
liefert. Dabei gilt für jedes Bit des Graphikspeichers die folgende 
Farbherkunfts-Zuordnung: 


Bit=0: 4 untere Bits des Video-RAMs 
Bit=1: 4 obere Bits des Video-RAMs 
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b) Multicolor-Einzelpunktmodus 


In dieser Betriebsart (wählbar durch Setzen der Bits 5 und 6 des VIC- 
Registers 17 und des 4. Bits des 22. Registers) sind jeweils 2 Bit des 
Graphikspeichers für einen doppelt breiten Punkt des Bildschirms zu- 
ständig. Die Auflösung beträgt daher nur 160x200 Punkte. Dafür sind 
pro 8x8-Punkte Feld insgesamt 4 verschiedene Farben wählbar. Mit 
Hilfe der erwähnten 2 Bit pro Punkt wird festgelegt, welche dieser 
Farben ein Punkt besitzen soll. Dabei gilt folgende Zuordnungen der 
Farbquellen: 


Bits=00: Hintergrund-Farbregister 0 
Bits=01: Video-RAM untere 4 Bits 
Bits=10: Video-RAM obere 4 Bits 
Bits=11: Farb-RAM 


B. Sprites 


Sprites sind frei definierbare Objekte fester Auflösung, veränderlicher 
Größe und Farbe, von denen 8 völlig unabhängig voneinander gleich- 
zeitig auf den Bildschirm gebracht werden können. Ihre Priorität 
untereinander und in Bezug auf die Hintergrundzeichen, sowie Ihre 
Position auf dem Bildschirm (Bewegungsauflösung: 512x256, also über 
den Bildschirmrand hinaus) können variiert werden. Die Spritedefini- 
tion wird in 63 Bytes untergebracht. Man unterscheidet: 


a) Normale Sprites 


Diese besitzen eine Auflösung von 24x21 Punkten. Jedes Bit der 
Spritedefinition repräsentiert einen Punkt der Spritematrix. Für die 
Farbe gilt dabei: 


Bit=0: durchsichtig 
Bit=1: Sprite Color Register (Reg. 39-46) 


b) Multicolor-Sprite 


Bei Multicolor-Sprites bestimmen jeweils 2 Bit der Definition einen 
doppelt breiten Punkt auf dem Bildschirm. Folglich schrumpft die 
Punkteauflösung auf 12x21 Punkte. Diese 2 Bit bestimmen die Her- 
kunft der Farbe eines Punktes in folgender Weise: 


312 Das Supergraphikbuch zum C64 


Bits=00: durchsichtig 

Bits=01: Multi Color Register 0 
Bits=10: Multi Color Register | 
Bits=11: Sprite Color Register 


Es ist möglich, gleichzeitig Sprites beider Darstellungsarten auf dem 
Bildschirm zu erzeugen. 


C. _Zeichendarstellung 


Bei der Zeichendarstellung wird eine im Zeichensatzspeicher 
(Zeichengenerator) festgelegte Punkteanordung als festes Zeichen in 
einer 8x8-Matrix verwendet (für jedes Zeichen sind somit 8 Byte 
notwendig). In diesem Zeichensatzspeicher sind z.B. alle Buchstaben 
oder Zahlen festgehalten. Ein Byte des Video-RAM gibt dann die 
Information, welches der maximal 2x256 Zeichen auf dem Bildschirm 
erscheinen soll. 


a) Normale Zeichendarstellung: 


In dieser Betriebsart wird das vollständige Byte aus dem Video-RAM 
als Zeiger auf ein Bitmuster des Zeichengenerators verwendet. 
Gleichzeitig sind maximal 256 verschiedene Zeichen auf dem Bild- 
schirm darstellbar. Ein Bit des Bitmusters bestimmt dabei die Farbe 
eines einzelnen Punktes des Zeichens. Die Farbe stammt aus: 


Bit=0: Hintergrundfarbregister 0 
Bit=1: untere 4 Bits des Farb-RAM 


b) Zeichen im Multicolormodus: 


In diesem Modus sind beide Möglichkeiten der Darstellung vorhanden: 
normale und Multicolor-Darstellung. Ist das 3. Bit des Farb-RAMSs =(, 
so wird das Zeichen in der normalen 8x8-Matrix dargestellt. Wie unter 
a) beschrieben wird die Farbe des Zeichens ganz normal festgelegt mit 
der Einschränkung, daß zwangsläufig nur 8 Farben für die gesetzten 
Bits des Zeichenmusters möglich sind (das 3. Bit des Farb-RAMs ist 
ja gleich 0). 
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Ist das besagte 3. Bit jedoch gleich 1, so bestimmen jeweils 2 Bit des 
Zeichenmusters die Farbe eines doppelt breiten Punktes des Zeichens. 
Die Auflösung beträgt somit nur 4x8 Punkte. Ein Zeichen aber kann 
nun aus insgesamt 4 Farben bestehen. Die Herkunft dieser Farben 
wird durch die beiden Bits eines Punktes bestimmt: 


Bits=00: Hintergrundfarbregister 0 
Bits=01: Hintergrundfarbregister 1 
Bits=10: Hintergrundfarbregister 2 
Bits=11: übrige drei Bits des Farb-RAM 


Die Farbe drei kann also ebenfalls nur eine von 8 Farben sein. Die 
restlichen drei Farben sind für alle Zeichen gleich. 


c) Zeichen im Extended Color Modus 


In diesem Modus kann jedes Zeichen des Bildschirms eine von 4 
Hintergrundfarben erhalten. Die Zeichendarstellung an sich entspricht 
dem Normalmodus (8x8-Matrix). Für die gesetzten Bits des Zeichen- 
musters (Bit=0) stammt die Farbe ebenso wie im Normalmodus aus 
dem Farb-RAM. Die gelöschten Bits dagegen, die die Hintergrund- 
farbe bestimmen, stammen aus verschiedenen Quellen. Die zwei 
höchsten Bits (Bit 6/7) des Video-RAMs, also des Speichers, der die 
Zeichen enthält, legen dabei diese Quelle fest: 


Bits=00: Hintergrundfarbregister 0 
Bits=01: Hintergrundfarbregister 1 
Bits=10: Hintergrundfarbregister 2 
Bits=11: Hintergrundfarbregister 3 


Da aber von den 8 Bits des Video-RAMs nur noch 6 als Zeiger auf 
das Zeichenmuster übrig bleiben, können nur noch 64 verschiedene 
Zeichen gleichzeitig auf den Bildschirm gebracht werden! 


Soweit der Überblick über die verschiedenen Betriebsarten des Video- 
controllers, die in den Kap. 4.4 bis 4.6 näher erläutert werden. Als 
nächstes folgt eine weitere Spezialität Ihres Commodore 64, die ihn 
sehr flexibel macht. 
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4.3 Die Speicherverwaltung des CBM 64 


Dieses Kapitel stellt einige Anforderungen an die Kenntnis um Spei- 
cheraufbau, Speicheradressierung und ähnliche Dinge und sollte daher 
von blutigen Laien übersprungen werden. Auch die Leser, die noch 
nichts über die Graphikmöglichkeiten dieses Gerätes oder gar über- 
haupt noch nichts über Graphik wissen, sollten sich nach einer kurzen 
Lektüre des Paragraphen 4.3.2.1 sogleich an das Kapitel 4.4 machen. 
Um sich allerdings effektiv und vollständig mit der Erstellung von 
Graphiken zu beschäftigen, ist eine Lektüre der folgenden Seiten un- 
umgänglich, zumal noch einige Aussagen über die allgemeine Spei- 
cherhandhabung Ihres Gerätes gemacht werden. 


In diesem Zusammenhang sollte darauf hingewiesen werden, daß die 
meisten und wertvollsten Funktionen nur in Maschinensprache 
(Assembler) erreichbar sind. Aus diesem Grunde lohnt es in jeden 
Fall, sich vielleicht einmal mit diesem Themenkomplex zu beschäfti- 
gen. Oft besteht eine grundlose Hemmschwelle gegenüber dieser 
Sprache. Dabei ist Sie für Leute, die bereits BASIC programmieren, 
relativ leicht zu erlernen, besonders, wenn man ein gutes Buch zur 
Hand hat. Da DATA BECKER ein wirklich exzellentes Werk über 
Maschinensprache speziell für 64er-Anwender herausgebracht hat, ist 
dieser Mangel behoben. Auch das nötige Rüstzeug (Maschinenspra- 
chemonitor und Assembler) sind vorhanden. Sie werden sehen, bald 
programmieren Sie lieber in Assembler, als in dem klobigen und lang- 
samen BASIC. 


Da sämtliche Bildschirminhalte gespeichert werden müssen, damit der 
VIC ständig weiß, was er auf den Bildschirm bringen soll, bedarf es 
einer Menge an Speicherplatz für Text oder Graphik. Für den Gra- 
phikspeicher beispielsweise werden sage und schreibe 8 K, für die 
dazugehörige Farbe noch einmal | K. Dieser Speicherplatz steht dann 
für andere Zwecke nicht mehr zur Verfügung. Aus diesem Grunde 
wurden einige Möglichkeiten geschaffen, die Lage dieser Bereiche 
selbst zu wählen, um optimales Arbeiten zu ermöglichen. Gleichzeitig 
stehen Bereiche zur Verfügung, die sonst nicht oder nur sehr schwer 
(z.B. von BASIC aus) genutzt werden. 


Um die folgenden Ausführungen zu verstehen, muß zunächst einiges 
über den Speicheraufbau Ihres Rechners gesagt werden: 
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Der Commodore 64 besitzt einen 6510 als Hauptprozessor, auch CPU 
(Central Processing Unit) genannt, der für sämtliche Rechenvorgänge, 
also Programme benötigt wird. Dieser 6510 hat den gleichen Befehls- 
satz wie sein Vorgänger 6502, ist also softwarekompatibel zu ihm. 
Doch gibt es beim 6510 einige weitere Leitungen, die unter anderem 
die Speicherverwaltung unterstützen. Er besitzt damit zwei eigene Re- 
gister mit den Adressen O0 und |. Für uns ist lediglich das Register | 
von Bedeutung. Eine weitere Eigenart dieser CPU, die sie diesmal mit 
dem 6502 gemeinsam hat, ist der sogenannte Adressierungsbereich. 
Darunter versteht man die Größe des Speichers, den der Rechner 
ansteuern kann. Dieser beträgt bei Ihrem Rechner 64 K, da für die 
Adressierung, also die Ansteuerung von Speicherstellen, insgesamt 16 
Bit zur Verfügung stehen. Damit können also die Adressen 0-65535 
($0000-$FFFF) angesteuert werden. 


Nun wissen Sie aber, daß Ihr CBM 64 allein schon 64 K RAM besitzt 
(unter RAM = Random Access Memory versteht man Speicher, der 
gelesen und beschrieben werden kann. Sein Inhalt geht beim Aus- 
schalten des Gerätes verloren. Er dient also als Arbeitsspeicher. Im 
Gegensatz hierzu kann der sogenannte ROM = Read Only Memory 
nur gelesen werden. Sein Inhalt wird nicht verändert, auch wenn der 
Computer ausgeschaltet wird. Seine Aufgabe ist die Beherbergung des 
Betriebssystems, des BASIC-Interpreters, des Zeichensatzes usw.). 


Zu diesen genannten 64 K kommen weiterhin aber noch die verschie- 
denen ROM-Bereiche und Register der einzelnen Peripheriebausteine 
(VIC, CIA, Synthesizer etc.), die insgesamt noch einmal einen Platz 
von 24 K benötigen. Wohin aber mit soviel Speicher, der normal gar 
nicht angesteuert werden kann? 


Die Lösung ist die Speicherüberlappung. Diese wird so realisiert, daß 
mehrere Speicherbereiche (z.B. ROM und RAM) dieselben Adressen 
besitzen, also eigentlich an derselben Stelle im Speicher stehen. Der 
Aufbau sähe dann so aus: 














Zeichensatz 
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Im gerade eingeschalteten Zustand sind alle diejenigen Bereiche les- 
bar, die in diesem Schema von unten sichtbar sind. Also: 


$0000-S9FFF: .i.RAM 
$AO00-SBFFF: „i.ROM 
$CO00-$CFFF: RAM 
$D000-$DFFF: 1/0 
$EOOO-SFFFF: ROM 


In diese Tabelle schiebt sich bei dem Betrieb eines Moduls noch der 
Bereich $8000-$9FFF als Modul-ROM ein. 


Dem Computer muß nun jedoch mitgeteilt werden, welchen Bereich 
er ansteuern soll. Dies hängt dabei von einigen Faktoren ab. Die für 
uns wichtigsten sind: 


- Lese oder Schreibzugriff des 6510 

- Zugriff des VIC oder des 6510 

- Ansteuerung des Bereiches v. $D000-$DFFF oder nicht 
- Inhalt des Registers 1, Bits 0-2 des 6510 


Grundsätzlich müssen wir hier zwischen VIC und 6510 unterscheiden, 
da sie praktisch zur gleichen Zeit unterschiedliche Bereiche ansteuern. 
Um die Ansteuerung durch den VIC müssen wir uns insofern küm- 
mern, als wir ja bei Graphik o.ä. festlegen müssen, in welche Bereiche 
wir die einzelnen Speicher (Video-RAM, ...) legen wollen, wir müssen 
also feststellen, ob der VIC diese überhaupt erreicht. 


Die Ansteuerung des 6510 betrifft uns unmittelbar und auch, wenn 
wir überhaupt nichts mit Graphik bzw. Bildschirmsteuerung zu tun 
haben. Die Möglichkeiten von BASIC aus sind zwar einigermaßen be- 
schränkt, da viele Bereiche fest in Gebrauch sind, von Maschinen- 
sprache (Assembler) aber steht uns alles frei zur Verfügung. Um einen 
Überblick zu erhalten, beginnen wir mit: 
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4.3.1 Die Speicherzugriffe des 6510 


4.3.1.1 Lesen eines Bytes 


Soll ein Byte einer bestimmten Adresse (z.B. durch PEEK) gelesen 
werden (darunter versteht man auch den Ablauf eines Ma- 
schinenprogrammes), so hängt die Auswahl, welche der sich überlap- 
penden Speicherbereiche angesprochen werden, - sofern für uns be- 
einflußbar - nur von dem Inhalt des sogenannten Datenregisters der 
6510 CPU (Register 1) ab. Dort haben die ersten 3 Bits (0-2) die 
Funktion, auf bestimmte Bereiche umzuschalten. Die drei Bits sind 
nach dem Einschalten des Gerätes gesetzt, was zu der im obigen 
Schema verdeutlichten Speicherkonfiguration führt, und haben im 
Einzelnen die folgenden Funktionen: 


A. Bit 0/1 - LORAM/HIRAM: 


a) Bits O/1=11: 


Sind diese Bits beide 1, so wird bei einem Lesezugriff auf die Adres- 
sen $A000-BFFF das dort befindliche BASIC-RAM, bei einem Zu- 
griff auf die Adressen $EO00-$FFFF das dortige Kernal-ROM ange- 
steuert. Dies ist der Normalzustand. Ist ein Modul im $8000er Bereich 
installiert, so ist auch dieses eingeschaltet. Die Speicherkonfiguration 
sähe dann also so aus: 
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b) Bits 0/1=10: 
Ist lediglich das Bit | gesetzt, so ist der Modul- und der BASIC- 


ROM-Bereich ausgeschaltet und statt dessen wird nun aus dem dar- 
unter befindlichen RAM gelesen. Wir haben also folgende Belegung: 









Amon (Coon) @D0o0 ern 











Diese Konfiguration kann (auch von BASIC aus) genutzt werden, in- 
dem z.B. der BASIC-Interpreter in das unten liegende RAM kopiert 
wird und, nachdem einige Veränderungen vorgenommen wurden, von 
nun an in diesem RAM als modifiziertes BASIC liegt. Ein BASIC- 
Programm dazu könnte z.B. so aussehen: 


10 FOR AD=10*4096 TO 12*4096 -1 

20 POKE AD, PEEK(X) : REM BASIC-ROM INS RAM KOPIEREN 
30 NEXT AD 

40 REM HIER NUN VERAENDERUNGEN EINPOKEN ... 

50 POKE 1, PEEK(1) AND 254 : REM RAM EINSCHALTEN 


Zu beachten ist hierbei, daß bei einem Modulbetrieb der Bereich von 
$8000-$9FFF ebenfalls kopiert werden muß, um einen Absturz zu 
verhindern, da er gleichfalls ausgeschaltet wird. 


Gehen Sie mit diesem Register 1 der CPU besonders vorsichtig um 
(vor allem bei den folgenden Belegungen), da hier jede Änderung 
tiefgreifende Einschnitte in die Speicherorganisation Ihres Rechners 
mit sich führt und bei einer Fehlbelegung oft nur der Ausschaltknopf 
die einzige Möglichkeit ist, Ihren Rechner wieder "zum Leben zu er- 
wecken" (keine Angst, Ihrem Rechner passiert dabei natürlich nichts). 
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c) Bits 0/1=01: 


Ist nun nur das Bit O gesetzt, so haben Sie sämtlichen ROM-Speicher 
ausgeschaltet. Der .1.1/O;-Bereich von $D000-$DFFF bleibt davon je- 
doch unberührt, kann also weiterhin ohne Änderungen angesteuert 
werden. Wir erhalten damit 60 K ansteuerbares RAM: 








d) Bits 0/1=00: 


Sind beide Bits gelöscht, so ist sämtlicher RAM eingeschaltet. Kein 
ROM und auch keine I/O-Funktionen können mehr ausgelesen oder 
verändert werden (obwohl der VIC und die anderen Bausteine weiter- 
hin alle ihre Register lesen können und somit das Bild erhalten 
bleibt!). Die Konfiguration ist denkbar einfach: 











Dies ist die einzige Möglichkeit, die unter dem I/O-Bereich und dem 
Zeichensatz liegenden 4 K RAM mit zu nutzen. 
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B. Bit2- CHAREN: 


Dieses Bit dient dazu, den verschiebbaren Zeichengenerator (s.u.) auch 
für den 6510, also für den Programmierer lesbar zu machen, um ihn 
z.B. zu kopieren und dann zu verändern (s.u.). 


a) Bit 2=1: 


Dieses Bit bezieht sich lediglich auf den Bereich der $D-Seiten 
($D000-$DFFF) des Commodorespeichers. Die anderen Adressen 
werden nicht beeinflußt. Im Normalzustand liegt es gesetzt vor. Damit 
kann der 4 K große Zeichensatz, der ebenfalls genau den Bereich von 
$D000-$DFFF einnimmt, nur vom VIC gelesen werden. Statt dessen 
stehen die I/O-Adressen, das sind die Register des VIC, des SID 
(Sound Interface Device) und der CIAs, sowie der Farb-RAM zur 
freien Verfügung. Wir finden also folgende Einrichtungen in besagtem 
Raume vor: 


b) Bit 2=0 


Ist das Bit gelöscht, so kann auch der Programmierer bzw. die 6510 
CPU den Inhalt des Zeichensatzspeichers lesen. Dabei belegt er alle 4 
K des I/O-Bereiches. Versuchen Sie das jedoch in BASIC, so wird 
sich Ihr Rechner abrupt innerhalb der nächsten 1/60 Sekunde von 
Ihnen verabschieden, da 60 mal pro Sekunde eine sogenannte Inter- 
ruptroutine, von der wir im Kap. 4.7 mehr hören werden, aufgerufen 
wird, die mit dem in der CIA 1 befindlichen Timer hantiert, der dann 
natürlich nicht mehr ansprechbar ist, wenn dieses Bit auf 0 gesetzt ist. 
In Maschinensprache muß zunächst das Interruptflag gesetzt werden 
(Befehl: SET), um den Aufruf dieser Interruptroutine zu unterbinden. 
Später wird durch CLI der Interrupt wieder ermöglicht. Das Gleiche 
muß geschehen, wenn durch das Löschen von Bit 1 das Kernal-ROM 
ausgeschaltet wird, in dem sich die Interruptroutine befindet. 
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4.3.1.2 Schreiben eines Bytes 


Wird ein Schreibzugriff auf den Speicher unternommen (z.B. durch 
POKE), so ändern sich die Verhältnisse grundsätzlich: 


Da es nicht sinnvoll ist, etwas in den ROM-Speicher zu schreiben, 
wurde es eingerichtet, daß jeder Schreibzugriff unabhängig von der 
Einstellung im Register I der CPU den unter dem ROM liegenden 
RAM erreicht. Mit einer Ausnahme: Der Bereich von $D000 bis 
$DFFF. Hier wird normalerweise nur der I/O-Speicherbereich er- 
reicht. Wollen Sie auch hier den RAM durch einen Schreibzugriff 
ansprechen, so stehen Ihnen zwei Möglichkeiten zur Auswahl: 


- Ausschalten aller ROMs 
- Einschalten des Zeichensatzspeichers 


Ersteres geschieht bekanntlich, indem Sie die ersten beiden Bits (0 und 
1) des Il. CPU-Registers =0 setzen, der zweite Zustand wird durch 
Löschen des Bits 2 dieser Speicherstelle erreicht (s.o.). 


Nun werden Sie wohl auch das kleine oben angeführte BASIC-Pro- 
gramm vollständig verstehen. In Zeile 20 wurde dort durch den Befehl 
POKE AD, PEEK(AD) der Inhalt des BASIC-ROMSs gelesen, durch 
den Schreibbefehl (POKE) aber nicht etwa wieder dorthin zurückge- 
schrieben, sondern in das darunterliegende RAM! Sie sehen, welche 
Bedeutung dieser Tatsache zukommt. 


4.3.2 Die Speicherzugriffe des VIC 


Neben dem Hauptprozessor, der für den Ablauf aller Programme zu- 
ständig ist, muß selbstverständlich noch der Videocontroller (VIC) auf 
den Speicher zugreifen, um Bildschirminformationen wie Farbe oder 
Punktsetzung zu erhalten. Da hier natürlich Zugriffe z.B. auf das 
Kernal-ROM oder den BASIC-Interpreter sinnlos sind, wurde hier 
einiges anders gestaltet, als dies bei der CPU-Ansteuerung der Fall ist. 
Die Umschaltungen zwischen verschiedenen Speicherbereichen nimmt 
der VIC dabei selbständig vor. Für uns ergibt sich damit ein mehr 
oder weniger statisches Bild im Vergleich zu den vielen Möglichkeiten 
des Programmierers bei der gerade besprochenen CPU. Wir müssen 
also lediglich wissen, welche Bereiche der VIC für welche Zwecke 
ansteuert und welche nicht. Gleichzeitig zeigt sich die Speicherver- 
waltung des VIC von einer anderen Seite äußerst dynamisch. Sie selbst 
können nämlich unter Einhaltung verschiedener Bedingungen bestim- 
men, wo welche Speicherfunktionen des Videocontrollers liegen sollen. 
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Mit anderen Worten, Sie haben die Möglichkeit, Graphikspeicher, 
Zeichensatz, Video-RAM und Spritespeicher in die Speicherbereiche 
zu verlegen, die Ihnen angenehm erscheinen. 


Doch bevor wir uns damit beschäftigen, wollen wir zunächst ein 
wenig zu den Speicherfunktionen des VIC sagen, um die Begriffe zu 
klären, die von nun an unser täglich Brot sein werden. 


4.3.2.1 Die Speicherfunktionen des VIC: 


Um die verschiedenen Aufgaben zu erfüllen, die dem VIC zugeordnet 
sind (Text, Graphik, Sprites, Farbe, ...) bedarf es umfangreicher 
Speicherräume mit den unterschiedlichsten Funktionen: 


- Zeichengenerator 
- Video-RAM 

- Farb-RAM 

- Graphikspeicher 

- Spritedefinitionen 


Im Folgenden sollen die Bedeutung und der Nutzen jeder dieser ein- 
zelnen Positionen, die schon in früheren Kapiteln erwähnt worden 
waren, dargelegt und erläutert werden. Die näheren Funktionen und 
der genaue Aufbau jedoch werden in den folgenden Kap. 4.4 bis 4.6 
abgehandelt. Die hier befindliche Auflistung soll lediglich als Orien- 
tierung und Begriffserklärung dienen, um das hernach zu Sagende 
verständlich zu machen, da wir dort ständig mit diesen Dingen um- 
gehen. 


a) Zeichengenerator: 


Unter Zeichengenerator (auch Zeichensatz oder Zeichensatzspeicher 
genannt) verstehen wir denjenigen Speicher, der die Definitionen bzw. 
das sogenannte Bitmuster für jedes einzelne Zeichen enthält, das wir 
durch einfachen Tastendruck auf den Bildschirm bringen können. Er 
umfaßt insgesamt 2x2 K und damit die Information für 512 Zeichen, 
von denen allerdings jeweils nur ein Teil gleichzeitig auf den Bild- 
schirm gebracht werden kann (s. Kap. 4.2, 4.6, 4.4). 
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b) Video-RAM: 


Der Video-RAM umfaßt etwa I K und hat verschiedene Aufgaben. 
Im normalen Zustand (Einschaltzustand) dient er als Zeichenspeicher 
(nicht zu verwechseln mit "Zeichensatzspeicher"), in dem der soge- 
nannte Bildschirmcode (ein Code für Zeichen ähnlich dem ASCII- 
Code, er dient als Zeiger auf den Zeichengenerator) für jedes einzelne 
Zeichen, das sich zur Zeit auf dem Bildschirm befindet, abgelegt ist. 


Im Graphikmodus erhält der Video-RAM die Funktion des Farbspei- 
chers, der die Punkt- und die Hintergrundfarbe bzw. in Multicolor 
Farben 1 und 2 jedes 8x8-Punktefeldes (in MC: 4x8) des Graphik- 
bildschirms bestimmt (s. Kap. 4.4, 4.6, 4.2, 4.4). 


Eine weitere Funktion des Video-RAM ist die Beherbergung der 
Pointer auf die Spritedefinitionen in den letzten 8 Bytes. 


c) Farb-RAM: 


Der Farb-RAM umfaßt wie der Video-RAM ca. I K und liegt fest in 
dem Bereich $D800-$DBFF (55296-56319). Er ist lesbar und be- 
schreibbar, jedoch sind jeweils nur die unteren 4 Bits aktiv. Die 
oberen 4 können nicht verändert werden und sind stets gesetzt. Im 
normalen Modus dient er als Speicher für die Farbe der Textzeichen 
auf dem Bildschirm. Im Graphikmodus hat er nur bei Multicolor eine 
Funktion. Dort stellt er die MC-Farbe 3 jeweils für ein 4x8-Punkte- 
feld des Graphikbildes dar. 


d) Graphikspeicher: 


Der sogenannte Graphikspeicher, der umfangreichste Bildspeicher 
überhaupt, beinhaltet, wie der Name sagt, den Inhalt eines Graphik- 
bildes. Dabei muß jeder einzelne Punkt des Bildschirms separat ge- 
speichert werden. Bei einer Auflösung von 320x200 (in hochauflösen- 
der Graphik) sind dies 64000 Punkte, für deren Speicherung etwa 8K 
benötigt werden. 
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e) Spritedefinitionen: 


Um das Aussehen der verschiedenen Sprites zu speichern, werden vom 
Benutzer diverse Speicherbereiche reserviert, deren Umfang sich je- 
weils auf 63 Bytes erstreckt. In diesen 63 Bytes sind alle 21x24 Punkte 
eines normalen Sprite vermerkt. 


4.3.2.2 VIC-Speicheransteuerung: 


Die Ansteuerung der verschiedenen Speicherbereiche durch den 
Videocontroller ist weitaus einfacher und übersichtlicher als die vielen 
Möglichkeiten, die die CPU bietet. Hier kann man einfach nach dem 
Grundsatz vorgehen: Wenn im folgenden nichts anderes gesagt wird, 
so wird stets der RAM (auch in dem Bereich von $D000-$DFFF = 
53248-57343) vom Videocontroller angesprochen, selbst wenn für den 
Programmierer lediglich ROM erreichbar ist (also unabhängig von der 
Einstellung im Register | der CPU). Dies ist äußerst wichtig, da da- 
durch z.B. der Graphikspeicher platzsparend unter den ROM gelegt 
werden kann, also keinen BASIC-Speicherplatz verschwendet, wie dies 
z.B. in der SUPERGRAPHIK 64 verwirklicht wurde. Dieser Grund- 
satz gilt für: 


- Video-RAM 

- Graphikspeicher 
- Spritedefinitionen 
- Zeichengenerator 


Diese drei Speicher werden also stets aus dem RAM geholt - mit zwei 
Ausnahmen: 


Werden durch eine Einstellung (wie im nächsten Abschnitt be- 
schrieben) die Speicherbereiche von $1000-$IFFF (4096-8191) oder 
von $9000-$9FFF (36864-40960) angesprochen (etwa, wenn man ver- 
sucht die Graphikseite nach $8000-$9FFF zu legen, oder in der Ein- 
schaltkonfiguration für die Sprites die Blöcke 64-127 (Bereich $1000- 
$IFFF) zu wählen), so werden nicht etwa die Informationen aus 
diesen RAM-Bereichen, sondern aus dem Zeichengenerator-ROM ge- 
holt, das bei $D000-$DFFF liegt (s.o.). 
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Diese zunächst merkwürdige Besonderheit erklärt sich aus der Tatsa- 
che heraus, daß nach dem Einschalten Ihres Rechners für den VIC 
nur die unteren 16 K des 64-Speicherbereiches ansteuerbar sind (s.u.). 
Der feste Zeichensatz, der ja bekanntlich für die Herstellung der ein- 
zelnen Textzeichen auf dem Bildschirm notwendig ist, liegt jedoch bei 
$D000-$DFFF unter den I/O-Adressen. Aus diesem Grunde wurde 
der Adresse $1000-$1IFFF jener Sonderstatus zugesprochen und der 
Zeichensatz logisch eigentlich nach $1000-$1FFF verlegt. Die anderen 
Funktionen fallen dem dann leider auch zum Opfer. Der Bereich 
$9000 resultiert ebenfalls aus dieser Sonderstellung. 


Bemerkenswert ist in diesem Zusammenhang, daß bei einer direkten 
Adressierung (also nicht indirekt über die Adresse $1000) der ver- 
schiedenen Funktionen (auch des Zeichensatzes) durch den Program- 
mierer in den Bereich $D000 ff. nicht etwa der dort liegende Zei- 
chensatz-ROM vom VIC angesprochen wird, sondern vielmehr der 
darunter liegende RAM. Die Speichereinteilung sieht im Schema also 
folgendermaßen aus: 

















Zeichensatz- ROM 


Dies nur der Vollständigkeit halber. Mehr davon in dem folgenden 
Abschnitt. 


Bei dem Farb-RAM ist die Sache fast noch einfacher: Da er nicht 
verschiebbar ist, wie die anderen Bereiche (s.u.), wird er stets aus dem 
Bereich $D800-$DBFF (55296-56319) gewonnen. Hier ist jedoch zu 
beachten, daß er einen eigenen, vom darunter liegenden RAM ver- 
schiedenen Bereich belegt, der für den Programmierer in der Ebene 
der I/O-Adressen liegt (s.o.). Der Farb-RAM bei $D800 darf also 
nicht mit dem normalen RAM bei $D800 verwechselt werden. 
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4.3.2.3 Verschieben der Bildschirmspeicher: 


Wohl mit eine der schönsten und praktischsten Dinge in der Speicher- 
verwaltung des Videocontrollers ist die Möglichkeit, die einzelnen 
Bildschirmspeicher in dem gesamten Speicher Ihres Rechners zu ver- 
schieben. Sie können also den Graphikspeicher, den Sie für Ihre 
Graphiken verwenden, sowohl z.B. nach $2000 (8192) schaffen als 
auch, wenn Sie die dortige Lage im BASIC-Bereich stört, meinetwe- 
gen etwa nach $E000 (41440) unter den ROM verschieben. Vielleicht 
legen Sie sogar zwei oder mehr Graphikseiten an, von denen Sie dann 
eine bearbeiten können, während die andere sichtbar für den Beob- 
achter bleibt, wie dies z.B. in der Graphikerweiterung 
SUPERGRAPHIK 64, die eben schon angesprochen wurde, möglich 
ist. 


Oder Sie verschieben den Zeichensatzspeicher in einen anderen Be- 
reich und können sich so Ihren eigenen ganz persönlichen Zeichensatz 
erstellen (z.B. mit Umlauten, Sonderzeichen, ... - siehe hierzu auch 
Kap. 4.6, 4.4). Es eröffnet sich Ihnen eine derartige Fülle von Mög- 
lichkeiten, wie Sie sich zur Zeit wahrscheinlich noch gar nicht vor- 
stellen können! 


Doch bei jeder Verschiebung halten Sie stets im Auge, welche 
Speicherbereiche der VIC überhaupt ansteuern kann, was soeben im 
vorherigen Abschnitt dargelegt wurde. So wird es beispielsweise nie 
gehen, eine Spritedefinition in den RAM bei $1000-$1FFF zu legen, 
da dort - wie Sie wissen - der VIC nicht RAM sondern den Zeichen- 
satz-ROM bei $D000-$DFFF ließt (s.o.). Deshalb ist das Verständnis 
des Paragraphen 4.3.2.2 für die folgenden Ausführungen von unbe- 
dingter Notwendigkeit! 


a) Allgemeine Verschiebung: 


Der VIC oder Videocontroller kann von Haus aus, also intern für sich 
lediglich 16 K ($0000 - $3FFF oder %0000 0000 0000 0000 bis 
%0011 1111 1111 1111) adressieren. Unser Adressierungsbereich um- 
faßt aber 64 K, also 4 mal so viel. Dem VIC fehlen demnach die 
obersten zwei Adressenbits (Bits 14 und 15). Sie müssen von außen 
zugeführt werden. Hierfür ist ein Register zuständig, das (selbstver- 
ständlich) bereits in Kap. 4.1 erwähnt wurde, es ist das 


Register 0, Bits 0/1 der CIA 2 ($DD00=56576) 
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Diese beiden Bits stellen die gesuchten zwei obersten Adreßbits für 
die Speicheradressierung des VIC dar (im folgenden Schaubild unter- 
strichen): 


Adreßbits $FEDC BA9YS 7654 3210 


Man könnte Sie also einfach einsetzen und hätte die vollständige 
Adresse. Die Sache hat aber einen kleinen Haken. Diese beiden Bits 
sind LOW-Aktiv, d.h. sind sie gesetzt, so gelten Sie als gelöscht und 
umgekehrt. Wollen wir die richtige Adresse erhalten, so müssen wir 
sie erst umdrehen (invertieren). Haben wir dies erledigt, so kennen 
wir den Bereich, den der VIC nun ansteuern kann, d.h. es verschieben 
sich automatisch alle Bildspeicherfunktionen, die vom VIC angesteuert 
werden (außer der Farb-RAM), jeweils in 16 K-Schritten: 


- Video-RAM 

- Graphikspeicher 
- Zeichengenerator 
- Spritedefinitionen 


Zu Ihrer Unterstützung seien hier die Speicherbereiche tabellarisch 
festgehalten, die durch eine bestimmte Belegung dieser Bits in die 
Reichweite des VIC gelangen: 


B 0/1 Adr-B erreichbare Adressen 
11 00 $0000-$3FFF ( 0-16383) 
10 01 $4000-$7FFF (16384-32767) 
01 10 $8000-$BFFF (32768-49151) 
00 11 $c000-$FFFF (49152-65535) 


Unter "B 0/1" wird hier die Belegung der zwei Bits aus Register 0 der 
CIA 2 verstanden. "Adr-B" sind dann die daraus resultierenden 
Adreßbits 14 und 15 für die VIC-Speicheradressierung. Die originale 
Belegung ist: B 0/1=11, also der erste Fall in der Tabelle. Nur so kann 
der Video-RAM von $0400-$07FF (1024-2047) gehen und der Zei- 
chensatz (durch die Sonderstellung der Adresse $1000 (s.o.)) bei $D000 
(53248) liegen. 


Ein Beispiel: Angenommen, Sie wollen aus irgendeinem Grunde den 
Video-RAM, der ja die Speicherung aller Bildschirmzeichen vor- 
nimmt, nach $C400 (bzw. 50176 = 49152+4*256) verschieben (abgese- 
hen einmal davon, daß ohne weitere Änderungen dann keine Zeichen 
mehr auf dem Bildschirm verändert werden können). Zu diesem 
Zweck geben Sie lediglich den Befehl: 
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POKE 56576, PEEK(56576) AND 253 OR 0 


ein, und schon holt sich der VIC seine Informationen nur noch aus 
dem Bereich zwischen $C000 und $FFFF, was in unserem Falle zu 
einem wilden Chaos auf dem Bildschirm führt (nur die Farbe kann 
richtig verändert werden, wegen der Unverschiebbarkeit des Farb- 
RAMSs), das durch den Befehl 


POKE 56576, PEEK(56576) AND 253 OR 3 


wieder rückgängig gemacht werden kann (was Sie dort blind in die 
Tastatur eingeben erscheint natürlich erst nach dem <return> auf dem 
Bildschirm, falls Sie keinen Fehler gemacht haben.). 


b) Verschieben des Video-RAM: 


Zusätzlich zu dieser allgemeinen Verschiebung kann u.a. separat auch 
noch der Video-RAM innerhalb dieses 16 K Adressierungsbereiches 
in kleineren Schritten verschoben werden. Diese Verschiebung ist 
möglich durch die Veränderung des VIC-Registers 24 ($18), speziell 
der Bits 4-7 (s. Kap. 4.1). Diese 4 Bits legen hier einen Teil der 
Adresse zur Ansteuerung des Video-RAMs fest. Es sind dies die 
Adreßbits 10-13 ($A-$D). Das folgende Schaubild mag das erläutern: 


Adressbits SFE |DC BA|98 7654 3210 


CIA2 | Reg. 4 | vIC- intern 
80/1 | Bits 4-7 | 


Der Video-RAM kann also in I K-Schritten innerhalb des gesamten 
16 K-Adressraumes verschoben werden. Nach dem Einschalten lauten 
die 4 besagten Bits: %0001. Aus diesem Grunde liegt unser Video- 
RAM (in Funktion als Textspeicher) bei $400 (1024). Wichtig ist, daß 
diese Adresse - anders als die unter a) beschriebene Verschiebemög- 
lichkeit - nur und ausschließlich für den Video-RAM gilt. Bei einer 
Veränderung dieser Bits bleiben die anderen Speicherbereiche in ihrer 
Lage unverändert. 
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Ein Beispiel: Wir wollen unseren Video-RAM, also den Textspeicher, 
der noch bei $400 (1024) liegt, nach $800 (2048) verlegen (auch hier 
erwarten wir natürlich Nonsense, da hier der BASIC-Speicher be- 
ginnt). Dies erreichen wir mit dem Befehl: 


POKE 53248+24, PEEK(53248+24) AND 15 OR 2*16 


Um uns wieder in die heimischen Gefilde, sprich: zu unserem alten 
Video-RAM zu begeben, drücken wir ein: 


POKE 53248+24, PEEK(53248+24) AND 15 OR 1*16 


Diese Verschiebemöglichkeit kann z.B. von Nutzen sein, wenn Sie so 
große BASIC-Programme verwenden, daß Sie den Speicherbereich von 
$400-$7FF ebenfalls nutzen möchten, oder Sie verwenden zwei Text- 
seiten, die Sie dann ständig umschalten oder ... oder ... oder ... 


c) Verschieben des Zeichengenerators: 


Neben dem Video-RAM können Sie auch den Zeichengenerator 
innerhalb des unter a) gewählten 16 K-Raumes verschieben. Auch 
hier dient uns das 24. Register des VIC als Zwischenspeicher für 
einige Adreßbits. Diesmal sind es lediglich 3, die die Adreßbits 11-13 
darstellen, weswegen wir den insgesamt 2x2 K großen Zeichensatz le- 
diglich in 2 K-Schritten verschieben können: 


Adressbits SFFE|DC B|A98 7654 3210 


CIA2 | Reg. | VIC-intern 
80/1 | Bit1-3 | 


Interessant ist, daß auch das Betriebssystem Ihres Computers von 
diesen 3 Bits Gebrauch macht. Wenn Sie durch die Tastenkombination 
<C=><shift> auf den alternativen Zeichensatz umschalten, so ändert 
Ihr Rechner das 11. Bit der Zeichensatzadresse durch Änderung des 1. 
Bits von VIC-Register 24 (s. auch Kap. 4.6). 


Wichtig ist dabei das unter Kap. 4.3.2.2 zu der Sonderstellung des 
Adressenbereiches von $1000-$1FFF (4096-8191) Gesagte. Wollen Sie 
den Zeichengenerator verschieben, um z.B. einen eigenen zu betrei- 
ben, so ist es vielleicht sehr nützlich, wenn Sie auch den Kap. 4.3.1 
gelesen haben. 
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d) Verschieben des Graphikspeichers: 


Auch die Lage des Graphikspeichers kann gewählt werden. Da er 
jedoch 8 K groß ist, paßt er nur zweimal in den 16 K-Adressierungs- 
bereich hinein. Aus diesem Grunde können Sie auch nur ein separates 
Bit für ihn wählen (außer natürlich der allgemeinen Verschiebung). Es 
ist dies das 3. Bit des VIC-Registers 24, das nun praktisch zwei Auf- 
gaben besitzt: 


- Zeichensatzverschiebung 
- Graphikspeicherverschiebung 


Wie beim Zeichensatz bestimmt es das 13. Bit der Graphikspei- 
cheradresse: 


Adressbits $FE|D|C BA9S 7654 3210 


cıa2 |B | VIC- intern 
80/1 | 3 | 


Liegt Ihr VIC-Adreßbereich z.B. bei $0000-$3FFF (0-16383), so 
können Sie wählen, ob der Graphikspeicher bei $0000 oder $2000 
(8192) beginnen soll (in diesem Fall empfiehlt sich natürlich zweiteres, 
da ansonsten Nullseite, Stack usw. in Mitleidenschaft gezogen 
würden). Alles weitere erfahren Sie im nächsten Kapitel 4.4. 


4.4 Punktgraphik 


Nach so vielen Einzelheiten über Register und Speicherverwaltung 
sollten wir uns nun einmal speziell dem Aufbau der hochauflösenden 
bzw. der Multicolor- Graphik, also der sogenannten Punktgraphik (da 
jeder Punkt einzeln angesteuert werden kann) widmen - ein hochin- 
teressantes Thema und unumgänglich für jeden Graphikprogrammie- 
rer. Dieser Abschnitt (und die vier folgenden) sind die hardwaremäßi- 
gen Vorbereitungen auf die im Kapitel 4 dargelegten Programmier- 
möglichkeiten. Versuchen Sie also, auch wenn Sie nicht alles verstehen 
sollten, sich in diesen Komplex hinein zu denken und wenigstens in 
etwa den Aufbau der Graphik gegenwärtig zu haben. Dabei wird sich, 
wie Sie sehen, die recht komplizierte Farbrealisierung Ihres Gerätes in 
den verschiedenen Graphikarten besonders später in der Anwendung 
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als ziemlich schwierig herausstellen. Geben Sie jedoch nicht auf. Ein 
Buch und ganz besonders eines dieser Art sollte sowieso mindestens 
zweimal gelesen werden. Mit manchen Passagen werden Sie wahr- 
scheinlich täglich arbeiten, wenn Sie sich näher der Graphik widmen 
wollen. Fangen wir aber gleich einmal an: 


4.4.1 Farben: 


Ihr Commodore 64 verfügt über die Möglichkeit, 16 Farben sowohl im 
Graphikbetrieb als auch (wie sicher schon bekannt) für die Textge- 
staltung zu verwenden. Diese 16 Farben besitzen jeweils einen soge- 
nannten Farbcode, der als Binärzahl in die verschiedenen Register 
gespeichert wird, die dem Gerät zur Zeichendarstellung verhelfen. 
Wird z.B. in das 32. Register des Video Interface Chips der Wert 0 
gePOKEd, so nimmt der äußere Bildschirmrahmen die Farbe schwarz 
an. Im Folgenden sind die den einzelnen Farben zugeordneten Codes 
aufgelistet (im Anhang finden Sie eine vollständige Tabelle, die sich 
mit dem gleichen Thema beschäftigt): 


Code | Farbe Code | Farbe 
Dez | Hex | Dez | Hex | 
0 | $00 | schwarz 8 | $08 | orange 
1 | $01 | weiß 9 | $09 | braun 
2 | $02 | rot 10 | $0A | hellrot 
3 | s03 | türkis 11 | $0B | grau 1 
4 | $04 | violett 12 | $oc | grau 2 
5 | $05 | grün 13 | $0D | hellgrün 
6 | $06 | blau 14 | $OE | hellblau 
7 | s07 | gelb 15 | $OF | grau 3 


Diese Tabelle wird Sie ständig in allen Bereichen der Graphik beglei- 
ten, sei es, Sie arbeiten mit Sprites, Graphik, Text oder was auch 
immer. Sie sollten Sie also stets im Auge halten. Über den Einsatz der 
Farben wird Ihnen in den entsprechenden Kapiteln Auskunft gegeben. 
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4.4.2 Hochauflösende Graphik (HGR) 


Ihr Rechner hat die Möglichkeit, von Haus aus zwei verschiedene 
Graphikarten zu bedienen: 


- hochauflösende Graphik (HGR) 
- Multicolorgraphik (MC) 


Erstere bietet Ihnen ein Graphikfeld von 320 Punkten in x-Richtung 
(waagerecht) und 200 Punkten in y-Richtung (senkrecht). Man spricht 
von einer Auflösung von 320x200. Dies verschafft Ihnen ein Reservoir 
von insgesamt 64.000 Punkten jeweils in gleicher Dichte verteilt auf 
Ihrem Bildschirmfenster. 


Natürlich muß die Graphik genauso wie der Text oder die Farbe ge- 
speichert sein. Schließlich muß der VIC das auf dem Bildschirm ent- 
stehende Bild alle ca. 1/20 Sekunden selbst auf Ihrem Fernseher oder 
Monitor neu erstellen, damit Sie es ständig beobachten können (s. 
Lightpenkapitel). Dies geschieht für die Punktgraphik mit Hilfe des 
sogenannten Graphikspeichers. Jeder Punkt ist einzeln ansprechbar 
und in diesem Graphikspeicher durch ein Bit repräsentiert. Wie Sie 
wissen (s. Kapitel 2) ist ein Bit eine Informationseinheit und kann die 
Werte 1 oder 0 annehmen. Jeweils 8 Bit hintereinander bezeichnet man 
bekanntlich als ein Zeichen (Wort) bzw. als ein Byte. Ein Byte kann 
also 2 hoch 8 = 256 verschiedene Werte annehmen. Diese kommen 
durch die verschiedenen Kombinationen von gesetzten (l) und nicht 
gesetzten (0) Bits zustande. 


Ein Byte repräsentiert also 8 Punkte auf Ihrem Bildschirm. Folglich 
bedarf es 64000/8 = 8000 Bytes (etwa 8 Kilobytes (8 K)), um den ge- 
samten Bildschirminhalt der HGR zu speichern. Wie Sie vielleicht aus 
dem Kap. 4.3.2.3 wissen, falls Sie sich es durchgelesen haben, können 
diese 8 K irgendwo im 64 K-Speicher Ihres Rechners plaziert werden. 
Haben Sie dies getan (s. Kap. 4.2.1.1), so können Sie anfangen. Vorher 
aber müssen Sie erfahren, wie denn eigentlich der Aufbau des Gra- 
phikbildes aus den Speicherinformationen vonstatten geht: 


Hardwaregrundlagen 333 
a) Graphikaufbau: 


Man könnte sich vorstellen, daß der Graphikspeicher ein direktes Ab- 
bild des Bildschirms ist, also Reihe für Reihe nacheinander alle not- 
wendigen Bytes hintereinander folgen. Doch die Angelegenheit ist 
nicht so einfach, wie sie ausschaut. Der Graphikspeicher besitzt (das 
ist hardwaremäßig einfacher zu gestalten) den gleichen Aufbau wie 
der später beschriebene Zeichengenerator. Ein Zeichen besteht, das 
kann man hier schon einmal vorwegnehmen, aus 8x8-Punkten. Sie be- 
sitzen also eine sogenannte 8x8-Punktematrix (Matrix ist der ge- 
bräuchliche Begriff für Raster). 


Grundlage des Graphikspeichers ist ebenfalls eine 8x8-Matrix, die je- 
weils durch 8 Bytes des Graphikspeichers dargestellt wird. Da eine 
solche Matrix also 8 Punkte hoch und breit ist, passen insgesamt 320/8 
= 40 solcher Päckchen in eine Zeile und 200/8 = 25 in eine Spalte 
(genauso ist der Aufbau im Textmodus). Ein Byte liefert nun die In- 
formation für eine 8-Punkte breite Reihe eines solchen Päckchens. 8 
Bytes untereinander (im Speicher natürlich hintereinander) stellen so- 
mit diesen Block dar. Dabei bilden die einzelnen korrespondierenden 
Bits jedes dieser 8 zusammengehörenden Bytes - also Bits der gleichen 
Nummer oder Wertigkeit - untereinander liegende Punkte. Dies kann 
anhand eines kleinen Schaubildes verdeutlicht werden: 


Spalte 0 Spalte 1 
Bit: 76543210 76543210 usm. 


Z.ByteD u. aan a ee 
e:iByte | un net ae a ee 
i Byte 
U Byte 
e Byte 
Byte 
0 Byte 
Byte 
ZuByte-320: a So ee a ee 
Byte. 321 2. ee 3 
1 Byte 322.2... 2 20. 
USW. 


souvu nun-o 
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Es wird also Zeile für Zeile aus diesen Päckchen generiert. Noch 
etwas zu Terminologie: Eine Spalte nennt man die 8 Punkte dicken 
senkrechten "Balken", von denen jeweils 40 nebeneinander auf den 
Bildschirm passen. Eine Zeile ist das gleiche, nur waagerecht ausge- 
richtet. 25 Zeilen passen somit untereinander in das Graphikfenster. 
Jede Spalte besteht aus 8 senkrechten Reihen, jede Zeile aus 8 waage- 
rechten Reihen. Damit passen 320 senkrechte und 200 waagerechte 
Reihen in ein Bild. Jede Spalte, Zeile und Reihe ist numeriert (star- 
tend bei 0) und kann so genau lokalisiert werden. Diese Vereinbarun- 
gen sind im folgenden wichtig, um Verwechslungen zu vermeiden. 


Um nun auf einfache Weise einen einzelnen Punkt anzusprechen, gibt 
man am besten jedem Punkt eine sogenannte Koordinate. Dies sind 
zwei Werte (x und y), die die Nummer der senkrechten (x-Koordi- 
nate) und die der waagerechten Reihe (y-Koordinate) angeben, in 
denen sich der Punkt befindet. Damit ist jeder Punkt des Bildschirms 
eindeutig bestimmt. Um nun aus dieser Koordinate die Position des 
entsprechenden Bytes und Bits im Graphikspeicher zu berechnen, be- 
hilft man sich einer entsprechenden Formel, die im Kap. 4.2 unter 
"Zeichnen eines Punktes" angeführt und erläutert wird (vielleicht ver- 
suchen Sie es interessehalber einmal selbst. Das Schema der 
Zeilenanfangsadressen des Graphikspeichers im Anhang sollte Ihnen 
dabei eine gute Hilfe sein). 


Zum Schluß noch eine Bemerkung: Wie Sie vielleicht schon bemerkt 
haben, werden nicht alle Bytes der genannten 8 K für den Graphik- 
speicher verwendet, genauer gesagt nur 8000 ($1F40). Die restlichen 
192 ($C0) Bytes können von Ihnen für andere Zwecke genutzt werden. 
Ähnliches gilt, wie Sie sehen werden, auch für die anderen Speicher- 
bereiche. 


b) Farbaufbau: 


Zu jedem hochauflösenden Bild, d.h. zu jedem Graphikspeicher, ge- 
hört auch ein Farbspeicher. Dieser wird durch den sogenannten 
Video-RAM dargestellt. Der Video-RAM dient normalerweise dazu, 
Text oder allgemein Zeichen, die durch Tastendruck auf dem Bild- 
schirm erscheinen, zu speichern, damit der VIC sein Bild erstellen 
kann. Wenn Sie ihn also nicht verschieben und somit dort lassen, wo 
normalerweise der Text gespeichert ist, dann erscheinen die verschie- 
denen Zeichen des ursprünglichen Text-Bildschirms als kleine Farb- 
quadrate auf dem Graphikbildschirm (Über die Verschiebemöglich- 
keiten von Video-RAM usw. gibt Ihnen Kap. 4.3.2.3 Auskunft). 
Diesen Effekt können Sie bei dem folgenden Programm beobachten: 
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100 V = 53248 : REM BASISADRESSE VIDEORAM ($D000) 
110 REM 


120 REM a2 2 2 2 2 2 2 2 20202 


130 REM ** TEIL 1 ** 


140 REM Ki 
150 REM 
160 REM GRAPHIK EINSCHALTEN: 


170 POKE V+17, PEEK(V+17) OR 6*16 : REM BITS 5 UND 6 VIC-REGISTER 17 
SETZEN 

180 REM GRAPHIKSPEICHER NACH $2000 (8192) VERSCHIEBEN: 

190 POKE V+24, PEEK(V+24) OR 8 : REM BIT 3 VIC-REGISTER 24 SETZEN 

200 REM WAIT 198,255 : GOTO 220 : REM AUF TASTE WARTEN 

210 END 

220 REM 


230 REM a2 2 2 202 2 2 2 20202 


240 REM ** TEIL 2 ** 


250 REM He 

260 REM 

270 REM GRAPHIK AUSSCHALTEN: 

280 POKE V+17, PEEK(CV+17) AND 9*16+15 : REM BITS 5 UND 6 VIC-REGIS TER 
17 LOESCHEN 

290 REM ZEICHENGENERATOR RUECKSETZEN: 

300 POKE V+24, PEEK(V+24) AND 15*16 + 7 : REM BIT 3 VIC-REGISTER 24 
LOESCHEN 

310 END 


Dieses Programm können Sie in zwei Variationen laufen lassen: 


1.) so, wie es hier steht 
2.) indem Sie das erste REM in Zeile 200 weglassen 


Im ersten Fall endet das Programm sofort nach dem Umschalten und 
Sie können weitere Eingaben machen, die Sie nun allerdings nicht 
mehr normal sehen, sondern - wie gesagt - jeden Buchstaben als 


Farbquadrat. Wollen Sie wieder auf normalen Text zurückschalten, so 
geben Sie ein: 


RUN 220 


Im zweiten Fall wartet das Programm auf eine Taste Ihrerseits und 
schaltet dann die Graphik automatisch wieder aus (s. Kap. 4.2) 
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In diesem Beispiel wird der Graphik-Farbbezug deutlich. Tatsächlich 
bestimmt ein Byte des Video-RAM die Farbe für ein 8x8-Punktefeld 
der HGR. In HGR kann dabei für jedes solches Kästchen sowohl die 
Hintergrundfarbe, also die Farbe der nicht gesetzten Punkte (oder 
Bits), und die sogenannte Punktfarbe, d.h. die Farbe der gesetzten 
Punkte (oder Bits) jeweils aus den 16 verschiedenen Farben gewählt 
werden. Dabei bestimmen in jedem Byte des Video-RAMSs die ober- 
sten 4 Bits die Punkt- und die unteren 4 die Hintergrundfarbe dieses 
Kästchens. Die Farbauflösung ist also weitaus geringer als die normale 
Graphik erlaubte. Dies war insofern notwendig, als es arg zu viel 
Speicher verschlingen würde, wenn jedem der 64.000 Punkte eine ei- 
gene Farbe zugemessen werden könnte (zumal ein normaler Farbfern- 
seher damit sowieso Probleme hätte). Sie bräuchten dafür 64.000 * 4 = 
256.000 Bits, also 32 K RAM. Die Bearbeitungsgeschwindigkeit wäre 
ebenfalls erheblich herabgesetzt, was einen eigenen Graphikprozessor 
notwendig machen würde! 


Der Video-RAM ist nun etwas einfacher organisiert, als der Gra- 
phikspeicher. Hier werden Byte für Byte und Zeile für Zeile nach- 
einander in den Speicher abgelegt. Der Aufbau sieht dann so aus: 


Spalte 
zeile| 0123456 7... 39 
0 | $00 01 02 03 04 05 06 07 ... 27 
1 | SIE 1F 20 21 22 23 24 25 ... 4F 
2 | $50 51 52 53 .... 


24 |$3c0 3C1 ... 


Im hochauflösenden Graphikbetrieb ist jedem Byte des Video-RAM 
also ein eindeutig bestimmtes 8x8-Feld zugeordnet. Hat man die 
Speicheradresse eines Punktes (abzüglich der Startadresse des Gra- 
phikspeichers), so braucht man diese lediglich durch 8 zu teilen und 
schon besitzt man die Adresse des korrespondierenden Video-RAM- 
Bytes, zu der man nun nur noch die Startadresse des Video-RAM 
hinzuaddieren muß. 
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4.4.3 Multicolorgraphik (MC): 


Bevor Sie sich diesem Abschnitt widmen, sollten Sie sich zunächst 
einmal mit dem letzten Paragraphen (Kap. 4.4.2) beschäftigt haben, da 
das in jenem Teil des Buches vermittelte Wissen hier zum Teil voraus- 
gesetzt wird. 


Wie Sie dort gesehen haben, besitzt Ihr Commodore 64 eine recht hohe 
Graphikauflösung. Die Farbe kommt dabei jedoch (trotz 16 verschie- 
dener Töne) etwas zu kurz. Um dieses speicherplatzbedingte Manko 
auszugleichen, haben sich die Konstrukteure entschlossen, einen 
zweiten Graphikmodus einzuführen, den eine größere Farb-, dafür 
allerdings eine niedrigere Graphikauflösung auszeichnet: Den Multi- 
colormodus. 


Der Multicolormodus ermöglicht es, in einem 8x8-Block statt zwei, 
insgesamt 4 Farben gleichzeitig zu verwenden. Auch hier findet der 8 
K-Graphikspeicher Verwendung. Nun werden allerdings jeweils 2 Bit 
jedes Bytes für die Bestimmung eines doppelt breiten Bildschirm- 
punktes benötigt. Die Auflösung beträgt demnach 160 doppelt breite 
Punkte in x-Richtung (doppelt breit deshalb, da ansonsten das Bild- 
schirmfenster natürlich nur halb so groß wie normal wäre) und 200 
Punkte in y-Richtung (Auflösung: 160x200). 


Die Farbe stammt nun nicht mehr lediglich aus dem Video-RAM, 
sondern es werden gleichzeitig noch das Hintergrundfarbregister 0 des 
VIC und der Farb-RAM hinzugezogen. Wir unterteilen diese Bereiche 
in 4 sogenannte Farbkanäle, die von O0 bis 3 durchnumeriert sind. 
Jedes Bitpaar, das ja für einen Punkt zuständig ist und damit Werte 
von 0-3 (%00-%11) annehmen kann, teilt dem VIC nun mit, aus 
welchem Kanal er die Farbe des Punktes beziehen soll (In HGR war 
es bekanntlich so, daß das eine zuständige Bit angab, ob die Farbe aus 
dem Hintergrundkanal oder dem Punktfarbkanal stammte). Im 
Graphikspeicher steht also nicht, welche Farbe (Farbcode) ein Punkt 
haben soll, sondern vielmehr, wo dieser eigentliche Farbcode steht. 
Die Bitpaar-Kanal-Speicher-Beziehung wird in dem angefügten 
Schema verdeutlicht: 


Bitcode | Kanalnr. | Speicherbereich des Kanals 


00 ] 0 | Register 33 des VIC 

01 | 1 | untere 4 Bits des Video-RAM 
10 | 2 | obere 4 Bits des Video-RAM 
11 | 3 | Farb-RAM 
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Unter Bitcode verstehen wir hier die Binärzahl, die die zwei Bits dar- 
stellen, die jeweils für einen Punkt zuständig sind. Der Speicherbe- 
reich eines Kanals ist der Teil des Speichers, der durch einen Kanal 
bzw. durch eine Bitcodeeinstellung angesprochen wird. 


Ein Beispiel: Im Graphikspeicher wird ein Punkt durch die zwei Bits 
mit den Belegungen O und I dargestellt. Der resultierende Bitcode %0l 
spricht den Kanal I an und damit die unteren 4 Bits des zuständigen 
Bytes des Video-RAM. Dieses zuständige Byte ermittelt man auf 
genau die gleiche Weise, wie unter Kap. 4.4.2 (HGR) dargestellt. 


Neu hierbei ist nun, daß die Farbe 3 bzw. der Kanal 3 aus dem Farb- 
RAM stammt. Dieser Farb-RAM ist normalerweise für die Farbe des 
im Video-RAM befindlichen Textes zuständig. Da der Farb-RAM 
nicht verschiebbar ist, kommt es an dieser Stelle zwangsläufig zu 
Überschneidungen, wenn gleichzeitig Multicolor und Text verwendet 
werden. Auch hier läßt sich wieder die Adresse des für einen Punkt 
zuständigen Bytes des Farb-RAMs auf die unter HGR angegebene 
Weise bestimmen, da er genauso organisiert ist wie der Video-RAM. 


Wie in HGR können diese Farben jeweils für ein 8x8- bzw. (wegen 
der halben Auflösung) 4x8-Punktefeld durch ein zuständiges Byte des 
Video- oder Farb-RAMSs festgelegt werden. Dabei ergibt sich die 
Möglichkeit, jedem solchen Kästchen seine eigene Farbkombination 
zuzuweisen. Lediglich Kanal 0, also die Hintergrundfarbe stammt für 
die gesamte Graphik aus dem Hintergrundfarbregister O0 des VIC (Reg. 
33) und ist damit für das ganze Bild einheitlich. 


Wichtig ist bei der Erstellung von Multicolor-Graphiken, auf die 
Verzerrung in x-Richtung zu achten, die durch die doppelte Punkt- 
dicke zustande kommt. 


Zum besseren Verständnis sei hier noch einmal ein Schema der Spei- 
cherstruktur des Graphikspeichers in Multicolor angeführt, das Ihnen 
das oben Gesagte noch einmal veranschaulichen soll: 
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| Spalte 0 | Spalte 1 Ir: 

Bit: | 76543210| 76543210 | usm. 
2 Byte 0 | <-> <-> <-> <-> | <-> <- > | 
e Byte 1 | > <-> <-> | <-> <- >| 
i Byte 2 | - "> <-> <-> | <-> < | 
l Byte 3 | <-> <-> <-> <-> | | 
e Byte4 | > <-> <-> | | 
Byte 5 | <-> <-> <-> <-> | | 
0 Byte6 | > <> <> | | 
Byte 7 | > <> <> | | 
Z Byte 3200| <-> <-> <> <> | <- > <> <-> | 
„ Byte 321| <-> <-> <-> <-> | <-> <-> | 
1 Byte 322| <-> <-> <-> <-> | l 
USW. | ] | 


In diesem Schema stellen die "<->" jeweils den doppelt breiten Punkt 
dar, der auf dem Bildschirm erscheint. An dieser Stelle möchte ich Sie 
noch einmal auf die unterschiedliche Belegung des Video-RAMSs bei 
HGR und MC hinweisen. Zugegebenermaßen wird die Handhabung 
der Graphik durch diese schwer durchschaubaren Verhältnisse und 
Unterschiede nicht gerade vereinfacht. Auch scheint mir die Auftei- 
lung der Farbauflösung nicht gerade gelungen, da sich hierdurch, wie 
wir noch im 4. Kapitel sehen werden, einige Probleme ergeben. 
Trotzdem läßt sich doch Einiges mit ihr erreichen. Sie werden sehen, 
schöne Effekte sind an der Tagesordnung. 


4.5 Sprites 


Eines der hervorstechendsten Merkmale Ihres Commodore 64 sind 
natürlich die Sprites. Sprites sind eigenständige kleine Graphiken, die 
unabhängig voneinander und von dem übrigen Bildschirminhalt in 
dem Text- oder Graphikfenster bewegt werden können. Insgesamt 
haben Sie die Möglichkeit, 8 Sprites gleichzeitig auf den Bildschirm zu 
bringen. 
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Sprites können bezüglich Ihrer Farbe, Ihrer Größe und der Priorität 
vor den Hintergrundzeichen und auch gegeneinander variiert werden. 
Sie können Kollisionen zwischen Sprites untereinander und mit dem 
Hintergrund feststellen. Zudem besitzen Sie auch hier die Möglichkeit, 
zwischen den beiden Spritemodi 


- normal 
- Multicolor 


zu wählen, wobei Sie dies bei jedem einzelnen Sprite getrennt be- 
stimmen können. All diese Funktionen können sehr leicht mit Hilfe 
des VIC (Videocontroller 6567) und seinen Registern realisiert werden. 
Zunächst aber wollen wir uns einmal mit dem Aufbau der Sprites be- 
schäftigen. Da wir es dabei in besonderem Maße mit der Binärarith- 
metik und den verschiedenen Registern Ihres Computers zu tun haben 
werden, sollten Sie sich vorher diese Kapitel (Kap. 4.1 und Anhang) 
zu Gemüte führen oder, falls Sie diese noch nicht richtig verstanden 
haben, noch einmal konzentriert lesen. 


Während der Erörterung des Spriteaufbaus sollten Sie zwei Dinge stets 
im Kopf behalten: 


Sie können (wie gesagt) gleichzeitig insgesamt 8 verschiedene Sprites 
auf dem Bildschirm darstellen. Jedem Sprite ist eine spezifische 
Nummer (0-7) zugeordnet, die Sie durch das gesamte Kapitel beglei- 
ten wird. 


4.5.1 Aufbau und Farbe normaler Sprites 


Jedes normale Sprite besteht aus 504 Punkten, die Sie einzeln setzen 
oder löschen können. Verwendet wird dabei eine 24x21-Punktematrix, 
d.h. ein Sprite ist 24 Punkte breit und 21 Punkte hoch. Innerhalb 
dieses Bereiches können Sie nun die unterschiedlichsten Graphiken 
oder Figuren erstellen. 


Um die Definition, d.h. das Aussehen unserer Sprites zu speichern 
und dem VIC mitzuteilen, bedarf es insgesamt 504/8 = 63 Bytes, da 
jeder einzelne Punkt als ein Bit abgelegt wird und ein Byte - wie Sie 
wissen - 8 Bits umfaßt. Da jedes Sprite eine Breite von 24 Punkten 
besitzt, passen in eine Reihe genau 24/8 = 3 Bytes hinein. D.h. die 
ersten drei Bytes bestimmen die 24 Punkte der ersten Reihe. 
Dementsprechend wird mit der zweiten, dritten, vierten usw. Reihe 
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verfahren. Jeweils 3 hintereinanderfolgende Bytes legen eine Reihe 
fest. Die nächste Reihe beginnt dann ebenfalls mit dem nächsten Byte. 
Wir können diesen Sachverhalt in einer kleinen Skizze darlegen: 


|spalte 0|Spalte 1I1|spalte 2 
ReihesBit: | 76543210|76543210|76543210 


OByte O0 |........ za Her er | 
1Byte 3|.. 2.000. Sega Re Ser ha a 
2 Byte 6|.... 22.0. ee leer 
3Byte II... 2200. 2:22 era 
WByte 2 NE ae | 


20 Byte 0 |. 2.222... I | 


Wollen Sie also ein Sprite eingeben, so geben Sie die zuständigen Bytes 
Spalte für Spalte und Reihe für Reihe nacheinander ein. Wie dies in 
BASIC realisiert wird, erfahren Sie in dem großen Kapitel 5. 


Sie können den insgesamt 8 verschiedenen Sprites, die Sie gleichzeitig 
auf den Bildschirm bringen können, jeweils unterschiedliche der zur 
Verfügung stehenden 16 Farben zuordnen. Dabei erhalten alle gesetz- 
ten Punkte die Farbe aus dem für das jeweilige Sprite zuständigen 
Spritefarbregister (VIC-Register 39-46). Wollen Sie also Sprite 5 weiß 
zeichnen, so belegen Sie das VIC-Register 39+5 = 44, also die Spei- 
cherstelle $D02C (53292) mit dem Wert I (für weiß). Alle nicht ge- 
setzten Punkte wirken transparent d.h. durchsichtig und sind daher 
nicht zu sehen. 


4.5.2 Aufbau und Farbe eines Multicolorsprites 


Nicht jedes Sprite besitzt diesen 24x21l-Punkte-Aufbau. Sie können 
jeweils zwischen hochauflösenden und sogenannten Multicolor-Sprites 
wählen. Erstere besitzen die gerade geschilderte Matrix und die dazu- 
gehörige Farbgebung. Die Multicolor-Sprites hingegen werden ähnlich 
der Multicolor-Graphik gebildet. Aus diesem Grunde besitzt ein sol- 
ches Sprite in x-Richtung die halbe Auflösung. Hier befinden sich 
also nur 12, jedoch doppelt breite Punkte in einer Zeile. Dafür aber 
kann ein Gebilde aus insgesamt vier verschiedenen Farben (mit der 
Hintergrundfarbe) zusammengesetzt sein, während - wie gesagt - ein 
hochauflösendes (HGR-) Sprite nur zwei Farben beinhaltet. Diese vier 
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Farben sind vergleichbar mit den Kanälen der MC-Graphik und in 
den verschiedenen VIC-Registern untergebracht. 


Um für jeden der 12x21 = 252 Punkte eines MC-Sprites den Farb- 
kanal zu bestimmen, aus dem die Farbe dieses doppelt breiten Punktes 
stammen soll, werden jeweils 2 Bits (Bitcode) verwendet, die bekannt- 
lich die Werte 0-3 (%00-%11) annehmen können und damit die Nr. 
des Kanals festlegen. Der VIC holt sich dann aus diesem Kanal die 
Farbe des Punktes. Die Zuordnung der Kanäle zu den einzelnen Bit- 
codes demonstriert die folgende Tabelle: 


Kanalnr. | Bitcode | Farbspeicher 


0 | | durchsichtig 

1 | 9 | Multicolor Reg. O0 (VIC-Reg 37) 
2 | v0 | Multicolor Reg. 1 (VIC-Reg 38) 
3 | 9 | Sprite Color Reg. (Reg. 39-46) 


Wie Sie sehen, kann lediglich die Farbe des Kanals 3 für alle 8 Sprites 
unterschiedlich sein, da diese für jedes Sprite in einem eigenen Regi- 
ster steht. Die anderen Farben (Farben I und 2 neben der Hinter- 
grundfarbe) sind jeweils für alle Sprites gleich, da sie aus identischen 
Registern gewonnen werden. Entgegen den Angaben des CBM 64 Be- 
nutzerhandbuchs können auch in Multicolor sämtliche 16 Farben zur 
Erstellung Ihrer Figuren verwendet werden. 


Um ein Sprite in Multicolor auf dem Bildschirm erscheinen zu lassen, 
ist es notwendig, dem VIC diese Absicht in einem speziellen Register 
mitzuteilen. Es ist dies das Register 28 ($1C), in dem jedem Bit des 8 
Bit großen Bytes eins der 8 Sprites zugeordnet ist. Ist hier ein Bit ge- 
setzt, so wird von nun an das entsprechende Sprite zu einem Multi- 
color - Sprite. Die Bitzuordnung dieses Registers ist die folgende: 


Bit: b7 b6& b5 b4 b3 b2 b1 b0 
Wert: 128643216 84 2 1 
Sprite: s7 s6 s5 s4 s3 s2 si sO0 


Wollen Sie z.B. Sprite 4 als Multicolorsprite verwenden, so setzen Sie 
in dem Register 28 des VIC gleichfalls das Byte 4, d.h. Sie POKEn, 
sofern Sie von BASIC aus hantieren, wie folgt: 


POKE 53248+28, 16 
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Wollen Sie mehrere Sprites derart darstellen (z.B. Sprites 1, 5 und 7), 
so geben Sie beispielsweise ein: 


POKE 53248+28, 1 OR 32 OR 128 oder: 
POKE 53248+28, 1 + 32 + 128 


(Ausnahmsweise kann der OR-Befehl auch durch eine Addition ersetzt 
werden) Der Aufbau eines MC-Sprites gleicht ansonsten einem nor- 
malen Sprite. Auch jenes wird in 63 Bytes abgelegt. Zur Veranschau- 
lichung ein entsprechendes Diagramm: 


|spalte O0OjSpalte 1]|Spalte 2 


ReihesBit: | 76543210|76543210|76543210 

0 Byte 0 | <-> <-> <-> <-> | <-> <-> <-> <-> | <-> <-> <-> <-> 

1 Byte 3 | <-> <-> <-> <-> | <-> <-> <-> <-> | <> <-> <-> <-> 

2 Byte 6 | <-> <-> <-> <-> | <-> <-> <-> <> | <-> <-> <-> <-> 

3 Byte 9 | <-> <-> <-> <-> | <-> <-> <-> <-> | <-> <> <-> <-> 

4 Byte 12 | <-> <-> <-> <-> | <-> <-> <-> <-> | <-> <-> <> <-> 
USW. 


20 Byte 60 ] <-> <-> <-> <-> | <-> <-> <-> <-> | <-> <-> <-> <-> 


Wie Sie sich vielleicht denken können, stellt hier ein "<->" jeweils 
einen doppelt breiten Punkt dar, der durch ein Bitpaar codiert wird. 


4.5.3 Spritedefinition - Farbe 


Wollen Sie nun ein Sprite auf den Bildschirm bringen, so haben Sie 
zunächst einige Dinge zu beachten. Als erstes sollten Sie sich natürlich 
erst einmal Gedanken über das Aussehen ihres Objektes machen und 
entsprechend die 63 notwendigen Bytes bereitstellen. Dazu werden 
Ihnen in Kapitel 5.3 einige Hilfen und Tips gegeben (u.a. ein sehr 
komfortabler Spriteeditor). 


Als Nächstes sollten Sie sich überlegen, wo in Ihrem Speicher Platz für 
diese 63 Bytes vorhanden ist. Dabei müssen Sie selbstverständlich das 
unter Kap. 4.3.2 Gesagte mit berücksichtigen. In der Einschaltkonfi- 
guration z.B. gibt es nur relativ wenige Möglichkeiten, Sprites unter- 
zubringen. Hier ist Platz für lediglich 4 verschiedene Spritedefinitio- 
nen. Wollen Sie noch mehr unterbringen, so müssen Sie schon ent- 
weder einfach den BASIC-Anfang (normal bei $0801 = 2049) ver- 
schieben (durch UmPOKEn der Speicheradressen $2B/$2C (43/44)), 
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wobei Sie allerdings beachten sollten, daß dies vor dem Einspeichern 
oder Einladen eines BASIC-Programmes geschehen muß, oder Sie 
verlegen den Video-RAM und haben den alten Video-RAM-Speicher 
von $400-$7FF zur freien Verfügung, was jedoch bei der gleichzeiti- 
gen Textanzeige ein UmPOKEn einer Speicherstelle notwendig macht, 
die das Highbyte des Video-RAM-Beginns enthält (normal: $04; das 
Highbyte wird dezimal errechnet durch: INT(Video-RAM-Start / 
256). Diese zu verändernde Speicherstelle hat die Adresse $288 = 648. 
Haben Sie z.B. den Video-RAM nach $0800 (= 2048) verlegt (was ne- 
benbei ebenfalls eine Verlegung des BASIC-Starts notwendig macht) 
und wollen Sie dort trotzdem Text darstellen, so geben Sie ein: 


POKE 648, INT(2048/256) 


Nach diesem UmPOKEn muß dann unbedingt ein <shift><cir/home> 
bzw. ein PRINT CHR$(147) zum Löschen des Bildschirms folgen. 


Doch in den meisten Fällen kommen Sie mit 4 verschiedenen Sprite- 
definitionen aus, da Sie für zwei gleich aussehende Sprites keine neue 
Definition abspeichern brauchen, wie Sie gleich sehen werden. 


Um dem VIC zu ermöglichen, die von Ihnen abgelegte 63-Byte Defi- 
nition zu finden und zu lesen, müssen Sie den 16 K-Adres- 
sierungsbereich des VIC in 256 Blöcke mit je 64 Bytes unterteilen. 
Diese Blöcke werden von 0-255 durchnumeriert. Nach dem Einschal- 
ten hätten die Blöcke die folgenden Startadressen (bei einer Verschie- 
bung des gesamten VIC-Adreßraumes durch Ändern der Bits 0/l von 
Register 0 der CIA 2 (s.o.) muß hier natürlich die neue Basisadresse 
hinzuaddiert werden): 


Block Startadresse 


0 $0000 - 0 
1 $0040 - 64 
2 $0080 - 128 
3 sooc0o - 192 
4 $0100 - 256 


USH. 
255 $3FCO - 16320 


In jedem solchen Block kann nun eine einzige Spritedefinition unter- 
gebracht werden. Dabei hat das letzte Byte des Blockes keine Bedeu- 
tung, da ja nur 63 Bytes für ein Sprite benötigt werden. In der nor- 
malen Einstellung stehen Ihnen jedoch lediglich die Blöcke: 


Hardwaregrund 45 


Block Adreßbereich 


11 $02C0-$O2FE (704- 766) 
13 $0340-$037E (832- 894) 
14 $0380-$03BE (896- 958) 
15 $03C0-SO3FE (960-1022) 


zur freien Verfügung, wobei jedoch angemerkt werden muß, daß die 
letzten 3 Bereiche sich mit dem Bandpuffer überschneiden, bei dem 
Arbeiten mit der Datasette also gelöscht werden. Dann beginnt die 
Möglichkeit des Spritegebrauchs erst wieder bei $2000 (8192), also 
Block 128 (Vorsicht bei langen BASIC-Programmen und großem 
Speicherbedarf!), da der Bereich von $1000-$1FFF (4096-8192) be- 
kanntlich dem Sonderstatus unterliegt (s. Kap. 4.3.2.2) und daher nicht 
benutzbar ist. Bei einer Verschiebung des 16 K-Adreßbereiches gelten 
natürlich evt. andere Beschränkungen. 


Was fangen wir aber mit diesen Dingen an? 

Um dem VIC jetzt mitzuteilen, in welchem Block er denn die von 
Ihnen abgelegte Spritedefinition findet, müssen Sie diese Blocknummer 
in eines der 8 letzten Bytes des Video-RAMSs legen (s. Kap. 4.1). Sie 
liegen in der Einschaltkonfiguration bei $07F8-$07FF (2040-2047). 


Wenn Sie einmal nachrechnen, wieviel Bytes eigentlich für die Spei- 
cherung eines Text-Bildschirminhalts benötigt werden, so kommen Sie 
auf lediglich 40x25 = 1000. Der Video-RAM umfaßt aber genau I K, 
also 1024 Bytes. Die restlichen 24 Bytes werden normalerweise nicht 
gebraucht und können von Ihnen frei verwendet werden, bis auf die 
letzten 8 Bytes. Sie werden eben für den gerade genannten Zweck 
benötigt. Jedem Byte ist dabei ein Sprite in der folgenden Weise zuge- 
ordnet (die Adressen gelten für die Position des Video-RAMs nach 
dem Einschalten und verschieben sich natürlich in dem Falle einer 
Änderung der Video-RAM-Adresse mit diesem): 


Register : $O7F& | 07F9 | 07FA | O7FB | O7FC | 07Fo | O7FE | O7FF 
2040 | 2041 | 2042 | 2043 | 2044 | 2045 | 2046 | 2047 


Spritenr.: oIı| ıJı 2| 3] 41|5|66 [| 7 
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Ein Beispiel: Angenommen, Sie haben ein Sprite in den Bereich von 
$03C0-$03FE (960-1022), also in Block 15 gelegt. Jetzt wollen Sie, 
daß sowohl Sprite Nr. 2 wie auch Sprite Nr. 6 so aussieht, wie Sie es 
in Block 15 definiert haben. In diesem Falle schreiben Sie mittels: 


POKE 2040+2, 15 : POKE 2040+6, 15 


den Wert 15 als Zeiger auf Block 15 in die entsprechenden Register 
ein. Sie sehen, daß auf diese Weise mehrere Sprites das gleiche Aus- 
sehen haben können, indem Sie einfach die Zeiger auf den gleichen 
Block setzen. 


Haben Sie nun in Block 14 ein weiteres Sprite definiert und wollen 
z.B. das Sprite Nr. 2 in seinem Aussehen ändern, so genügt lediglich 
ein 


POKE 2040+2, 14 


um damit schlagartig die Definition zu wechseln (s. Kap. 5.3). 


Wir wollen jetzt die beiden Sprites, die wir soeben definiert haben 
auch auf dem Bildschirm erscheinen lassen. Dazu müssen wir sie je- 
doch zunächst einmal einschalten. Das VIC-Register 24, "Sprite 
ein/aus", übernimmt diese Funktion. Jedem der 8 Bits des Registers ist 
ein Sprite in der gleichen Weise zugeordnet, wie uns dies schon von 
der Multicolorwahl (Reg. 28) her bekannt ist: 


Bit: b7 b6 b5 b4 b3 b2 b1 b0 
Wert: 12864321684 21 
Sprite: s7 s6 s5 s4 s3 s2 si s0 


In unserem Fall der Sprites 2 und 6 müssen wir also eintippen: 


POKE 53248+24, 64 OR 4 oder 
POKE 53248+24, 64 + 4 


Doch damit brauchen die Sprites noch nicht sichtbar zu sein, da sie 
meist erst in den Bildschirm hineinverschoben werden müssen. Um 
Näheres über die Programmierung der Sprites zu erfahren, sehen Sie 
bitte unter Kapitel 5 nach. 
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4.5.4 Weitere Spriteeigenschaften 


Doch mit dem einfachen Definieren, der Farbwahl und dem Ein- 
schalten haben wir noch längst nicht alles ausgeschöpft, was uns an 
Gestaltung und Veränderung der Sprites zur Verfügung steht. Die fol- 
genden Zeilen zeigen Ihnen, was die Sprites erst zu den Sprites macht. 


4.5.4.1 Positionieren 


Die erste Möglichkeit der Variation und wohl auch die wichtigste ist 
die Wahl der jeweiligen Bildschirmposition jedes einzelnen Sprites. Sie 
können also bestimmen, wo auf Ihrer Mattscheibe Ihre Figuren zum 
Stehen kommen sollen. Dies ist besonders wichtig, da dadurch Bewe- 
gungen und schöne Effekte erzeugt werden können, wie es im 5. Ka- 
pitel dargelegt wird. 


Dabei unterteilt man den Bildschirm in sogenannte Koordinaten x und 
y, wie es uns bereits von der Graphik her bekannt ist. Dabei ist aller- 
dings folgendes zu beachten: 


Die Spritekoordinaten stellen stets die Position der unteren linken 
Ecke eines Sprites dar. 


Die Spritebewegung besitzt eine Auflösung von 512x256 Punkten, also 
weit mehr, als auf dem Bildschirm darstellbar. Das Raster, also der 
Abstand bzw. die Größe der Punkte, ist dabei identisch mit dem der 
hochauflösenden Graphik. Es sind also 320 Punkte in x-Richtung und 
200 in y-Richtung zu sehen. Damit wird es Ihnen aber möglich, die 
Sprites jeweils bei Bewegungen aus dem Bildschirm hinausfahren zu 
lassen; am verdeckenden Rand sehen Sie also einen stets kleiner 
werdenden Teil Ihres Sprites (s. Kapitel 5). 


Der Nullpunkt der Spritekoordinaten liegt weit außerhalb des Text- 
oder Graphikfensters oben links in der Ecke. Der erste sichtbare 
Punkt dieses Koordinatenrasters und damit der Nullpunkt der norma- 
len Graphik besitzt schon die Koordinaten x=20 und y=30. Hier erst 
ist das Sprite also vollständig zu sehen. Um damit von Sprite- auf 
Graphikkoordinaten umzurechnen, müssen Sie bei ersteren stets 20 
vom x- und 30 vom y-Wert abziehen (umgekehrt: Graphik- in Sprite- 
koordinaten umrechnen durch hinzuaddieren dieser Größen). Bei 
x=320+20=340 und y=200+30=220 ist das Sprite nicht mehr zu sehen. 
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Um dem VIC nun mitzuteilen, wo er welches der 8 Sprites auf dem 
Bildschirm unterbringen soll, stehen Ihnen seine ersten 17 Register 
(von O bis 16) zur Verfügung. Das 16. Register nimmt dabei eine Son- 
derstellung ein und wird etwas weiter unten besprochen. Die 16 zu- 
ständigen Speicheradressen sind jeweils paarweise den 8 Sprites zuge- 
ordnet. Das erste Element dieser Registerpaare gibt dabei die x-, das 
zweite die y-Koordinate des entsprechenden Sprites an: 


Sprite : sO si s2 s3 s4 s5 s6 s7? 
x-K. Rg.: 0 2 4 6 8 10 12 1 
y-K. Reg.: 135 791 13 15 


Wollen wir also beispielsweise Sprite 6 auf die Koordinaten x=100, 
y=150 setzen, so brauchen wir lediglich einzutippen: 


POKE 53248 + 2*6 ‚ 100 
POKE 53248 + 2*6 + 1, 150 


und schon kommt unser vorher definiertes Sprite dort zu stehen. Wie 
Sie aber vielleicht bereits gemerkt haben, können wir von den oben 
genannten 512 Punkten der Spritebewegungsauflösung lediglich 256 
Punkte erreichen (ein Byte kann maximal 256 verschiedene Werte an- 
nehmen). Aus diesem Grunde mußte noch ein weiteres Register ein- 
gerichtet werden, das für das oberste 8. Bit (MSB = Most Significant 
Bit = höchstwertiges Bit) der x-Koordinate jedes Sprites zuständig ist: 
Register 16. In diesem Byte ist wieder jedem Sprite ein Bit zugeord- 
net, das die gesuchte Information beinhaltet: 


Bit: b7 b6 b5 b4 b3 b2 b1 b0 
Wert: 128643216 84 21 
Sprite: s7 s6 s5 s4 s3 s2 si sO0 


Wollen wir also unser Sprite auch über die Koordinate x=255 hinaus 
auf den Bildschirm bringen, so ist das entsprechende Bit dieses Regi- 
sters zu setzen. Zu dem Wert im regulären x-Koordinatenregister ist 
dann 256 hinzu zu zählen. 
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4.5.4.2 Vergrößerung 


So schaut unser Sprite ja schon recht hübsch aus - wir geben uns voll 
zufrieden - doch Ihr Rechner noch nicht. Er bietet Ihnen einige 
schöne weitere Kleinigkeiten, die Ihr Herz erfreuen sollen und 
werden. In dem Registerschatz des Videocontrollers befinden sich 
nämlich u.a. noch zwei bisher nicht besprochene Adressen. Dies sind 
die Register 23 und 29. Mif Hilfe dieser beiden Bytes können Sie Ihr 
Sprite vergrößern. Dabei ist das erste der zwei hier genannten für eine 
Vergrößerung in y-, also eine Längsdehnung, das zweite für eine Ver- 
größerung in x-Richtung, also eine Vertikaldehnung, zuständig. 
Beidesmal ist der Streckungsfaktor gleich 2, d.h. jeder Punkt eines 
Sprites wird doppelt so hoch bzw. breit. Sie können beide Möglich- 
keiten getrennt oder gemeinsam (also sowohl Vergrößerung in x- als 
auch in y-Richtung) anwenden, was jeweils verschiedene Effekte mit 
sich bringt. Der Aufbau der beiden Register dürfte Ihnen inzwischen 
bekannt vorkommen und ist in den jeweiligen Diagrammen z.B. unter 
Positionierung nachzuschauen, da auch hier jedem Sprite ein Bit zuge- 
ordnet ist. Ist das entsprechende Bit gelöscht, so wird nicht, ist es ge- 
setzt, so wird vergrößert. Die Verhältnisse können etwa so dargestellt 
werden: 


Vergrößerung Vergrößerungsfaktor Punktmatrix 


keine 1x1 24x21 
x-Richtung 2x1 48x21 
y-Richtung 1x2 24x42 
x/y-Richtung 2x2 48x42 


Unter Punktmatrix ist hierbei natürlich die Matrix gemeint, die auf 
dem Bildschirm erscheint (sie ist ja auch bei Multicolor-Sprites iden- 
tisch), also die Anzahl der Punkte des Bildschirms, die von einem 
Sprite maximal überdeckt werden. Zu bemerken ist weiterhin, daß ein 
vergrößertes Sprite nicht mehr vollständig am linken oder oberen 
Rand (oder an beiden) verschwindet, auch wenn die Spritekoordinaten 
gleich null werden. 
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4.5.4.3 Priorität 


Was passiert nun aber, wenn sich zwei eingeschaltete Sprites oder ein 
Sprite und z.B. ein Buchstabe überlappen? Überdecken Sie sich und 
wenn ja, wer verdeckt wen? Dies soll in diesem Abschnitt geklärt 
werden. 


a) Sprite-Sprite-Überlappung: 


In diesem Fall ist die Sache denkbar einfach: Den einzelnen Sprites 
sind bekanntlich Nummern von 0-7 zugeordnet. Überlappen sich jetzt 
zwei Sprites, so wird dasjenige Sprite "über" dem anderen liegen, es 
also verdecken, welches die niedrigere Nummer besitzt. D.h. das Sprite 
z.B. mit der Nummer O0 wird ein Sprite mit der Nummer 5 an den 
Stellen verdecken, an denen Sie sich überlappen (genau genommen 
wird das Sprite 0 Sprite 5 nur dort überdecken, wo es nicht transpa- 
rent (durchsichtig) ist (s. Spritedefinition)). 


b) Sprite-Hintergrundzeichen-Überlappung 


Bei einer Überlappung eines Hintergrundzeichens mit einem Sprite 
wird die Sache schon komplizierter, aber auch interessanter. Zunächst 
aber eine Begriffserklärung: Im folgenden sind unter Hintergrund- 
zeichen stets irgendwelche gesetzten Punkte verstanden, sei es z.B. ein 
Buchstabe, ein Sonderzeichen oder Graphik. 


Wir können, so ist es eingerichtet, hierbei selber wählen, ob ein Sprite 
von diesen Hintergrundzeichen überdeckt wird, das Sprite sich also 
praktisch hinter den verschiedenen Objekten des Bildschirms befindet, 
oder ob es diese selbst verdeckt, also vor Ihnen steht. Für diese Funk- 
tion existiert ein weiteres Register des VIC, Register 27. Der Aufbau 
ist Ihnen wohl inzwischen geläufig, er entspricht dem der Register 16, 
21, 23, 28 und 29. Auch hier ist jedem Bit ein Sprite zugeordnet. Ist 
nun ein Bit gelöscht, was nach dem Einschalten (wie in Kap. 4.1 er- 
sichtlich) der Fall ist, so erscheint das jeweilige Sprite vor den übrigen 
Zeichen, ist es dagegen gesetzt, so überdecken alle Hintergrundzeichen 
das betreffende Sprite. 


Mit Hilfe dieser wertvollen Eigenschaften ist es möglich, 3-di- 
mensionale Graphik oder Bewegungen darzustellen. In Kapitel 5 wird 
Ihnen einiges dazu gesagt. 
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4.5.4.4 Kollisionen 


Besonders für Spiele eine unschätzbare Einrichtung: Die Feststellung 
von Kollisionen bzw. Berührungen zwischen Sprites untereinander und 
mit Hintergrundzeichen wird Ihnen durch verschiedene andere Regi- 
ster sehr einfach gemacht. Hierfür sind u.a. die Speicherstellen 30 und 
31 des VIC zuständig. 


In der ersten dieser beiden wird automatisch registriert, wenn sich 
zwei Sprites im Laufe der Zeit einmal berühren (Überlappung). Dabei 
ist jedes Bit dieses Registers für eines der acht Sprites zuständig (5s.0.). 
Berühren sich nun zwei Sprites, so werden hier die beiden korrespon- 
dierenden Bits gesetzt. Kollidieren also Sprite 6 und 2, so lautet der 
Inhalt des Registers: %0100 0010. Dieser Inhalt bleibt solange beste- 
hen, bis er (als Zeichen dafür, daß er abgefragt wurde) wieder vom 
Programmierer z.B. durch 


POKE 53248+30, 0 


gelöscht wird. Gleichzeitig mit diesen beiden Bits wird noch ein an- 
deres gesetzt. Es ist dies das Bit 2 des VIC-Registers 25 (IRR), 
welches uns noch völlig unbekannt ist und auch erst im Kap. 4.7 er- 
läutert wird. Soviel sei gesagt: Falls von Register 26 erlaubt, kann hier 
also durch eine Kollision ein IRQ (Interrupt Request) ausgelöst 
werden. 


Das zweite Register mit der Nummer 31, das uns in diesem Zu- 
sammenhang interessiert, ist für den Vermerk einer Kollision eines 
Hintergrundzeichens mit einem Sprite zuständig. Findet ein solches 
Ereignis demnach statt, so wird hier das dem jeweiligen kollidierten 
Sprite zugeordnete Bit gesetzt (wie Register 30). Berührt z.B. Sprite 2 
einen gesetzten Punkt des Bildschirms, so steht hier: %0000 0010. 
Auch dieses Register muß nach der Abfrage auf dieselbe Art und 
Weise wieder gelöscht werden wie eben beschrieben. Und auch hier 
wird in dem Register 25 diesmal das Bit I gesetzt, um bei Bedarf 
einen IRQ auszulösen. 
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4.6 Text/Zeichensatz 


4.6.1 Textseitenorganisation 


Damit sich der Rechner alle Ausgaben, die auf dem Bildschirm 
stehen, merken kann (er muß dieses Bild auf Ihrem Fernseher 
schließlich alle 1/20 Sekunden selbst erstellen (s. Kap. 4.7)), legt er 
sämtliche Zeichen, die Sie im normalen Textmodus (z.B. nach dem 
Einschalten) durch Tastendruck eingeben, in den uns sicher schon be- 
kannten Video-RAM ab. Dieser umfaßt etwa I K (in Wahrheit nur 
40x25 = 1000 Bytes) und geht im Normalzustand von der Speicher- 
stelle $0400 (1024) bis hin zu $07FF (2047). Über die Verschiebemög- 
lichkeiten gibt Ihnen Kap. 4.3.2 Auskunft. In der hochauflösenden 
und der Multicolor Graphik wird dieser Speicher für die Beherber- 
gung der Farbe verwendet. 


Den einzelnen Zeichen werden jeweils bestimmte Codes zugeordnet 
und in den Video-RAM abgelegt, wenn dieses Zeichen an einer be- 
stimmten Stelle auf dem Bildschirm erscheinen soll. Die Zuteilung von 
Codes kennen Sie sicher bereits von der sogenannten ASCII-Codie- 
rung. Die Bildschirmcodes jedoch werden nach einem anderen System 
gebildet. Während Die CBM-ASCII-Tabelle, wie Sie sie im Anhang 
ihres Bedienungshandbuches finden, manchmal verschiedenen Werten 
gleiche Zeichen zuordnet und gleichzeitig sogenannte Controlcodes 
vorhanden sind, die auf dem Bildschirm kein Zeichen erbringen, sind 
die Bildschirmcodes eindeutig und ohne Lücken verteilt, da Sie neben 
sämtlichen normalen Zeichen gleichfalls noch die inversen Zeichen 
unterscheidbar machen müssen - wie anders sollte der Rechner anhand 
eines Codes wissen, ob er nun ein Zeichen normal oder invers dar- 
stellen soll. Wie Sie wissen wird dies von der Tastatur aus durch die 
Umschaltung mittels zweier Controlcodes (<rvs on> und <rvs off> = 
CHR$(18) und CHR$(146)) bewerkstelligt. Eine Tabelle der Bild- 
schirmcodes finden Sie im Anhang. Addieren Sie 128 jeweils zu den 
einzelnen Werten hinzu, so erhalten Sie das gleiche Zeichen in inverser 
Form. 
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4.6.1.1 Normaler Text 


Neben den Zeichen muß aber für jedes Zeichen gleichfalls die Zei- 
chenfarbe gespeichert werden, da ja bekanntlich rein theoretisch jedes 
Zeichen eine andere Farbe besitzen kann. Hierfür existiert ein weite- 
rer sogenannter Farb-RAM mit der gleichen Größe wie der Video- 
RAM, der die notwendigen Informationen enthält. Dieser Farb-RAM 
liegt bei $D800-$DFFF (55296-56295) und wird ebenfalls in der 
Multicolor-Graphik als Farbspeicher verwendet. Jedes Byte dieses 
Bereiches bestimmt die Farbe des dazugehörigen Zeichens des Video- 
RAMSs, dessen Aufbau identisch ist. 


Die Hintergrundfarbe des Textbildes wird dagegen durch ein einziges 
Register des VIC angesprochen. Dieses Register (Register 33) liegt in 
der Speicherstelle 53248+33 und kann z.B. mit 


POKE 53248+33,0 : REM HINTERGRUNDFARBE = SCHWARZ 


verändert werden. 


4.6.1.2 Multicolor-Modus 


Für den Multicolor-Modus der Zeichendarstellung schauen Sie bitte 
unter Kap. 4.2 nach, wo dieser entsprechend beschrieben ist. 


4.6.1.3 Extended Colour-Modus 


Ihr Commodore 64 besitzt neben dem gerade beschriebenen normalen 
Textmodus mit einer Hintergrundfarbe für alle Zeichen einen weite- 
ren, in dem Sie für jedes Zeichen eine andere Hintergrundfarbe 
wählen können (jeweils 4 Hintergrundfarbregister, also 4 frei wähl- 
bare Hintergrundfarben stehen zur Verfügung). Diese Darstellungsart 
heißt: Extended Colour-Modus. 


Wie gesagt, stehen Ihnen hier für jedes Zeichen eine von 4 Hinter- 
grundfarben zur Verfügung, die Sie durch EinPOKEn der jeweiligen 
Werte in die folgenden Register verändern können: 


Hintergrundfarbe 0: VIC-Register 33 
Hintergrundfarbe 1: VIC-Register 34 
Hintergrundfarbe 2: VIC-Register 35 
Hintergrundfarbe 3: VIC-Register 36 
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Wie Sie sehen, entspricht das Farbregister 0 dem normalen Register 
zur Festlegung der Hintergrundfarbe. In diese Adressen legen Sie dann 
natürlich den jeweiligen Farbcode, den Sie dem Anhang entnehmen 
können (0-15). 


Um den Extended Colour-Modus einzuschalten, müssen Sie lediglich 
etwa durch 


POKE 53248+17, PEEK(53248+17) OR 4*16 


das 6. Bit des VIC-Registers 17 ($11) setzen. Durch 


POKE 53248+17, PEEK(53248+17) AND 256 - 4*16 
wird es wieder gelöscht. 


Wollen Sie nun festlegen, welche dieser Hintergrundfarben die einzel- 
nen Zeichen schließlich besitzen, so müssen Sie folgendes wissen: 


Die oberen 2 Bits jedes Bytes aus dem Video-RAM, der eigentlich 
(wie wir soeben erfahren haben) lediglich die verschiedenen Zeichen 
des Textfensters speichert, legen dies jeweils für jedes Zeichen fest. 
Da aber diese Bits normalerweise ebenfalls dazu verwendet werden, 
um die verschiedenen Zeichen zu codieren, stehen Ihnen im Extended 
Colour-Modus (ECM) nur 64 Zeichen zur Verfügung. 


Alle Graphikzeichen und im Kleinschrift/Großschrift-Modus ebenfalls 
die Großbuchstaben sowie alle inversen Zeichen fallen dem zum 
Opfer. Steuern Sie diese trotzdem an, so wird eines der erlaubten 64 
Zeichen mit einer anderen Hintergrundfarbe erscheinen. Welche Zei- 
chen davon wie betroffen sind, können Sie am besten der Tabelle der 
Bildschirmcodes im Anhang entnehmen. Dabei gilt folgende Zuord- 
nung: 


MSBs Bildschirmcodes Hintergrundfarbe 


00 000-063/$00-$3F HF O 
01 064-127/$40-$7F HF 1 
10  128-191/$80-$BF HF 2 
11. 192-255/$C0-$FF HF 3 


Unter MSBs verstehen wir hier die beiden obersten Bits des Video- 
RAMSs, also Bits 6 und 7 (MSB = Most Significant Bit). Vergleichen 
Sie diese Tabelle mit der angegebenen Bildschirmcodetabelle im An- 
hang. 
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Ein Beispiel: Sie wollen ein B mit der Hintergrundfarbe 7 = gelb auf 
den Bildschirm bringen. Dafür belegen Sie das gewünschte Hinter- 
grundfarbregister (hier 1) mit dem Wert 7 für gelb und POKEn eine 2 
für B zuzüglich 64 für die Ansteuerung des Registers I an die ent- 
sprechende Stelle im Bildschirmspeicher oder geben mittels PRINT- 
Statement das Zeichen <shift><B>, also CHR$(98) auf dem Bildschirm 
aus. Im Programm sähe dies dann so aus: 


10 V = 53248 : REM VIC-REG-BASISADRESSE 

20 POKE V+17, PEEK(V+17) OR 4*16 : REM ECM EINSCHALTEN 
30 POKE V+34, 7 : REM HINTERGRUNDFARBE 1 = GELB 

40 POKE 1024, 2+64 : REM ZEICHEN OBEN LINKS IN DIE ECKE 


oder: 


10 V = 53248 : REM VIC-REG-BASISADRESSE 

20 POKE V+17, PEEK(V+17) OR 4*16 : REM ECM EINSCHALTEN 
30 POKE V+34, 7 : REM HINTERGRUNDFARBE 1 = GELB 

40 PRINT CHR$(98) : REM ZEICHEN AN DIE CURSORPOSITION 


Nach Ablauf dieser Programme befinden Sie sich weiterhin in diesem 
Modus und können ein wenig herumprobieren. Wie Sie wieder heraus- 
kommen, wissen Sie bereits (s.o.). 


4.6.2 Zeichensatzorganisation 


Neben den ungewöhnlich variationsreichen Graphikmöglichkeiten 
bietet Ihnen Ihr Commodore 64 noch weitere Kostbarkeiten. Eine 
dieser Fähigkeiten ist die softwaremäßige Veränderung des Zeichen- 
satzes. Sie ist die Grundlage fast aller Spiele und ist dasjenige Mittel 
(neben den Sprites), das alle Spiele auf dem CBM 64 so unheimlich 
schnell und trotzdem graphik- und effektreich werden läßt. Ohne 
diese Möglichkeit ist eine vernünftige Spielprogrammierung undenkbar 
geworden. Wo sich andere Computer mit riesigen Graphikspeichern 
herumquälen, dort schnippst Ihr Commodore 64 einmal mit dem 
kleinen Finger. 


Zunächst einmal eine Definition: Unter Zeichensatz verstehen wir die 
Gesamtheit aller Zeichen (Buchstaben und Graphikzeichen), die Sie im 
Textmodus durch Drücken verschiedener Tasten und Tastenkombina- 
tionen (siehe <shift> und <C=> (Commmodore-Taste)) auf den Bild- 
schirm bringen können. 
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Die Form und das Aussehen dieser Zeichen muß dem Computer na- 
türlich bekannt, also irgendwo und irgendwie gespeichert sein. 
Gleichzeitig sollten Sie auch nach irgendwelchen Kriterien geordnet 
sein, damit Ihr Rechner weiß, daß er beispielsweise ein B auf den 
Bildschirm bringen soll, wenn Sie die Taste B drücken. Diese Infor- 
mationen sind natürlich in allen Computern gespeichert. 


Beim CBM 64 ist dieser Speicher so angelegt, daß er softwaremäßig, 
also vom Programmierer erreichbar ist, d.h. sein Inhalt kann ausge- 
lesen und beispielsweise irgendwo in einen anderen Speicherbereich 
kopiert (übertragen) werden. Diese Möglichkeit wurde ausführlich in 
dem Paragraphen 4.3.1 dargelegt. Weiterhin besitzt Ihr Rechner die 
Fähigkeit, die Speicheradresse, aus der er die Form der einzelnen 
Zeichen abliest, zu verändern (s. Kap. 4.3.2). Sie haben also die Wahl, 
Ihrem CBM 64 zu sagen, daß er sich die Zeichengestalt von nun an 
z.B. aus dem Speicherbereich ab $2000 (= 8192) also aus dem RAM 
holen soll. Diesen Speicherbereich können wir natürlich selbst ver- 
ändern. 


Haben wir vorher den Zeichensatz aus dem ursprünglichen ROM in 
diesen Bereich kopiert, so bemerken wir zunächst keine Änderung, da 
ja alle Information erhalten geblieben ist. Verändern wir jedoch Teile 
dieses Speicherbereiches, so ändern wir damit gleichzeitig die Form 
eines bestimmten Zeichens. 


Um nun die einzelnen Zeichen nach unseren Wünschen zu gestalten, 
müssen wir wissen, wie die Form eines Zeichens gespeichert wird. 
Dies sei im folgenden erklärt: 

Ihr Computer besitzt insgesamt 4 Zeichensätze mit je 128 Zeichen, 
von denen jeweils nur 2 gleichzeitig auf dem Textbildschirm erschei- 
nen. Wir wollen im Folgenden diese vier Zeichensätze kurz benennen: 


Satz 1/1 - Normal-Großschrift/Graphikzeichen 
Satz 1/2 - iInvers-Großschrift/Graphikzeichen 
Satz Il/1 - Invers-Groß-/Kleinschrift 
Satz IIl/2 - Invers-Groß-/Kleinschrift 


Bekanntlich können Sie die beiden Zeichensätze I und II durch die 
gleichzeitige Betätigung der Tasten <C=> und <shift> von Hand aus 
wechseln. Vom Programm aus dienen hierzu die ASCII-Werte 14 und 
142 (Anmerkung: 142 = 128+14), d.h. Sie können mit 


PRINT CHR$C14); 
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auf Satz II und mit 
PRINT CHR$(142); 


auf Satz I umschalten. Mit 


PRINT CHR$(8); 


blockieren Sie dabei die Möglichkeit der Umschaltung über die 
Tastatur, die ja auch während des Programmlaufs möglich ist, und mit 


PRINT CHR$(6); 


heben Sie diese Blockade wieder auf (s. hierzu auch das CBM 64-Be- 
nutzerhandbuch auf den Seiten 135-137). 


Die Umschaltung zwischen Sätzen I und 2 bewerkstelligen Sie durch 
die Verwendung von <RVS ON> und <RVS OFF>. 


In dem Zeichensatzspeicher müssen natürlich alle diese 4 Zeichensätze 
getrennt aufgelistet sein. Sie haben also die Möglichkeit 4x128 = 512 
Zeichen zu verändern (Wie gesagt, können davon jedoch nur jeweils 
256 verschiedene Zeichen gleichzeitig angezeigt werden). 


Jedes Zeichen besteht auf dem Bildschirm aus einer Matrix von 8x8 
Punkten, wie Sie vielleicht schon wissen. Entsprechend müssen also im 
Zeichensatzspeicher diese 8x8 = 64 Punkte repräsentiert sein. Das wird 
erreicht, indem jeder Punkt des Zeichens auf dem Bildschirm - ähn- 
lich wie in HGR - durch ein Bit im Speicher vertreten ist. Somit setzt 
sich ein Zeichen-Bit-Muster aus 8 Byte zu je 8 Bits zusammen. Jedes 
Byte repräsentiert eine der 8 Zeilen des Zeichens. Ein gesetztes Bit 
bedeutet also einen gesetzten Punkt auf dem Bildschirm. Wir können 
uns die Speicherung eines Zeichens wie folgt vorstellen: 


Bit| 76543210 


Byte 0 |... 2200. 
Byte I1|....2..2... 
Byte2 |. - 2.22... 
Byte 3| 2.222000. 
Byte4 |». 220020. 
Byte5|.-...22.2.. 
Byte6 |...» 220% 
Byte 7” |. - -- 220. 
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Der Zeichensatzspeicher ist also aus insgesamt 512 hintereinan- 
derliegender Definitionen dieser Art zu je 8 Bytes zusammengesetzt. 
Er benötigt also einen Speicherbereich von 4 K (= 4096 Bytes), der 
normalerweise im ROM von $D000 - $DFFF (dezimal: 53248 - 57344) 
liegt. Dieser Bereich ist jedoch von BASIC aus nicht auszulesen. Zur 
Demonstration sei an dieser Stelle gezeigt, wie ein normales, großes B 
im Zeichensatzspeicher definiert wird: 


Bit: | 76543210 
Byte we 
Byte 
Byte 
Byte 
Byte 
Byte 
Byte 
Byte 


sousumnm.oo 


Wir erhalten also folgende 8 Bytes: 


Byte 0: 0111 1000 = $78 = 120 
Byte 1: 0110 0110 = $66 = 102 
Byte 2: 0110 0110 = $66 = 102 
Byte 3: 0111 1000 = $78 = 120 
Byte 4: 0110 0110 = $66 = 102 
Byte 5: 0110 0110 = 866 = 102 
Byte 6: 0111 1000 = $78 = 120 
Byte 7: 0000 0000 = $00 = 000 


Diese acht Werte stehen nun an der Stelle in dem Zeichensatzspeicher, 
die für das große, normale B reserviert ist. 


Bei Multicolorzeichen stehen jeweils 2 Bit für einen doppelt breiten 
Punkt des Zeichens, wodurch sich die Auflösung einer Matrix auf 4x8 
Punkte pro Zeichen verringert. Da der Vorgang weitestgehendst 
parallel zu Multicolorgraphik und -sprites funktioniert und da das 
Wichtigste hierzu bereits unter Kap. 4.2 gesagt wurde, wollen wir 
lediglich die Punkt-Bit-Beziehung anhand einer kleinen Graphik dar- 
stellen: 
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Bit: | 76543210 
Byte 0: | <-> <-> <-> <-> 
Byte 1 | <-> <-> <-> <-> 
Byte 2: | <-> <-> <-> <-> 
Byte 3: | <-> <-> <-> <-> 
Byte 4: | <-> <-> <-> <-> 
Byte 5: | <-> <-> <-> <-> 
Byte 6: | <-> <-> <-> <-> 
Byte 7: | <-> <-> <-> <-> 


Das nächste Problem ist die Ermittlung der Position einer Zeichende- 
finition. Ausgangspunkt aller Berechnungen sind die Bildschirmcodes 
der einzelnen Zeichen, der Codes also, die zur Bestimmung eines 
Zeichens im Video-RAM stehen (s. Anhang). Der Rest ist relativ 
einfach: Da jedes Zeichen 8 Byte benötigt, müssen wir nur den Wert 
des Bildschirmcodes mal 8 nehmen und die Basisadresse des Zeichen- 
satzes, also die Anfangsadresse, bei der unser Zeichensatz beginnt, 
hinzuaddieren. Bei der Basisadresse ist zu beachten, daß Zeichensatz I 
und II unterschieden werden müssen. Ein kleines b des Klein- 
/Großschriftmodus mit dem Bildschimcode 2 liegt 2 K entfernt vom 
großen B des Großschrift-/Graphikzeichenmodus mit ebenfalls dem 
Code 2 (nicht zu verwechseln mit dem großen B des Klein- 
/Großschriftmodus). Im originalen Zeichensatz lauten die Basis- 
adressen: 


- Groß/Graphikzeichen: $D000 (53248) 
- Klein/Großschrift : $D800 (55296) 


Aus soeben Gesagtem ergibt sich die Formel: 

adresse = basisadresse + 8 * bildschirmcode 

Für das Zeichen B im normalen Zeichenspeicher wäre dieses: 

adresse = $D000 + 8 * 2 = $D010 = 53256 

Im Kapitel 5 werden Sie ausführlich erfahren, wie Sie diese Än- 


derungen am besten vornehmen (u.a. mit einem sehr komfortablen 
Zeicheneditor) und wie Sie das Gelernte anwenden können. 
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4.7 IRQ-Möglichkeiten 


Eine der goldenen Eigenschaften Ihres Gerätes ist die mannigfaltig 
verwendete Interrupt-Einrichtung. Unter Interrupt versteht man die 
gesteuerte Unterbrechung eines Programms an einer beliebigen Stelle, 
verursacht durch irgendein Ereignis. Ist eine Unterbrechung ausgelöst 
worden, so springt der interne Prozessor unterprogrammmäßig 
(Merken der Rücksprungadressen) an eine bestimmte Stelle im Spei- 
cher, die indirekt adressiert wird, und durchläuft dort eine sogenannte 
Interrupt- oder Unterbrechungsroutine. Nach Beendigung dieser Rou- 
tine kehrt er genau an dieselbe Stelle des unterbrochenen Programms 
zurück und fährt ganz normal fort - bis zur nächsten Unterbrechung. 
Soweit in aller Kürze eine Beschreibung des Interruptvorganges. 


Keine Angst, Sie können ruhig weiterlesen, auch wenn Sie von Inter- 
rupt noch nie etwas gehört haben und auch der Maschinensprache 
nicht mächtig sind. Fast alle hier vorgestellten Möglichkeiten, mit 
Interrupt zu arbeiten, funktionieren gleichfalls ohne diese - nur in 
Assemblerprogrammen verwendbare - Raffinesse. Falls Sie auf diesem 
Gebiet also nicht so bewandert sind, sollten Sie sich die Stellen, in 
denen von Interrupt die Rede ist, trotzdem durchlesen, um einen 
Überblick zu erhalten. Lassen Sie sich aber nicht abschrecken, da im 
Anschluß daran stets auch die Möglichkeiten, die von BASIC aus exi- 
stieren, erläutert werden. 


Ein Interrupt ist also eine gewollte und programmtechnisch vor- 
gesehene Unterbrechung (kein Abbruch!). Interrupts sind grundsätzlich 
ebenfalls in BASIC möglich (z.B. die Supergraphik 64 bietet dieses 
Hilfsmittel), die hier besprochenen sind jedoch hardwaremäßig einge- 
richtete (durch Software gesteuerte) Unterbrechungen der CPU (Cen- 
tral Prozessing Unit - Zentraler Mikroprozessor). Nun gibt es für den 
in Ihrem Gerät verwendeten Mikroprozessor vier verschiedene Inter- 
rupts: 


- Reset 

- NMI (Non Maskable Interrupt) 
- BRK (Break) 

- IRQ (Interrupt Request) 
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a) Reset: 


Erster, er kann nicht softwaremäßig unterdrückt werden, wird nach 
dem Einschalten ausgelöst und initialisiert den Computer. Am Ende 
dieses Vorganges steht die (jedem, der den 64er einmal eingeschaltet 
hat, bekannte) Kopfschrift auf dem Bildschirm: 


Wi COMMODORE 64 BASIC V2 Krk 
64K RAM SYSTEM 38911 BASIC BYTES FREE 
READY. 


b) NMI: 


Dieser nicht maskierbare, d.h. ebenfalls unbedingte Interrupt wird 
ausgelöst, wenn Sie auf die <restore>-Taste drücken. Er wird gleich- 
falls benötigt, um die RS 232-Schnittstelle zu bedienen, falls vorhan- 
den. Sie können die indirekte Sprungadresse des NMI in den Spei- 
cherstellen $318/$319 (792/793) erfahren oder ändern. 


c) BRK: 


Dies ist ein sogenannter Softwareinterrupt, der von einem Assembler- 
Programm aus betätigt werden kann. Er wird dann ausgelöst, wenn 
der Prozessor auf den BRK-Code $00 stößt (indirekter Sprung zur der 
Adresse, die in den Speicherstellen $316/$317 (790/791) steht). 


d) IRQ: 


Hier ist er endlich! Alle oben genannten Interrupts sollen uns hier 
nicht weiter interessieren und sind nur der Vollständigkeit halber er- 
wähnt worden. Die eigentlich für uns interessante Unterbrechung ist 
dieser sogenannte maskierbare Interrupt. Maskierbar heißt, daß per 
Software gesagt werden kann, ob er ausgelöst werden darf oder nicht. 
Sie können ihn also beliebig abschalten, wenn es Ihnen gefällt. Hierfür 
existieren die beiden Assemblerbefehle SEI (Set Interruptflag - ver- 
hindert Interrupt) und CLI (Clear Interruptflag - ermöglicht Inter- 
rupt). Gleichzeitig können Sie beim Commodore 64 in speziellen Re- 
gistern auswählen, welche Ursache von einer ganzen Palette an 
Möglichkeiten einen IRQ auslösen darf und welche nicht. So können 
beispielsweise die Timer der CIA nach Ihrem Ablauf eine Un- 
terbrechung hervorrufen, was vom BASIC-Betriebssystem genutzt 
wird, indem es alle 1/60 Sekunde den normalen Programmablauf 
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unterbricht und in die ROM-IRQ-Routine springt (indirekte Adresse 
in $314/$315; dezimal: 788/789). Hier wird der Cursor blinken ge- 
lassen, die interne Uhr (TI$) gestellt, und die Tastatur (z.B. STOP- 
Taste) abgefragt. Doch wir können die Auslösung eines IRQ gleichfalls 
einigen anderen Ereignissen als nur dem Ablauf eines Timers ermög- 
lichen. Die für uns interessanten sind: 


- Rasterzeilendurchlauf 

- Lightpen 

- Sprite-Sprite-Kollision 

- Sprite-Hintergrund-Koll. 


Wenn wir nun die indirekte Adresse der IRQ-Routine des Be- 
triebssystems auf eine eigene Interruptroutine richten, können wir 
diese Möglichkeiten ausnutzen. Wie dies programmtechnisch zu lösen 
ist, wird Ihnen in den entsprechenden Abschnitten des 5. Kapitels 
dargelegt. Der Vorteil der IRQ-Verwendung für diese Anwendungen 
ist, daß das Ereignis sofort gemeldet wird, ohne daß bis zur nächsten 
Abfrage gewartet werden muß (neben dem IRQ gibt es natürlich bei 
allem die Möglichkeit, auf das Ereignis im Laufe des Programms 
durch eine einfache Abfrage zu testen). Dies hat besonders große Be- 
deutung bei dem Rasterzeilen-IRQ, da hier die Vorgänge sehr schnell 
ablaufen müssen. Nun aber zu den angekündigten Einzelbesprechun- 
gen: 


4.7.1. Bildschirmrasterzeilen 


Eine der am wenigsten verstandenen, dafür jedoch äußerst an- 
sprechenden Fähigkeiten Ihres Computers ist der Rasterzeileninterrupt. 
Sie können mit diesen Dingen eine große Anzahl von Effekten erzie- 
len, die Ihr Herz höher schlagen lassen: Mehrere Hintergrundfarben, 
mehr als 8 Sprites, gemischte Graphik- und Textanzeige usw. usw. 
Doch bevor wir uns in Kapitel 4 mit der Realisierung dieser Dinge 
beschäftigen, wollen wir zunächst einmal die Frage klären, was unter 
sogenannten Rasterzeilen eigentlich zu verstehen ist. 


Dazu müssen wir verstehen, wie auf dem Fernseher oder Monitor ein 
Bild entsteht. Wie Sie vielleicht wissen, besteht der Bildschirm aus 
einer Lochrasterplatte in Verbindung mit einer phosphoreszierenden 
Schicht, die durch den Aufprall der Elektronen eines Elektronen- 
strahles punktuell zu leuchten beginnt. Dieser Elektronenstrahl geht 
nun Zeile für Zeile jeden einzelnen Punkt des Lochrasters durch und 
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läßt ihn - je nach Bedarf - aufleuchten oder nicht. Dies geschieht in 
einer ungeheuren Geschwindigkeit, so daß der Strahl pro Sekunde 20 
mal ein neues Bild erzeugt, also 20 mal über sämtliche Punkte des 
Punktrasters hinüberfegt. So entsteht für uns der Eindruck eines be- 
wegten Bildes. Dieser Elektronenstrahl wird durch die komplizierten 
Apparaturen am hinteren Ende einer Bildröhre gesteuert. Doch die 
Information, ob ein Punkt des Bildschirms nun aufleuchten oder 
erblassen soll, muß von einer anderen Quelle stammen. Beim normalen 
Fernseher sind dies die über den Äther gesandten und von der An- 
tenne eingefangenen Signale der Sendestationen. In unserem Fall muß 
der Computer dieses Signal erzeugen. Er also muß praktisch Reihe für 
Reihe und Punkt für Punkt durchgehen, und das "an/aus"-Signal sen- 
den. Diese Aufgabe übernimmt im Falle des CBM 64 ebenfalls der 
Videocontroller (VIC). 


Normalerweise wird das alles intern geregelt, ohne daß der Pro- 
grammierer darauf Einfluß nehmen oder überhaupt daran beteiligt 
sein könnte. Anders beim 64er: Hier besitzt die Software die Möglich- 
keit festzustellen, welche Rasterzeile der VIC gerade erstellt. Dies 
kann u.a. durch das Lesen des VIC-Registers 18 erfolgen. Hierzu muß 
zunächst aber etwas gesagt werden: 


Da bei der Rasterzeilenerstellung selbstverständlich neben dem ei- 
gendlichen Text- oder Graphikfenster ebenfalls der Rahmen mit 
übergeben werden muß und die Strahlablenkung etwas über den Bild- 
schirm hinausgeht, stellt sich die Koordinateneinteilung etwas anders 
dar, als wir sie von der Graphik oder den Sprites her kennen. Zur 
Veranschaulichung des im folgenden Gesagten vergleichen Sie bitte 
das unten gezeigte Schaubild, das eine Skizze des Bildschirms mit dem 
Fenster darstellt. 


30 200 
40 210 
3 
4 
240 





280 
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Der Strahl startet in der obersten Reihe. Diese besitzt nun aber nicht 
etwa die Nummer O0 oder Il, wie man vermuten könnte, sondern die 
obere Kante Ihres Bildschirms beginnt bereits bei Reihe Nr. 30 ($IE) 
(wobei die angegebenen Randwerte von Fernseher (Monitor) zu Fern- 
seher leicht variieren können). Sie endet (untere Bildschirmkante) ca. 
bei Nr. 280 ($118). Das eigentliche Bildschirmfenster, das normaler- 
weise verwendet werden kann, hat an der oberen Kante den Raster- 
zeilenwert von etwa 40, während die untere mit der Rasterzeile Nr. 
240 übereinstimmt. 


Wie Sie sehen, unterteilt der VIC das Textfenster (genau über- 
einstimmend mit der Punktauflösung) in 200 Zeilen (Reihen). Sie wer- 
den im Kapitel "Joystick" sehen, daß dies im Falle der Spaltenauflö- 
sung nicht so einfach ist. 


Wie gesagt können wir jetzt selber aktiv in das Geschehen eingreifen, 
bzw. uns über den jeweiligen Stand unterrichten. Was heißt das nun? 


Zum einen können wir (wie oben erwähnt) dem Register 18 des 
Videocontrollers die Nummer der Rasterzeile, die er gerade dem 
Sichtgerät sendet, entnehmen. Da ein Register jedoch Werte von O bis 
maximal 255 annehmen kann, der VIC aber mindestens bis zu 280 
Reihen sendet, wird das fehlende oberste (8.) Bit vom VIC-Register 
17 geliefert. Wie Sie aus der in Kap. 4.1 gezeigten Tabelle entnehmen, 
stellt das 7. Bit dieses Registers 17 das gesuchte oberste Bit der 
Rasterzeilennummer dar. Somit können wir durch einfaches Lesen die 
genaue Rasterzeile erfahren. Da jedoch ein Bild pro Sekunde 20 mal 
erneuert wird, und mindestens 280 Reihen pro Bild an den Bildschirm 
gesendet werden müssen, wird eine Reihe in ca. | sek./(20*280) = 
0,00018 sek., also in 0,18 milli- oder 180 mikrosekunden (eine 
Mikrosekunde ist eine Millionstel Sekunde), das sind 5600 Reihen pro 
Sekunde, aufgebaut. Wenn man bedenkt, daß eine Reihe weiterhin 
noch aus einer großen Zahl von Punkten (s. Kap. 4.7.2) besteht, kann 
man sich in etwa vorstellen, wo hier die Zeitverhältnisse pro Punkt 
liegen (etwa bei 0,89 Mikrosekunden). 


Damit scheint die softwaremäßige Behandlung auch in Assembler 
(immerhin dauert ein Befehl in Assembler mindestens eine 500.000stel 
Sekunde (= 2 Mikrosekunden) - bei manchen Befehlen das bis zu 3,5- 
fache) unmöglich, da praktisch dauernd abgefragt werden müßte, wo 
sich der Strahl gerade befindet, um eine bestimmte Reihe anzusteuern. 
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Doch dies ist aufgrund einer äußerst interessanten Einrichtung nicht 
notwendig. Sie können nämlich den VIC dazu veranlassen, einen IRQ 
(wie oben beschrieben), also eine Unterbrechung Ihres Programms, 
auszulösen, wenn er gerade eine bestimmte Reihe des Bildes aufbaut 
(genau einen bestimmten Punkt anzusprechen, wäre aufgrund der 
winzigen Punktdurchlaufzeiten (s.o.) sinnlos). Für diesen Zweck 
schreiben Sie die gewünschte Zeile, bei deren Strahldurchlauf ein 
Interrupt ausgelöst und damit eine Interruptroutine aufgerufen werden 
soll, genau in dasselbe Register 18, aus dem wir sonst die aktuelle 
Position des Strahl ziehen. Auch hier dient Bit 7 des 17. Registers als 
Highbyte. Wir müssen dem Computer (bzw. dem VIC) nur noch mit- 
teilen, daß er ab sofort diese Unterbrechung ausführen soll, wenn er 
die bestimmte Reihe erreicht hat. Dies geschieht mit Hilfe der beiden 
Register 25 und 26 ($19/$1A). Ersteres ist das sogenannte Interrupt 
Request Register (IRR). Hier wird angegeben, welche Ursache ein 
durch den VIC ausgelöster IRQ hat. Dabei gilt: 


Bit 0 = 1: Rasterzeileninterrupt 

Bit 1 = 1: Interrupt durch Sprite-Hgrund-Koll. 
Bit 2 = 1: Interrupt durch Sprite-Sprite-Koll. 
Bit 3 = 1: Interrupt durch Lightpen 


Bits 4-6 : unbenutzt 
Bit 7 = 1: Interrupt hat eine der 4 Ursachen 


Sie sehen also, daß hier der Programmierer durch Abfrage des 7. Bits 
erfährt, ob eins der 4 unteren Bits gleich I ist, ein Interrupt also 
durch eine der 4 Möglichkeiten verursacht wurde (wie gesagt kann er 
ja auch andere Ursachen haben). Nach jeder Abfrage muß dieses 
Register wieder zurückgesetzt werden, da ansonsten direkt nach der 
durchlaufenen Interruptroutine wieder ein IRQ ausgelöst wird usw. - 
"Absturz"! Dies geschieht, indem man denselben Wert, den man aus 
diesem Register ausgelesen hat wieder hierhin zurückschreibt. 


Trotzdem wüßte der VIC immer noch nicht, wodurch er einen IRQ 
auslösen sollte, würden wir nicht Gebrauch von dem Register 26 
machen. Hier existiert die gleiche Zuordnung der einzelnen Bits wie 
im gerade beschriebenen Register 25 (außer 7. Bit). Hier bedeutet 
allerdings ein gesetztes Bit, daß das betreffende Ereignis von Stund an 
ein IRQ-Auslöser sein kann. 
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Wollen wir beispielsweise, daß der VIC immer dann unser Programm 
unterbricht und der Prozessor dann unsere IRQ-Routine anspringt, 
deren Adresse wir in $314/$315 (= 788/789; s.o.) abgelegt haben, 
wenn er die Reihe 100 erreicht hat, so schreiben wir zunächst 100 in 
dieses Register 18 (MSB = 0!), löschen Register 25, indem wir den In- 
halt lesen und wieder rückschreiben, und setzen das Bit 0 des Regi- 
sters 26 gleich 1. Wie das alles programmtechnisch unter einen Hut 
gebracht wird, sollten Sie nun in dem entsprechenden Paragraphen des 
5. Kapitels nachlesen. 


4.7.2 Lightpen 


Bevor Sie diesen Paragraphen durcharbeiten, sollten Sie wenigstens die 
Ausführungen in 4.7.1 über die Entstehung des Bildes auf dem Bild- 
schirm gelesen haben, da die folgenden Erklärungen auf diesem 
Wissen aufbauen. 


Ihr Commodore 64 besitzt verschiedene Möglichkeiten, steuernde Ge- 
räte als Peripheriebausteine anzuschließen. Zu diesem Zwecke befin- 
den sich an der rechten Seite Ihres Computers, wenn Sie sich das ein- 
mal anschauen wollen, zwei sogenannte Controlports. Dies sind Steck- 
buchsen für den Anschluß von Joysticks, Paddles, Lightpen oder sogar 
selbstgebaute Steuer- bzw. Meßeinrichtungen (wie z.B. Thermometer, 
Feuchtigkeitsmesser, Impulsgeber etc.). Die Steckerbelegung wird in 
Ihrem CBM 64-Benutzerhandbuch auf der Seite 141 beschrieben. Sie 
brauchen diese nicht unbedingt zu kennen, um beispielsweise einen 
Joystick an Ihr Gerät anzuschließen und ihn richtig zu gebrauchen. 
Wichtig ist nur, daß der Eingang für den unten beschriebenen Light- 
pen identisch ist mit dem des Feuerknopfes eines in Port I gesteckten 
Joysticks. Um etwas vorzugreifen: Sie können also auch mit dem 
Feuerknopf von Port I einen Interrupt auslösen, was sicher hochin- 
teressant nicht nur für Spiele ist. Sie können damit Geräte an- 
schließen, die im Computer einen IRQ auslösen können, eine Mög- 
lichkeit, die wertvolle Konsequenzen hat! 


Eine der hochinteressanten Einsatzmöglichkeiten ist der Lightpen: 
Unter Lightpen (oder Lichtgriffel) versteht man einen handlichen 
Stift, der zur Eingabe oder Bestimmung eines Punktes auf dem Bild- 
schirm dient und den direkten Kontakt zwischen Ihnen und dem 
Fernseher (Monitor) gestattet. Mit dem Lichtgriffel ist es also möglich, 
durch ein simples Auflegen der Stiftspitze auf den Bildschirm dem 
Computer eine Bildschirmposition einzugeben. 
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Wie geht das nun vonstatten? Sie zeigen mit Ihrem in Controlport | 
gesteckten Lichtgriffel auf einen Punkt des Bildschirms. Dabei ist es 
egal, ob sich dieser Punkt innerhalb oder außerhalb des eigentlichen 
Textfensters befindet. Der Computer ist alsdann in der Lage, diesen 
Punkt zu identifizieren, er kennt also die Koordinaten dieses Punktes. 
Wenn Sie diese in Ihrem Programm abfragen, können Sie beispiels- 
weise feststellen, ob sich an der Stelle ein bestimmtes Objekt (Buch- 
stabe oder eine Graphik) befindet. Oder Sie zeichnen genau an dieser 
Stelle einen Punkt in die Graphik, so daß Sie per Hand auf den Bild- 
schirm zeichnen können! Eine andere Idee wäre, den Lightpen als 
komfortable Cursorsteuerung einzusetzen. Es gibt eine Menge Mög- 
lichkeiten der Verwendung. 


Doch nun zur technischen Seite des ganzen Geschehens. Wie stellt der 
Computer fest, wo auf dem Bildschirm nun gerade der Lightpen posi- 
tioniert ist? Sie wissen, daß ein Bild des Fernsehers (Monitors) aus 
vielen kleinen Punkten zusammengesetzt ist, die alle 1/20 Sekunden 
von einem Elektronenstrahl, der auf die erwähnte Lochrasterplatte 
fällt, zum Aufleuchten gebracht werden. Der Lightpen registriert nun, 
sofern er auf einen Punkt des Bildschirms gerichtet ist, dieses kurze 
Aufleuchten und sendet einen Impuls an den Computer. Achten Sie 
bei der Verwendung des Lightpen deshalb darauf, keine schwarze 
Hintergrundfarbe zu wählen und den Helligkeitsregler Ihres Bildaus- 
gabegerätes nicht zu niedrig einzustellen. Der genannte Impuls erreicht 
den VIC, der sofort die aktuelle Rasterzeile und die (uns bisher un- 
bekannte) Rasterspalte in zwei Registern als x,y-Punktkoordinaten 
ablegt. Es sind dies die beiden VIC-Register 19 und 20 (x- und y- 
Anteil). Hier kann jetzt ein Programm die beiden Werte auslesen und 
verwerten (z.B. indem es an dieser Stelle einen Punkt zeichnet). 
Zunächst aber muß noch einiges zu dem Koordinatensystem gesagt 
werden. Die y-Einteilung, also die Einteilung nach Rasterzeilen 
kennen Sie bereits. Sie wurde in Kap. 4.7.1 ausführlich erörtert. Die 
x-Einteilung ist nun etwas komplizierter. Hier gibt es jeweils halb so 
viele ansprechbare Rasterpunkte, wie wir von der Graphik her 
kennen, d.h. ein angegebener Rasterpunkt steht für zwei wahre Gra- 
phikpunkte. Es ergeben sich folgende Randwerte: Die linke Kante 
Ihres Bildschirms besitzt etwa den Randwert 30, die rechte ist Spalte 
Nr. 210. Das reguläre Bildfenster aber liegt links bei ca. 40 und rechts 
bei 200, womit wir 160 = 320/2 Rasterpunkte im Textfenster besitzen. 
Angenommen, wir haben zwei Werte für die Rasterkoordinaten aus 
den Registern 19/20 entnommen und wollen genau an dieser Stelle 
einen Punkt zeichnen. Dann müssen wir die Rasterkoordinaten in 
solche für die Graphik umrechnen. Dies können wir nach den obigen 
Ausführungen durch die folgenden Formeln vornehmen: 
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x 
y 


(xp-40)*2 
yp-40 


wobei x und y die Graphik- und xr, yr die Rasterkoordinaten dar- 
stellen. Jetzt können wir an der errechneten Stelle einen Punkt setzen. 


Das ist die einfache und auch von BASIC aus programmierbare Mög- 
lichkeit. Doch auch hier bietet Ihnen Ihr Computer eine Möglichkeit, 
mit der Interrupttechnik zu arbeiten: 


Sendet der Lightpen nämlich einen Impuls, so wird das 3. Bit des 
VIC-Registers 25 gesetzt. Haben wir vorher in Register 26 ebenfalls 
das 3. Bit gesetzt, kann ein Interrupt ausgelöst werden. Ihr Programm 
wird also unterbrochen und Ihre Interruptroutine aufgerufen, die das 
Ereignis bearbeitet. Auch hier werden Programmierbeispiele etc. in 
Kapitel 5 gegeben. 


4.7.3. Sprite-Kollisionen 


Wenn Sie sich den Abschnitt 4.5.4.4 durchgelesen haben, wissen Sie 
bereits, daß Sie eventuelle Berührungen von Sprites untereinander 
oder mit Hintergrundzeichen feststellen können, indem Sie den Inhalt 
der VIC-Register 30 und 31 lesen und analysieren. Wie Sie wissen, ist 
hier jedem Sprite ein Bit zugeordnet und diejenigen Bits gesetzt, 
deren Sprite kollidiert ist. Doch es gibt eine weitere Möglichkeit aus 
Assembler heraus Kollisionen zu registrieren. Wie Sie sich schon 
denken können, beruht diese Möglichkeit wieder auf der Interrupt- 
technik. Sie können den VIC (wieder durch den Gebrauch der Regi- 
ster 25/26) veranlassen, bei irgendeiner Kollision einen Interrupt 
auszulösen. Auch hier werden wieder Berührungen zwischen Sprites 
und dem Hintergrund und Sprite-Sprite-Kollisionen unterschieden. In 
Register 25 (IRR) ist dafür jeweils ein Bit reserviert. Bit 3 wird ge- 
setzt, wenn eine im Register 30 näher angegebene Berührung zwischen 
zwei Sprites stattgefunden hat. Entsprechendes passiert mit Bit 2, falls 
die Berührung zwischen einem Sprite und einem Hintergrundzeichen 
stattfand. Ein Interrupt wird, wie Sie sich sicher denken können, aber 
erst ausgelöst, wenn Sie vorher das korrespondierende Bit in Register 
26 gesetzt haben. Vergessen Sie nicht, die IRQ-Adresse umzulegen 


und nach jedem IRQ das IRR durch Zurückschreiben der Lesedaten 
zu löschen. 
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5. Supergraphik intern 


Grundsätzliche Graphikprogrammierung in BASIC und 
Maschinensprache 


Nachdem wir jetzt genügend graue Theorie über die Graphikfähig- 
keiten Ihres Rechners gehört haben, wollen wir uns in diesem Kapitel 
mit der Realisierung dieser Dinge beschäftigen. Denn was nützt uns 
das alles, wenn wir nicht wissen, wie wir Sprites oder hochauflösende 
Graphik selbst einsetzen, ohne auf eine Graphikerweiterung wie die 
Supergraphik angewiesen zu sein. Es ist das "Know how", das uns 
fehlt. Aus diesem Grunde gibt es zu jedem der obigen Abschnitte des 
4. Kapitels einen dazugehörigen aus diesem Kapitel, der die Program- 
mierung bzw. die Anwendung der einzelnen Möglichkeiten behandelt. 


Programme werden möglichst in BASIC, bei den vielen Maschinen- 
spracheroutinen zusätzlich ein BASIC-Lader angegeben. Bei Bedarf 
werden bereits jetzt Bezüge zum Source-Listing der Supergraphik in 
Kapitel 6 hergestellt. Alle Programme sind in REM-Zeilen bzw. mit 
Kommentaren dokumentiert. Die wichtigen und neuen Programmteile 
werden auch im Text beschrieben. Bei den BASIC-Routinen für die 
einzelnen Graphikfiguren und -anwendungen muß in aller Deutlich- 
keit gesagt werden, daß dies selbstverständlich nur Hilfen sind, um 
das Wesen der einzelnen Vorgänge zu verstehen; die entsprechenden 
Assemblerroutinen führen die gewünschte Funktion sehr viel schneller 
aus. Deswegen lohnt sich - wie auch oben schon einmal erwähnt - der 
Erwerb von Maschinensprachekenntnissen ungeheuer. Wenn Sie BASIC 
einigermaßen gut beherrschen, ist der Schritt dorthin nicht mehr weit. 
Versuchen Sie es einmal! 


Oft werden Sie sich fragen: Wieso soll ich diese Routine verstehen 
oder programmieren, ich habe doch die Supergraphik. Aber nur ein 
paar Befehle wegen gleich die ganze Supergraphik zu laden ist natür- 
lich etwas übertrieben. Aus diesem Grunde geben wir auch noch 
später viele Lösungsmöglichkeiten vor, Graphik auch ohne Supergra- 
phik zu programmieren. 
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5.1 Text und Graphik auf dem Low-Res-Bildschirm 


Die erste und einfachste Möglichkeit, Graphiken auf Ihrem Bildschirm 
darzustellen, ist das Arbeiten mit den originalen Graphikzeichen, die 
Sie an der vorderen Seite der einzelnen Tasten Ihres Rechners finden. 
Schon hiermit lassen sich mit etwas Phantasie (sie wird bei der Gra- 
phikerstellung stets benötigt) wunderbare und vielfarbige Bilder er- 
zeugen. Die Graphikzeichen lassen sich auf verschiedene Art und 
Weise erreichen: 


a) Ansteuerung durch die Tastatur: 


Die Zeichen, die auf der rechten Seite der Tasten stehen, lassen sich 
durch gleichzeitiges Drücken dieser jeweiligen normalen mit der 
<shift>-Taste auf dem Bildschirm darstellen. Diejenigen, die links 
stehen, werden mit der gedrückten <C=> (<commodore>) -Taste an- 
gewählt. Zusätzlich zu diesen normalen können Sie noch sogenannte 
inverse Zeichen erzeugen, indem Sie vorher gleichzeitig auf die Tasten 
<ctrl> und <rvs on> drücken (oder Sie geben ein: PRINT CHR$(18)). 
Wollen Sie die ausgesuchten Zeichen nicht mehr invers darstellen, so 
genügt ein <ctrl> mit <rvs off> (PRINT CHR$(146)). 


Farben: 


Die 16 verschiedenen Zeichen-Farben, die auf dem Bildschirm darge- 
stellt werden können, sind ebenfalls durch die Tastatur anwählbar 
(eine umfassende Tabelle der Farben und ihrer verschiedenen Zuord- 
nungen finden Sie im Anhang): 


Dabei drücken Sie für die ersten 8 Farben (numeriert nach den Farb- 
codes) gleichzeitig mit der <ctrl>-Taste eine der Tasten <1l-8> (die 
dabei entstehende Farbe steht ebenfalls auf der Frontseite der 8 
Tasten). Wollen Sie dagegen den folgenden Zeichen eine der 8 letzten 
Farben (Farben Nr. 8-15) geben, so drücken Sie einfach die <C=>- 
Taste mit den erwähnten 8 Farbtasten. 
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b) Ansteuerung durch das PRINT-Statement: 


Jedes Zeichen besitzt einen bestimmten, sogenannten ASCII-Code. 
Durch Angabe dieses Codes kann jedes Zeichen eindeutig bestimmt 
werden (dabei besteht zwischen inversen und normalen Zeichen aller- 
dings kein Unterschied). Den ASCII-Code eines Zeichens können Sie 
durch den BASIC-Befehl ASC in der folgenden Weise ermitteln (In 
diesem Falle für das Zeichen "A"): 


PRINT ASCC"AN) oder 
Zz$ = "A" 2 PRINT ASC(Z$) 


Der Rechner schreibt: 65. Kennen Sie umgekehrt den ASCII-Code 
eines Zeichens, so finden Sie dieses wie folgt durch den Befehl CHR$ 
(ebenfalls für das Zeichen "A"): 


PRINT CHR$(65) oder 
C = 65 : PRINT CHRS(CC) 


Und schon steht ein A auf dem Bildschirm. Der Vorteil dieser Co- 
dierung ist eine Berechenbarkeit von Zeichen, d.h. Sie können ein 
Zeichen durch irgendeinen Algorithmus (Rechenvorschrift) bestim- 
men. Gleichzeitig werden Vergleiche o.ä. sehr vereinfacht. 


Farben: 


Auch die verschiedenen Farben (neben vielen anderen Control-Funk- 
tionen wie <cIr/home> etc.) besitzen ASCII-Codes. Leider werden im 
CBM 64-Handbuch nur die der ersten 8 Farben angegeben; hier daher 
eine vollständige Auflistung: 


ASCII Farbe ASCII Farbe 
144 schwarz 129 orange 
5 weiß 149 braun 
28 rot 150  hellrot 
159 cyan 151 grau 1 
156 violett 152 grau 2 
30 grün 153  hellgrün 
31 blau 154 hellblau 


158 gelb 155 grau 3 
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c) Ansteuerung durch POKE: 


Alle Zeichen, die sich auf dem Bildschirm befinden, werden in einem 
besonderen Speicher abgelegt: dem Video-RAM (s. Kap. 4.6). Hier 
müssen natürlich normale und inverse Zeichen unterschieden werden, 
während Controlzeichen, die nicht auf dem Bildschirm erscheinen, 
nicht vermerkt werden brauchen. Somit wird bei der Abspeicherung 
ein anderer Code, der sogenannte Bildschirmcode verwendet (s. 
Kapitel 4). Wollen Sie also direkt in diesen Speicher POKEn, so 
müssen Sie sich jenes Codes bedienen. Mit 


POKE 1024, 1 


beispielsweise bringen Sie ein A in die linke obere Ecke des Bild- 
schirms. Dieses A ist jedoch noch nicht zu sehen (falls dort nicht zu- 
fällig vorher schon ein Zeichen stand). Es fehlt die Farbe, die im so- 
genannten Farb-RAM abgespeichert wird und z.B. mit 


POKE 55296,5 


angewählt wird (die 5 stellt den Farbcode dar, der im Farb-RAM ab- 
gespeichert wird). Das Zeichen wird grün (Farbe 5). Diese Zusam- 
menhänge sind ausgiebig in Kapitel 4.6.1 dargelegt. 


Auf den folgenden Seiten werden ihnen drei Programme vorgestellt, 
die alle das gleiche Ergebnis (s. Bild) erbringen, welches jedoch auf 
drei unterschiedliche Arten entsteht, ohne Rücksicht darauf, daß sich 
die eine oder andere Methode in diesem Falle so gut wie gar nicht für 
den demonstrierten Zweck eignet. Sie sollen Ihnen lediglich zeigen, 
wie die einzelnen Möglichkeiten der Zeichendarstellung in vivo, also 
direkt im Programm realsiert werden können. 




























1oa REM aa 

118 REM 9% ++ 

128 REM #4 LOW-GRAFHIKSFRIHT  #% 

1329 REM 3% ** 

158 REM 

1E0 PRINT CHRECIET) : PRINT 5 PRINT : REM BILDSCHIRM LOESCHEN-LEERZEILEN 

Ira FRIMT" ": REM M.N 

1a FRIMT" © A "2 REM MEUSTOLGK 

155 FRINT" . ": REM T.K,M 

za FRINT" # Mn ": REM N.rlollok 

218 FRIHT" a ": REM F 

225 PRINT" Lt REM FOFGFL.L.FP 
a FRIHT" a ” ": REM H.M.M 
© FRIMT" on ı ": REM HoM.L 
a FRINT" x ” t "2 REM N.M.L 
a FRIMT" Ba 6 "ERBEN EP oH 
5 FRINT" Immi x ": REM H En) 
= FRINT" Louis mm ": REM H. N.H.F.SSLI 
@ FRINT" I II OREH OHSCHFOHGHSUGE SE eh 
= FRIHT" I TI Rn REM OHSEHNGNENGT SEM 
a PRINT" TITTEN OT nn 
5 FRINT" ns "REM L.P.F.P.F.F.E 
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100 REM rk ke 

110 REM ** wr 

120 REM ** LOW-GRAPHIK/CHR$ ** 

130 REM ** wi 

140 REM rk 

150 REM 

160 PRINT CHR$(147) : PRINT : PRINT : REM BILDSCHIRM LOESCHEN/LEERZEILEN 
170 FOR X=1 TO 290 : REM 290 ASCII-CODES EINLADEN 
180 READ CH : REM LESE DATA 

190 PRINT CHR$CCH); : REM SCHREIBE ZEICHEN 

200 NEXT X 

210 REM 

220 REM RR 


230 REM ** DATAZEILEN ** 

240 REM wre 

250 REM 

260 DATA 32, 32, 205, 32, 206, 13 
270 REM 

280 DATA 32, 205, 213, 201, 32, 32 
290 DATA 32, 32, 32, 32, 32, 32 
300 DATA 32, 32, 32, 213, 203, 13 
310 REM 

320 DATA 32, 32, 202, 203, 205, 13 
330 REM 

340 DATA 32, 206, 32, 205, 32, 32 
350 DATA 32, 32, 32, 32, 32, 32 
360 DATA 32, 213, 203, 13 

370 REM 

380 DATA 32, 32, 32, 32, 32, 32 
390 DATA 32, 32, 32, 32, 32, 32 
400 DATA 32, 175, 13 

410 REM 

420 DATA 32, 32, 32, 32, 32, 32 
430 DATA 32, 32, 32, 32, 175, 175 
440 DATA 175, 204, 204, 175, 175, 13 
450 REM 

460 DATA 32, 32, 32, 32, 32, 32 
“TO DATA 32, 32, 32, 206, 205, 32 
480 DATA 32, 32, 32, 32, 32, 205 
490 DATA 13 

500 REM 

510 DATA 32, 32, 32, 32, 32, 32 
520 DATA 32, 32, 206, 32, 32, 205 
530 DATA 32, 32, 32, 32, 32, 182 
540 DATA 13 

550 REM 

560 DATA 32, 32, 32, 32, 32, 32 
570 DATA 32, 206, 32, 32, 32, 32 
580 DATA 205, 32, 32, 32, 32, 182 
590 DATA 13 
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600 REM 

610 DATA 32, 32, 32, 32, 32, 32 
620 DATA 32, 207, 183, 183, 183, 183 
630 DATA 208, 32, 32, 32, 32, 206 
640 DATA 13 

650 REM 

660 DATA 32, 32, 32, 32, 32, 32 
670 DATA 32, 165, 176, 174, 176, 174 
680 DATA 170, 32, 32, 32, 206, 13 
690 REM 

700 DATA 32, 32, 32, 32, 32, 32 
710 DATA 32, 165, 173, 189, 173, 189 
720 DATA 170, 32, 32, 206, 32, 32 
730 DATA 176, 174, 213, 201, 3 

740 REM 

750 DATA 32, 32, 32, 32, 3, 32 
760 DATA 32, 165, 32, 207, 208, 32 
770 DATA 170, 32, 206, 32, 32, 213 
780 DATA 177, 177, 203, 202, 201, 13 
790 REM 

800 DATA 32, 32, 32, 32, 32, 32 
810 DATA 32, 165, 32, 207, 170, 32 
820 DATA 170, 206, 32, 32, 45, 177 
830 DATA 215, 195, 195, 215, 177, 13 
840 REM 

850 DATA 32, 32, 32, 32, 32, 32 
860 DATA 32, 183, 183, 207, 183, 183 
870 DATA 183, 32, 32, 32, 207, 183 
880 DATA 183, 183, 183, 183, 183, 183 
890 DATA 183, 183, 13 

900 REM 

910 DATA 32, 32, 32, 32, 32, 32 
920 DATA 32, 32, 32, 204, 175, 175 
930 DATA 175, 175, 175, 175, 165, 13 


100 REM ad 2 2 2 2 2 2 a 2 2 2 2 2 2 2 2 2 2 2 22 


110 REM ** bes 
120 REM ** LOW-GRAPHIK/POKE ** 
130 REM ** wi 
140 REM Harrer 
150 REM 


160 FA = 5 : REM FARBE = GRUEN 

170 PRINT CHR$C147) : REM BILDSCHIRM LOESCHEN 

180 VR = 1024 + 2*40 : REM POKE-STARTADRESSE (VIDEORAM) 

190 FR = 55296 + 2*40 : REM POKE-STARTADRESSE (FARBRAM) 

200 FOR Y=0 TO 15 : REM 16 ZEILEN 

210 READ ZA : REM ANZAHL DER ZEICHEN IN DER ZEILE HOLEN 

220 VR = VR+40 : REM NAECHSTE ZEILE (40 SPEICHERSTELLEN WEITER) 
230 FR = FR+40 : REM NAECHSTE ZEILE (40 SPEICHERSTELLEN WEITER) 
240 FOR X=0 TO ZA-1 : REM ZA ZEICHEN POKEN 
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250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 


READ BC : REM BILDSCHIRMCODE LESEN 
POKE VR+X, BC : REM UND IN VIDEORAM SCHREIBEN 


POKE FR+X, FA : REM FARBE EINPOKEN 
NEXT X 

NEXT Y 

REM 

REM Weehe ke e 


REM ** BILDSCHIRMCODES ** 

REM re a a a 

REM 

DATA 5 

DATA 32, 32, 77, 32, 78 
REM 

DATA 17 

DATA 32, 77, 85, 73, 32, 32 
DATA 32, 32, 32, 32, 32, 32 
DATA 32, 32, 32, 85, 75 
REM 

DATA 5 

DATA 32, 32, 74, 75, 7 
REM 

DATA 15 

DATA 32, 78, 32, 77, 32, 32 
DATA 32, 32, 32, 32, 32, 32 
DATA 32, 85, 75 

REM 

DATA 1% 

DATA 32, 32, 32, 32, 32, 32 
DATA 32, 32, 32, 32, 32, 32 
DATA 32, 111 

REM 

DATA 17 

DATA 32, 32, 32, 32, 32, 32 
DATA 32, 32, 32, 32, 111, 111 
DATA 111, 76, 76, 111, 111 

REM 

DATA 18 

DATA 32, 32, 32, 32, 32, 32 
DATA 32, 32, 32, 78, 77, 32 
DATA 32, 32, 32, 32, 32, 7 
REM 

DATA 18 

DATA 32, 32, 32, 32, 32, 32 
DATA 32, 32, 78, 32, 32, 7 
DATA 32, 32, 32, 32, 32, 118 
REM 

DATA 18 

DATA 32, 32, 32, 32, 32, 32 
DATA 32, 78, 32, 32, 32, 32 
DATA 77, 32, 32, 32, 32, 118 
REM 


375 


376 


760 DATA 18 
TTO DATA 32, 32, 32, 
780 DATA 32, 79, 119, 
790 DATA 80, 32, 32, 
800 REM 
810 DATA 17 
820 DATA 32, 32, 32, 
830 DATA 32, 101, 112, 
840 DATA 106, 32, 32, 
850 REM 
860 DATA 22 
870 DATA 32, 32, 32, 
880 DATA 32, 101, 109, 
890 DATA 106, 32, 32, 
900 DATA 112, 110, 85, 
910 REM 
920 DATA 23 
930 DATA 32, 32, 32, 
940 DATA 32, 101, 32, 
950 DATA 106, 32, 78, 
960 DATA 113, 113, 75, 
970 REM 
980 DATA 23 
990 DATA 32, 32, 32, 
1000 DATA 32, 101, 32, 
1010 DATA 106, 78, 32, 
1020 DATA 87, 67, 67, 
1030 REM 
1040 DATA 26 
1050 DATA 32, 32, 32, 
1060 DATA 32, 119, 119, 
1070 DATA 119, 32, 32, 
1080 DATA 119, 119, 119, 
1090 DATA 119, 119 
1100 REM 
1110 DATA 17 
1120 DATA 32, 32, 32, 
1130 DATA 32, 32, 32, 
1140 DATA 111, 111, 111, 

a7 

O\ 


AN 


32, 
119, 
32, 


32, 
110, 
32, 


32, 
125, 
78, 


32, 
79, 


32, 
74, 


32, 
79, 
32, 
87, 


32, 
79, 


32, 
119, 


32, 
76, 
111, 


32, 
119, 
32, 


32, 
112, 
78 


32, 
109, 
32, 


32, 
80, 
32, 


32, 

106, 
45, 

113 


32, 
119, 


119, 


32, 
111, 
101 
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32 
119 
78 


32 
110 


32 
125 
32 


32 
32 
85 


32 
32 
113 


32 
119 
119 
119 


32 
111 
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Das erste der drei Programme zeigt die Erstellung eines Bildes mittelst 
PRINT-Statement, die hier schnellste und kürzeste und damit in 
diesem Fall wohl günstigste Möglichkeit. Hier wird das Bild nach dem 
Löschen des Bildschirmes, was in Zeile 160 durch ein 


PRINT CHR$(147) 


geschieht, durch je ein PRINT-Statement pro Zeile zusammengesetzt. 
Dabei wird ausgiebig von den erwähnten Graphikzeichen Gebrauch 
gemacht. In den REM-Zeilen dahinter erfahren Sie, auf welchen 
Tasten Sie die einzelnen Gebilde finden (die Leerzeichen sind dabei 
natürlich ausgelassen). Sie müssen diese Tasten dann nur noch 
gemeinsam mit <shift> oder <C=> drücken (wie oben beschrieben), 
und schon erscheint das gewünschte Zeichen auf Ihrem Bildschirm. 


Im zweiten Programm wird das gespeicherte Bild ebenfalls durch 
PRINT-Statements erzeugt. Sie enthalten jedoch nicht direkt die ein- 
zelnen Zeichen, sondern diese werden über den Umweg der ASCII- 
Codes erzeugt. Die verschiedenen ASCII-Codes sind dabei in DATA- 
Zeilen untergebracht. Wie Sie vielleicht wissen, werden in DATA- 
Zeilen verschiedene durch Komma abgetrennte Elemente gespeichert, 
die dann durch den Befehl READ nacheinander(!) in einen beliebigen 
Speicher (hier CH) eingelesen werden können (s. CBM 64 - Handbuch 
Kapitel 8). Dieses Einlesen geschieht in unserem Programm in Zeile 
180. Die Variable CH enthält nun den ASCII-Wert des als nächstes 
auszugebenden Wertes. In Zeile 190 wird das zugeordnete Zeichen 
dann gePRINTet. Das Ganze spielt sich in einer FOR...NEXT-Schleife 
ab, die insgesamt 290 mal durchläuft, um alle 290 Daten einzulesen. 
Am Ende jeder Bildzeile (die in den DATA-Zeilen durch ein REM 
getrennt sind) steht, wie Sie sehen, die Zahl 13. Dies ist der ASCII- 
Code für <return> und veranlaßt den Computer das nächste Zeichen 
an den Anfang der nächsten Zeile zu setzen. Wie Sie weiterhin sehen, 
werden hier eine ganze Menge DATAs benötigt, was diese Methode in 
unserem Falle recht uneffektiv gestaltet. Ein wenig geändert wäre die 
Lage, wenn man statt der vielen Codes für die Leerzeichen (ASCII = 
32) am Anfang einer Zeile einen Merker angibt, der über die Anzahl 
der Leerzeichen Auskunft gibt, die ausgegeben werden müssen, bevor 
die richtigen Graphikzeichen erscheinen. Lassen Sie sich einmal etwas 
einfallen. 
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Beispiel Nr. 3 demonstriert uns die Anwendung des POKE-Befehls, 
um Zeichen direkt in den Video-RAM einzuschreiben. Auch hier 
werden diesmal die Bildschirmcodes in DATA-Zeilen untergebracht. 
Doch neben dem einfachen Einschreiben eines Zeichens in den Spei- 
cher müssen Sie weiterhin noch die Farbe jedes einzelnen Buchstaben 
etc. in den Farb-RAM eintragen, wie oben dargelegt. Kern des Pro- 
gramms sind zwei ineinander verschachtelte FOR...NEXT-Schleifen. 
Die äußere (Z. 200-290) erhöht (nach dem Durchlauf der inneren) die 
Nummer der Zeile, die mit Graphikzeichen gefüllt werden soll. Vor 
dem Start der inneren Schleife wird zunächst ein Wert aus den 
DATA-Zeilen in die Variable ZA gelesen (Z. 210), der die Anzahl der 
Zeichen in der jeweiligen Bildschirm-Zeile angibt. Dieser dient dazu 
die Anzahl der inneren Schleifendurchläufe zu bestimmen. In dem 
Inneren dieser Schleife werden nun nacheinander die Bildschirmcodes 
der verschiedenen Zeichen durch READ eingelesen (Z. 250) und an 
die laufende Adresse im Video-RAM gePOKEt (Z. 260). Alsdann 
schreiben wir in die korrespondierende Stelle des Farb-RAMs den 
Wert 5 für die Farbe grün (Z. 270), der in Zeile 160 festgelegt wurde. 
Auch hier bietet sich natürlich die gleiche Verkürzung der DATA- 
Zeilen, wie im zweiten Beispiel beschrieben, an. 


Wie stellt man aber nun am günstigsten ein eigenes Graphikbild zu- 
sammen? Hier gibt es die unterschiedlichsten Möglichkeiten, und 
jeder wird selbst entscheiden, welche von ihnen ihm am einfachsten 
erscheinen. Allgemein kann aber gesagt werden, daß ein richtig schö- 
nes Bild mit vielen Details eine recht zeitaufwendige Sache ist, beson- 
ders, wenn man dazu noch selbstdefinierte Zeichen mit ins Spiel 
bringt, wie dies in Paragraph 5.4 dargelegt ist. Doch können auch 
einfache errechnete (also durch eine bestimmte Rechenvorschrift er- 
zeugte) Bilder oft schöne Effekte erzeugen. Dies demonstriert z.B. das 
folgende Beispiel: 


100 REM Rad 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 zz 


110 REM ** ws 

120 REM ** ZUFALLSBILD ** 

130 REM ** wi 

140 REM reiner 

150 REM 

160 PRINT CHR$C147) : REM BILDSCHIRM LOESCHEN 

170 PRINT CHRSCRNDCI)*3 + 177); : REM EINES DER DREI ZEICHEN 


ASC11=177/178/179 
180 GOTO 170 
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Vielleicht versuchen Sie dieses Programm einmal zu verstehen. Ein 
Tip: RND(1) ergibt Zufallszahlen von 0-1. 


Eine weitere Möglichkeit zur Erstellung von Bildern ist mit der Ver- 
wendung einer besonderen Routine verbunden. Diese Routine positio- 
niert den aktuellen Cursor an eine beliebige Stelle des Bildschirms. 
Wie Sie wissen ist dies mit dem originalen BASIC nur innerhalb einer 
Zeile möglich. Die kleine Unterroutine ab Zeile 1000 des folgenden 
Programms aber läßt einen beliebigen Zugriff zu. Sie übernimmt die 
gleiche Aufgabe wie der POS=-Befehl der Supergraphik: 


100 REM 


110 REM ** RR 
120 REM ** SINUSKURVE IM TEXT ** 
130 REM ** Er 


140 REM 

150 REM 

160 PRINT CHR$C147) : REM BILDSCHIRM LOESCHEN 

170 FOR X=0 TO 39 

180 Y=13*SINCX/3)+12 : REM FUNKTION 

190 GOSUB 1000 : PRINT"*"; : REM POSITION BERECHNEN 
200 NEXT X : END 

210 REM 

220 REM POSITIONSBERECHNUNG: 


230 REM Rd 2 2.2 20202 2.2.27 2020202 2.2 2.202702 


1000 PRINT CHRSC19);:IF Y>O THEN FOR Z=1 TO Y:PRINT:NEXT Z 
1010 PRINT TAB(X);: RETURN 


Gezeichnet wird eine Sinuskurve (s. Kap. 5.1) mit Hilfe des Stern- 
zeichnes (*). Dabei werden dem Unterprogramm in Zeile 1000 in den 
Speichern X und Y die Parameter für die Spalte (X) und die Reihe 
(Y) der gewünschten Cursorposition übergeben. Nach einem <home> 
(PRINT CHR$(19);) werden solange carrige returns gesendet, bis die 
gewünschte Zeile ereicht ist. Dann muß nur noch durch einen TAB- 
Befehl die richtige Spalte ausgewählt werden. Dieses kleine, aber 
äußerst effektive Unterprogramm erlaubt Ihnen wunderschöne Gra- 
phiken schon im Textmodus. 


Ein weiteres recht schönes und übersichtliches Verfahren der Erstel- 
lung von Bildern besteht darin, das gewünschte Bild auf dem Fernse- 
her direkt mit dem Cursor und der Tastatur zu erstellen. Dabei lassen 
Sie die Farbe am besten zunächst einmal außer betracht. Alsdann 
schreiben Sie vor jede einzelne Zeile (entweder mit Insert, wobei Sie 
beachten müssen, daß dadurch eventuell Zeilen unten fortgeschoben 
werden, oder durch einfaches Überschreiben) zunächst die Zeilen- 
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nummer, ein PRINT (abkürzbar mit einem Fragezeichen (?)) und ein 
Anführungszeichen ("), gefolgt schließlich von <return> (Sie brauchen 
also nicht unbedingt ein zweites Anführungszeichen, wenn die Zeile 
mit diesem PRINT-Ausdruck endet). Damit haben Sie schon einmal 
die wesentlichen Bildinhalte gespeichert. Doch die Sache hat einige 
Haken: 


Erstens muß in einer Zeile noch Platz für die Zeilennummer, Frage- 
und Anführungszeichen sein. Soll dieser Platz ebenfalls genutzt 
werden, so muß dies nachträglich im Programm geschehen. Vorsicht 
ist in der letzten Bildschirmzeile geboten. Sollten Sie zufällig mit dem 
Cursor nach unten über diese hinwegrollen, so wird der gesamte 
Bildschirm nach oben geschoben und die oberste Zeile verschwindet. 
Ein weiteres Problem: Sie dürfen in keiner Zeile die letzte Spalte ver- 
wenden. In diesem Fall würde eine neue Bildschirmzeile eingeschoben, 
was zu diversen Schwierigkeiten führt. 


Weiterhin können keine inversen Zeichen direkt in ein PRINT- 
Statement aufgenommen werden. Sollte Ihr Bild solche enthalten, so 
müssen Sie sie durch folgende Sequenz ersetzen: 


<Tvs On><....><rvs off> 


Mit <....> sind alle hintereinander folgenden (im Programm normalen) 
Zeichen gemeint, die auf dem Bildschirm invers dargestellt werden 
sollen. 


Drittens können Sie ebenfalls keine Farben direkt in ein PRINT- 
Statement mit aufnehmen. Dies muß durch den Einbau der entspre- 
chenden Farb-Controlcodes in ein PRINT-Statement nach dem Edi- 
tieren geschehen. Eine Bemerkung zum Schluß: Die Control-Zeichen 
werden bekanntlich nur dann richtig in einen PRINT-Ausdruck ein- 
gebaut (und nicht sofort ausgeführt), wenn Sie vorher ein Anfüh- 
rungszeichen (") gegeben haben. Dies ist aber bei nachträglichen Ein- 
fügungen sehr störend und auch nicht unbedingt notwendig. Sie 
können nämlich durch Einfügen einer Leerstelle mit <inst> ebenfalls 
an diese Stelle ein Controlzeichen setzen. Wollen Sie also in dem String 
"AB" zwischen A und B ein Controlzeichen einfügen, so kann dies 
einfach durch <inst> <controlzeichen> geschehen. 


Wie Sie sehen, ist diese Methode der Bilderzeugung nicht gerade sehr 
komfortabel, doch für den Anfang oder den Gelegenheitsdesigner ak- 
zeptabel. Wollen Sie aber professionell Bilder in größerer Stückzahl 
und Qualität erzeugen, so sollten Sie sich einen kleinen Bildeditor 
schreiben, also ein Programm, mit dem Sie einfach durch Bewegen 
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eines (selbst erzeugten) Cursors ein Bild mit allen Farben und Mög- 
lichkeiten erstellen können. Dies ist zugegebenermaßen nicht ganz 
einfach, aber ein sicher lohnendes Projekt. Diejenigen, die sich für 
dieses Thema besonders interessieren, sollten hierzu unbedingt noch 
den Paragraphen 5.4 gelesen haben. 


5.2 Programmierung der Punktgraphik 


Besonders die komplizierte Organisation der hochauflösenden oder gar 
der Multicolor-Graphik macht einem zu schaffen, wenn man versucht, 
diese zu bedienen. Allein die Ansteuerung eines Punktes in einem 
(gedachten) Koordinatensystem verursacht schon recht großes Kopf- 
zerbrechen und schließlich einen enormen Rechenaufwand. Die bloße 
Berücksichtigung aller notwendigen Faktoren zum Einschalten der 
Graphik bedarf eines guten Überblicks, der sich erst nach einiger Be- 
schäftigung mit dem Thema Graphik einstellt. Die Erstellung von 
einfachen Linien oder sogar Kreisen ist dabei so schwer und bedarf 
vieler mathematischer Kenntnisse, daß sie schon nur noch von recht 
firmen Programmierern gelöst werden können (falls Sie nicht die 
Supergraphik verwenden). Aus diesem Grunde werden hier die ver- 
schiedenen Routinen (also Programmteile) vorgestellt, die zur Reali- 
sierung der in Kapitel 4 dargelegten Möglichkeiten Ihres Rechners 
notwendig sind. Es ist dabei nicht unbedingt erforderlich, daß jeder 
einzelne Schritt eines Programms verstanden ist, da letztendlich die 
Anwendung dieser Dinge ausschlaggebend ist. Wer also nicht weiß, 
was beispielsweise sin oder cos bedeuten, der sollte über die einzelnen 
Stellen (hier der Kreiserzeugung) hinweglesen. Trotzdem sollte er den 
entsprechenden Abschnitt in Kapitel 4 (Abschnitt 4.4) über die 
Grundlagen der Graphik gelesen haben. Für die Interessierten jedoch 
können solche Informationen wertvoll sein, um die einzelnen Routinen 
für eigene Zwecke abzuwandeln oder Teile daraus für ähnliche Auf- 
gaben zu verwenden. 


Sie sollten sich jedoch darüber im klaren sein, daß eine BASIC-Rou- 
tine, so übersichtlich sie sein mag, bei weitem nicht die Geschwindig- 
keit besitzt, wie ein entsprechendes Maschinenspracheprogramm. 
Damit sind viele Effekte allein in BASIC nur sehr träge zu verwirk- 
lichen. Wenn Sie sich einmal anschauen, wie lange es in BASIC dauert, 
einen Kreis zu zeichnen, so werden Sie mir da wohl in aller Entschie- 
denheit und ohne zu zögern zustimmen. Um dieses Manko zu elimi- 
nieren, werden wir Ihnen am Ende dieses 5. Kapitels ein kleines 
Assembler-Graphik-Aid (samt BASIC-Lader) zusammenstellen, das 
Ihnen komprimiert die Möglichkeiten verschafft, die die Kernpunkte 
jeder Graphik darstellen. Die einzelnen Funktionen des Graphik- 


382 Das Sunergraphikbuch zum C64_ 


Paketes können Sie -quasi als kleine BASIC-Erweiterung- von BASIC 
aus ansteuern. Wollen Sie nur in BASIC programmieren, so beherzigen 
Sie die Tips, die Ihnen im Anhang zur Optimierung Ihrer Programme 
gegeben wurden. Mit diesem Graphik-Paket ersparen Sie sich das vor- 
herige Laden der Supergraphik, da Sie die einzelnen Routinen direkt 
in Ihre Programme einbauen können. 


Bei allen Programmen wird davon ausgegangen, daß der Graphik- 
speicher bei $2000-$3FFF (8192-16383) und der Video-RAM weiter- 
hin bei $0400-$07FF (1024-2047) liegen. Dies macht zwar ein Arbei- 
ten mit Text und Graphik zugleich unmöglich, ist jedoch programm- 
technisch besser zu bewältigen. Wie Sie den Graphikspeicher woanders 
hinlegen können (z.B. unter den ROM) und wie Sie damit umgehen, 
können Sie dem Source-Listing der Supergraphik entnehmen. Achten 
Sie aber bei langen Programmen und/oder vielen Speichern darauf, 
daß diese nicht mit der Graphikseite kollidieren. Sollte dies einmal 


geschehen, so setzen Sie in der ersten Zeile Ihres Programms einfach 
durch 


POKE 45,0 : POKE 46,64 


den Start der Variablen hoch auf $4000 (16384). Dabei ist jedoch zu 
beachten, daß bei jeder Programmveränderung die Graphikseite zer- 
stört wird und bei einem Abspeichern auf Diskette oder Kassette die 
Graphik mit übertragen wird. Wollen Sie also Veränderungen an Ihrem 
Programm vornehmen nachdem es einmal gestartet worden ist, so 
müssen Sie es erst einmal wieder einladen und direkt nach der Verän- 
derung abspeichern, bevor Sie es wieder starten! 


Wichtig bei allen Angaben ist, daß Sie diese direkt am Computer aus- 
probieren. Nur so werden Sie Herr über die Unmasse an Fakten und 
Zusammenhängen und nur so lernen Sie damit umzugehen. Der Com- 
puter ist Praxis! 


Doch jetzt wollen wir endlich anfangen. Krempeln wir uns also die 
Armel hoch, spucken dreimal in die Hände und los geht’s! 
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5.2.1 Initialisierung der Graphik 


Bevor wir unsere Figuren auf den Bildschirm zaubern, müssen wir 
natürlich erst einmal dafür sorgen, daß überhaupt Graphik zu sehen 
ist. Dazu gehört, daß der Bildschirm zunächst gelöscht wird, da im 
Anfang stets einiges an "Müll" erscheinen wird. Der Graphikspeicher 
wurde schließlich vorher anderweitig genutzt. Zu dem Löschen des 
Graphikbildschirms gehört natürlich auch ein Löschen der Farbe bzw. 
das Herstellen eines einfarbigen Bildschirms. Anschließend wollen wir 
sicher wieder zurück, um Text anzuzeigen. Wir benötigen also insge- 
samt vier getrennte Programmteile, sogenannte Routinen, allein um in 
die Graphik einzusteigen: 


- Graphik einschalten 
- Graphik löschen 

- Farbe löschen 

- Graphik ausschalten 


Diese vier Rechenvorschriften (Algorithmen) werden im folgenden 
einzeln vorgestellt und besprochen. Sie werden sehen, daß sie in jedem 
späteren Programm, das sich mit der Graphik beschäftigt, wieder in 
Form von Unterprogrammen auftauchen werden. Sie sollten also zu 
Ihrem ständigen Repertoire gehören. 


5.2.1.1 Einschalten der Graphik 


Nun ist es also soweit, wir können beginnen. Stellen wir zunächst 
einmal die Dinge zusammen, die zum Einschalten benötigt werden: 


a) Speicherlage: 


Zunächst einmal müssen wir uns einigen, wo im gesamten Speicher- 
bereich des 64ers die einzelnen Funktionen wie Video-RAM und 
Graphikspeicher liegen sollen. Hierfür sind Register 24 (Bits 3 und 4- 
7) des Videocontrollers und das Register 0 (Bits O0 und |) der CIA 2 
zuständig, deren Funktionen ausgiebig in dem Abschnitt 4.3 erläutert 
werden. In allen unseren Anwendungen werden wir uns - wie oben 
schon erwähnt - mit dem Graphikspeicher nur in dem Bereich von 
$2000 bis $3FFF (8192-16383) aufhalten, der Video-RAM liegt bei 
$0400-$07FF (1024-2047). Wollen Sie Ihre Graphiken in anderen Be- 
reichen ablegen, so müssen Sie entsprechende Änderungen vornehmen. 
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b) Graphikart: 


Wir müssen uns entscheiden, ob wir unser Bild in Multicolor, die be- 
kanntlich eine höhere Farbauflösung zuläßt, dafür aber weniger 
Punkte in x-Richtung besitzt, oder ob wir die hochauflösende Graphik 
wählen mit nur einer Farbe pro 8x8-Punkte-Feld. Der Aufbau und 
die Unterschiede dieser beiden Graphikarten wurden bereits in Para- 
graph 4.4 ausgiebig erörtert. 


Der zweite Punkt ist schnell gelöst. Wir wollen uns mit der hochauf- 
lösenden Graphik beschäftigen. Diese wird durch Setzen der Bits 5 
und 6 (Bit 6 muß gleichfalls gesetzt werden!) von Register 17 des VIC 
und das Löschen von Bit 4 des Registers 22 eingeschaltet. Letzteres ist 
normalerweise gelöscht, braucht also nicht unbedingt gleich Null ge- 
setzt werden. Das alles passiert durch zwei einfache POKESs, die in der 
unten folgenden Routine in den Zeilen 10070 und 10080 stehen. 


Auch die Adreßlagenwahl ist in unserem Falle recht einfach. Da wir 
uns nicht aus dem unteren 16 K-Bereich unseres Speichers herausbe- 
wegen (Sie wissen, daß der VIC nur 16 K addressieren kann (s. Kap. 
4.3.2) und im Normalzustand die untersten 16 K für ihn erreichbar 
sind), brauchen wir keine Veränderungen im Register der CIA 2 zu 
unternehmen. Lediglich die Basisadresse der Graphikseite muß durch 
Setzen des 3. Bits von Register 24 in den oberen Teil der 16 K, also 
nach unseren $2000 (8192) gelegt werden. In dem folgenden Unter- 
programm wird dies in Zeile 10090 erreicht: 


10000 REM ke 

10010 REM ** Wr 

10020 REM ** GRAPHIK EINSCHALTEN ** 

10030 REM ** “* 

10040 REM HH 

10050 REM 

10060 V = 53248 : REM BASISADRESSE - VIDEOCONTROLLER 

10070 POKE V+17, PEEK(V+17) OR (8+3)*16 : REM GRAPHIK EIN 

10080 POKE V+22, PEEK(V+22) AND 255-16 : REM MULTICOLOR AUS 
10090 POKE V+24, PEEK(V+24) OR 8 : REM GRAPHIK NACH $2000 (8192) 


Die Befehle AND und OR sind im Anhang beschrieben. Die Zeilen- 
nummern sind extra hoch, um die Routine leicht an ein Programm 
anzuhängen. Der Textmodus kann auch durch <run/stop> <restore> 
wieder eingeschaltet werden. 
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Die Routinen zum Ein- und Ausschalten der Graphik finden Sie im 
Supergraphik-Listing beim Befehl GMODE, der bekanntlich diese 
Funktionen übernimmt. Dort können Sie im Listing nachvollziehen, 
wie diese Aufgabe in der Supergraphik gelöst wurde. Dabei sind na- 
türlich noch eine ganze Menge Faktoren mehr zu beachten. Aus 
diesem Grunde sind die zuständigen Routinen weitaus komplizierter 
als hier im "reinen". 


5.2.1.2 Löschen der Graphik 


Da in dem Speicher, den nun unsere Graphik einnimmt, vorher stets 
etwas anderes stand, erhalten wir nach dem Einschalten der Graphik 
ein recht wildes Durcheinander von Strichen oder sonstigen Punkten. 
Um nun jeden Graphikpunkt zu löschen, müssen wir jedes Bit des 
Graphikspeichers auf O setzen. Mit einem POKE sind wir in der 
glücklichen Lage, gleich 8 Bits (Byte), also 8 Punkte gleichzeitig an- 
zusprechen. Es genügt also eine FOR..NEXT-Schleife, in der - ange- 
fangen von der Graphik-Startadresse ($2000 = 8192) bis zum Ende bei 
$3FFF (16383) - alle Bytes gelöscht werden. Da nun ein Bild aber nur 
320x200 = 64000 Punkte, also 64000/8 = 8000 Bytes besitzt, brauchen 
wir tatsächlich nur 8000 Bytes zu löschen: 


10200 REM rk 
10210 REM ** #r 
10220 REM ** GRAPHIK LOESCHEN ** 


10230 REM ** “r 
10240 REM rk 


10250 REM 

10260 BG = 8192 : REM BASISADRESSE DES GRAPHIKSPEICHERS 
10270 FOR X=BG TO BG+8000 : REM 8000 BYTES 

10280 POKE X,0 : REM LOESCHEN 

10290 NEXT X 


Wie Sie sehen, dauert dieser Vorgang recht lange. Haben Sie sich ein- 
mal das Graphik-Packet am Ende des Kapitels abgeschrieben, so 
werden Sie sehen, wie schnell so etwas in Assembler gehen kann. Die 
Variable BG gehört streng genommen nicht zu der Routine, genauso, 
wie die Variable V im oberen Programm. Sie sollten am Anfang eines 
jeden Programmes gesetzt werden. Wollen Sie die einzelnen Routinen 
als Unterprogramme laufen lassen, so müssen sie mit dem Befehl 
RETURN abgeschlossen werden. 
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Im Supergraphik-Listing finden Sie die Routine zum Löschen der 
Graphik beim GCLEAR-Befehl. Dabei müssen Sie allerdings die ver- 
schiedenen Verzweigungen zum Löschen von Graphikfenstern über- 
schlagen. Interessant ist hier nur die Routine zum Löschen eines 
vollen Bildschirms. 


5.2.1.3 Löschen der Farbe 


Die Farbe liegt bei der hochauflösenden Graphik stets im Video-RAM 
(s. Kap. 4.4). Dabei bestimmen die obersten 4 Bits eines jeden Bytes 
die Farbe der gesetzten Punkte in der Graphikseite, die unteren 4 da- 
gegen die Farbe der nicht gesetzten Punkte, also quasi die der Hinter- 
grundfarbe. Da der Video-RAM vor dem Einschalten der Graphik 
den Text enthielt, zeigen sich auch nach dem Löschen noch kleine 
Farbquadrate an den Stellen, an denen vorher Text stand. Um auch 
diese zu eliminieren, müssen wir im Video-RAM die Farbe einheitlich 
setzen. Dies wird in der folgenden Routine vorgenommen: 


10400 REM Aa a 0 2 2 2 0 2 2 da a 2 a 2 2 2 2 2 zz 


10410 REM ** TR 
10420 REM ** FARBE LOESCHEN ** 
10430 REM ** “r 
10440 REM risk 
10450 REM 


10460 BF = 1024 : REM BASISADRESSE DES VIDEORAM 

10470 FA = 6*16 + 7 : REM PUNKT - FARBE=BLAU/HINTERGRUND=GELB 
10480 FOR X=BF TO BF+1000 : REM 1000 BYTES 

10490 POKE X, FA : REM MIT PUNKT- UND HINTERGRUNDFARBE 
10500 NEXT X 


Hier gilt natürlich das Gleiche bezüglich der Variablen BF, wie im 
vorigen Programm dargelegt. FA ist ebenfalls eine Variable, die der 
Routine vom übergeordneten Programm übergeben wird und den Wert 
enthält, der in jedes Byte des Video-RAMs geschrieben werden soll 
und damit Punkt- und Hintergrundfarbe bestimmt. Sie sollten (beson- 
ders hier) ein wenig an den Programmen verändern, um sie richtig zu 
verstehen. Dies allerdings muß mit der nötigen Vorsicht geschehen, da 
wir uns direkt im Herz des Rechners befinden. Lassen Sie beispiels- 
weise BF gleich 0 werden, so wird Ihr Computer nicht zögern, sich 
von Ihnen zu verabschieden, da Sie direkt die Null-Seite des Speichers 
manipulieren, das "Kurzzeitgedächtnis" des Betriebssystems. 
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Wie Sie sich wahrscheinlich denken können, stehen die Routinen zur 
Farb-Initialisierung bei den Befehlen SCOL=, COLOR= und PCOL= 
im Source-Listing der Supergraphik. 


5.2.1.4 Ausschalten der Graphik 


Bislang konnten Sie sich immer nur durch <run/stop> <restore> aus 
der Graphikanzeige retten. Doch wird dadurch zwangsläufig Ihr Pro- 
gramm beendet, was nicht unbedingt im Sinne des Erfinders ist. Um 
diese Funktion regulär in unsere Routinensammlung aufzunehmen, 
müssen wir sämtliche Veränderungen rückgängig machen, die wir in 
dem Teil "Graphik einschalten" unternommen haben: 


- Bits 5/6 - Register 17 löschen 
- Bit 4 - Register 22 löschen 
- Bit 3 - Register 24 löschen 


Dies geschieht im folgenden Programm: 


10600 REM riesen 

10610 REM ** ur 

10620 REM ** GRAPHIK AUSSCHALTEN ** 

10630 REM ** wi 

10640 REM rer 

10650 REM 

10660 V = 53248 : REM BASISADRESSE - VIDEOCONTROLLER 

10670 POKE V+17, PEEK(V+17) AND 255-6*16 : REM GRAPHIK AUS 
10680 POKE V+22, PEEK(V+22) AND 255-1*16 : REM MULTICOLOR AUS 
10690 POKE V+24, PEEK(V+24) AND 255-8 : REM ZEICHENSATZ WIEDER NAC H 
$1000 (4096) 


Damit haben wir alle wichtigsten Dinge, um die Graphik zu bedienen. 
Nun können wir uns den schwierigeren Zusammenhängen widmen, die 
uns ermöglichen, auch etwas auf unserem Bild darzustellen. 
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5.2.2 Einfache Figuren in der Punktgraphik 


Nachdem wir uns mit den Dingen beschäftigt haben, die wir zum 
Ein- und Ausschalten der Graphik benötigen, kommen wir nun zu 
den ersten Gehversuchen der Graphikprogrammierung. Angefangen 
mit der Darstellung eines einfachen Punktes auf dem Bildschirm gehen 
wir über zu den geometrischen Grundformen der Linie und des 
Kreises, aus denen näherungsweise fast alle anderen Figuren herge- 
stellt werden können. 


5.2.2.1 Punkt 


Wir wollen, wie an anderer Stelle schon des öfteren erwähnt, das ge- 
samte Graphikfeld in sogenannte Koordinaten unterteilen. Dabei stellt 
der erste Wert stets die x-Koordinate, also die Anzahl der Punkte 
zwischen dem jeweiligen Punkt und dem linken Bildschirmfensterrand 
(0-319). Der zweite genannte Wert ist dann der y-Anteil der Koordi- 
nate, also die Anzahl der Punkte zwischen dem Punkt und der oberen 
Bildschirmkante (0-199). Der Nullpunkt (Koordinaten: 0,0) liegt dem- 
nach in der oberen linken Ecke des Fensters. Die untere rechte Ecke 
dagegen besitzt die Koordinaten 319,199. 


Soweit, sogut. Doch dies ist unsere Vereinbarung. Wir können dem 
Computer selbst nicht die entsprechenden Koordinaten angeben, um 
einen Punkt zu bestimmen. Wenn Sie die entsprechenden Kapitel ge- 
lesen haben (Kap. 4.4.2.), so kennen Sie den Aufbau der hochauflö- 
senden Graphik und ihre Speicherorganisation. Um nun aus den ange- 
gebenen Koordinaten auf das Byte und das Bit zu schließen, das den 
betreffenden Punkt bestimmt, müssen wir zunächst einige Umrechen- 
arbeit leisten. Sie brauchen die folgenden Ausführungen nicht unbe- 
dingt zu verstehen. Den Interessierten unter Ihnen sei die Herleitung 
der im folgenden Programm verwendeten Formel dargelegt. 


Lassen Sie uns zunächst einmal den Einfluß der y-Koordinate unter- 
suchen: 


Um die Nummer der Graphikzeile (eine Zeile besteht aus 8 Reihen) 
zu berechnen, in der sich der Punkt befindet, müssen wir die y-Ko- 
ordinate lediglich durch 8 teilen (ohne Rest): 


zeilennummer = INT(yK/8) 
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Da jede Zeile aus 320 Bytes besteht (jede Reihe besteht aus 320/8 = 
40 Byte), müssen wir diese Nummer mal 320 nehmen, um die 
Startadresse der betreffenden Zeile relativ zur Startadresse des Gra- 
phikspeichers zu erhalten: 


zeilenadresse = 320 * INT(yK/8) 


Der Rest der eben durchgeführten Division stellt nun die Nummer der 
Reihe in dieser Zeile dar und muß nur noch hinzuaddiert werden: 


reihenadresse = 320 * INT(yK/8) + (y AND 7) 


Der Einfluß der x-K.oordinate ist etwas schwieriger, da hier nicht nur 
einzelne Bytes, sondern sogar die Bits unterschieden werden müssen: 
Als erstes berechnen wir die Adresse des angesprochenen Bytes relativ 
zur Startadresse der betreffenden Reihe (s.o.). Wir rechnen: 


byteadresse = 8 * INT(xK/8) 
Nun berechnen wir die Position des gewünschten Bits in dem betref- 
fenden Byte durch Erstellung einer Maske. Das jeweilige Bit wird in 
der Maske gesetzt, alle anderen sind gleich 0: 


maske = 2*(7-(xK AND 7)) 


Diese Einzelteile werden - wie in der folgenden Routine gezeigt - 
zusammengesetzt: 


10700 REM Hrn 


10710 REM ** ur 
10720 REM ** PUNKTBERECHNUNG ** 
10730 REM ** (SETZEN) ar 
10740 REM Haare 
10750 REM 

10760 RA = 320 * INT(CYK/8) + (YK AND 7) 
10770 BA = 8 * INTCXK/8) 

10780 MA = 2*(7-(XK AND 7)) 

10790 AD = SA + RA + BA 


10800 POKE AD, PEEKCAD) OR MA 
10810 REMzfp7 

10900 REM Haar 
10910 REM ** Er 
10920 REM ** PUNKTBERECHNUNG ** 
10930 REM ** (LOESCHEN) “r 
10940 REM ara 


10950 REM 
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10960 RA = 320 * INT(YK/8) + (YK AND 7) 
10970 BA = 8 * INTCXK/8) 
10980 MA = 255 - 2°(7-(XK AND 7)) 


10990 AD = SA + RA + BA 
11000 POKE AD, PEEK(AD) AND MA 
11010 REMzfp3 


11020 REM INTERNE PARAMETER: 
11030 REM Hr 


11040 REM RA: REIHENADRESSE 
11050 REM BA: BYTEADRESSE 
11060 REM MA: MASKE 

11070 REM AD: ZIELADRESSE 
11080 REMzfp3 


11090 REM VORZUGEBENDE PARAMETER: 
11100 REM rer 


11110 REM SA: GRAPHIKSPEICHERSTARTADRESSE (Z.B. 8192) 
11120 REM XK: X-KOORDINATE 
11130 REM YK: Y-KOORDINATE 


Wie Sie sehen, unterscheiden wir hier zwischen dem Setzen und dem 
Löschen eines Punktes in HGR. Tatsächlich müssen diese Fälle ge- 
trennt behandelt werden. Die Variable SA gibt die Anfangsadresse des 
betreffenden Graphikspeichers an und wird bei uns stets bei 8192 ge- 
halten. Natürlich werden die beiden Routinen wie die im letzten Ab- 
schnitt vorgeführten meist als Unterprogramme verwendet und enden 
daher zum größten Teil mit einem RETURN. Dies erkennen Sie be- 
reits in dem folgenden Programm, das die inzwischen vorgeführten 
Routinen anwendet: 


100 REM Ba 12 
110 REM “r “r 
120 REM **  SINUSKURVE ** 
130 REM “r “r 
140 REM RS EZ 2 
150 REM 


160 V=53248 : REM STARTADRESSE DES VIC 

170 SA = 8192 : REM STARTADRESSE DES GRAPHIKSPEICHERS 
175 POKE V+32, 10 : REM RAHMENFARBE 

180 GOSUB 10000 : REM GRAPHIK EINSCHALTEN 

190 GOSUB 10200 : REM GRAPHIK LOESCHEN 

200 FA = 7*16 + 2 : GOSUB 10400 : REM FARBE SETZEN 
210 YK = 100 : REM X-ACHSE ZEICHNEN 

220 FOR XK=0 TO 319 

230 GOSUB 10700 : REM PUNKT ZEICHNEN 

240 NEXT XK 

250 XK = 160 : REM Y-ACHSE ZEICHNEN 

260 FOR YK=0 TO 199 
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270 GOSUB 10700 : REM PUNKT ZEICHNEN 

280 NEXT YK 

290 FOR XK=0 TO 319 : REM SINUSKURVE ZEICHNEN 
300 YkK = 70 * SIN (XK/25.5) + 99 

310 GOSUB 10700 : REM PUNKT ZEICHNEN 

320 NEXT XK 

330 POKE 198,0 : REM TASTEN LOESCHEN 

340 WAIT 198,255 : REM AUF TASTE WARTEN 

350 GOSUB 10600 : REM GRAPHIK AUS 


360 END 

370 REM 

10000 REM KA 
10010 REM ** e* 
10020 REM ** GRAPHIK EINSCHALTEN ** 
10030 REM ** RR 
10040 REM rk 
10050 REM 


10070 POKE V+17, PEEK(V+17) OR (8+3)*16 : REM GRAPHIK EIN 

10080 POKE V+22, PEEK(V+22) AND 255-16 : REM MULTICOLOR AUS 
10090 POKE V+24, PEEK(V+24) OR 8 : REM GRAPHIK NACH $2000 (8192) 
10100 RETURN 


10110 REM 

10200 REM Krk 
10210 REM ** “re 
10220 REM ** GRAPHIK LOESCHEN ** 
10230 REM ** ee 
10240 REM rss 
10250 REM 


10270 FOR X=SA TO SA+8000 : POKE X,0 : NEXT X 
10300 RETURN 


10310 REM 

10400 REM rk 
10410 REM ** “% 
10420 REM ** FARBE LOESCHEN ** 
10430 REM ** “x 
10440 REM ke 
10450 REM 


10460 BF = 1024 : REM BASISADRESSE DES VIDEORAM 
10480 FOR X=BF TO BF+1000 : POKE X,FA : NEXT X 
10510 RETURN 


10520 REM 

10600 REM ker 
10610 REM ** RE 
10620 REM ** GRAPHIK AUSSCHALTEN ** 
10630 REM ** ar 
10640 REM rk kkkekeeee 
10650 REM 


10670 POKE V+17, PEEK(V+17) AND 255-6*16 : REM GRAPHIK AUS 

10680 POKE V+22, PEEK(V+22) AND 255-16 : REM MULTICOLOR AUS 

10690 POKE V+24, PEEK(V+24) AND 255-8 : REM ZEICHENSATZ WIEDER NAC H 
$1000 (4096) 
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10695 RETURN 
10700 REM Haar achee ee 


10710 REM ** “r* 
10720 REM ** PUNKTBERECHNUNG ** 


10730 REM ** (SETZEN) Er 
10740 REM ke 


10750 REM 

10760 RA = 320 * INT(CYK/8) + (YK AND 7) 
10770 BA = 8 * INT(XK/8) 

10780 MA = 2°(7-(XK AND 7)) 

10790 AD = SA + RA + BA 

10800 POKE AD, PEEK(AD) OR MA 

10810 RETURN 


Bis auf ein paar Änderungen (z.B. wurde in dem Unterprogramm 
"Graphik löschen", aus Geschwindigkeitsgründen weitestgehendst auf 
REM-Zeilen verzichtet). Sind die verwendeten Routinen identisch mit 
den bisher vorgestellten. Probieren Sie ruhig einmal die einzelnen 
Dinge aus (besonders in der Zeile 300 sollten Sie die verschiedenen 
Zahlen verändern). Nur so lernen Sie mit ihnen umzugehen. 


Im Supergraphik-Listing finden Sie die Routine zur Berechnung der 
Adresse eines Punktes unter dem Label HPOSN. Sie macht genau das, 
was wir oben besprochen haben. Die zentrale Routine, die einen Punkt 
in die Graphik setzt finden Sie unter dem Label PLT. Dieser Routine 
werden aber noch einige Flags (Zeichenflag in FLG und FLG2), die 
Adresse in ADL/ADH, das Graphikmodusflag in GFLAG usw. über- 
geben. 


5.2.2.2 Linie 


Schon etwas schwieriger gestaltet sich das Zeichnen einer Linie 
zwischen zwei beliebigen Punkten auf dem Bildschirm. Man sieht dies 
zwar täglich in irgendwelchen Programmdemos, macht sich jedoch nie 
richtig Gedanken darüber, welche Überlegungen dahinter stecken. Das 
Problem ist: wie stelle ich fest, welche Punkte des Bildschirms auf 
dieser Linie liegen. Um es zu lösen müssen wir uns ein wenig mit der 
sogenannten analytischen Geometrie beschäftigen. Bekommen Sie 
keinen Schreck! Hinter diesem monströsen Begriff verbirgt sich etwas 
ganz harmloses (jedenfalls in dem Rahmen, der uns hier interessiert) 
und wenn es Sie nicht so sehr interessieren sollte, etwa weil sich Ihnen 
damit üble Kindheitserinnerungen verbinden, dann können Sie die 
folgenden Zeilen ruhig überlesen. Was wir suchen ist eine Formel, mit 


Supergraphik intern 393 


der wir die Punkte einer Geraden berechnen können, deren Eckpunkte 
gegeben sind. 


Nahezu jeder von uns wird schon einmal in irgendeinem Zusammen- 
hang (meist aus der Schule her) von der sogenannten normierten 
Geradengleichung gehört haben: 


y=m+n 


wobei x und y die Koordinaten eines Punktes auf einer Geraden, m 
die Steigung der Geraden und n den Schnittpunkt mit der y-Achse 
darstellen. Durch einfache Umformung dieser Formel erhalten wir: 


n = y-mı 


Kennen wir nun zwei Punkte der Geraden (unsere Endpunkte xI,yl 
und x2,y2), so können wir gleichfalls die zwei folgenden Formeln 
aufsetzen, die wir gleichsetzen können: 


I en. 
FD 


<= m=----- 


Letztere Formel läßt uns nun die Steigung m der obigen Gleichung 
ausrechnen. Ist n=0, so geht die Gerade durch den Ursprung mit 
Koordinaten 0,0. Verschieben wir diesen Ursprung der Gerade zu 
einem Endpunkt, so müssen wir entsprechend die beiden Koordinaten 
(in diesem Fall x2 und y2) zu x und y hinzuaddieren. Die folgende 
Formel gibt uns nun die endgültige Geradengleichung wieder, die 
bereits die verschobene Gerade angibt und in die m eingesetzt wurde: 


Diese Formel ist die Grundlage des unten dargestellten Programms 
und wird stückweise in den Zeilen 10970, 11000 und 11020 errechnet, 
wobei die x-Koordinate XK stets von X2 nach XI läuft und für 
jeden solchen x-Wert der entsprechende y-Wert bestimmt wird. Ein 
Schaubild mag diese Formel erläutern: 
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Das einzige Problem bei dieser Formel entsteht, wenn wir eine Senk- 
rechte zeichnen wollen. In diesem Fall wird x1=x2 und damit der 
Nenner der Steigung gleich 0, was zu einem DIVISION BY ZERO 
ERROR führt. Wir umgehen diese Unkorrektheit, indem wir in Zeile 
10990 verzweigen und dort direkt eine Senkrechte zeichnen. Wie Sie 
sehen werden und was schon oft erwähnt wurde, kommt ein BASIC- 
Programm in der Geschwindigkeit mit einem Maschinenprogramm 
natürlich nicht mit. Trotzdem mag Ihnen diese Routine, die Sie eben- 
falls als Unterprogramm verwenden können, gute Dienste leisten. 


100 REM re er rer rer 
110 REM “r xr 
120 REM ** GERADE ** 
130 REM “r x* 
140 REM EN er 212121722 
150 REM 


160 v=53248 : SA=8192 

170 GOSUB 10000 : REM GRAPHIK EIN 

180 FA = 1*16 + O : GOSUB 10400 : REM FARBE SETZEN 

190 GOSUB 10200 : REM GRAPHIK LOESCHEN 

270 X1=110:Y1=120:X2=130:Y2=140 :REM ENDPUNKT -KOORDINATEN 
280 GOSUB 10900 : REM GERADE 

290 WAIT 198,255 : REM AUF TASTE WARTEN 

300 GOSUB 10600 : REM GRAPHIK AUS 

310 END 

320 REM 


10000 REM add 2 2 2 2 2 2 2 202 2 22 2 2 202 20202 202020203 


10020 REM ** GRAPHIK EINSCHALTEN ** 

10040 REM U ee 

10050 REM 

10070 POKE V+17, PEEK(V+17) OR (8+3)*16 : REM GRAPHIK EIN 

10080 POKE V+22, PEEK(V+22) AND 255-16 : REM MULTICOLOR AUS 
10090 POKE V+24, PEEK(V+24) OR 8 : REM GRAPHIK NACH $2000 (8192) 
10100 RETURN 

10110 REM 


10200 REM add 2 2 202 2 202 2 202 2 2 2 2 202 2 27120203 


10220 REM ** GRAPHIK LOESCHEN ** 

10240 REM ksta 

10250 REM 

10270 FOR X=SA TO SA+8000 : POKE X,0 : NEXT X 
10300 RETURN 

10310 REM 

10400 REM Hr 

10420 REM ** FARBE LOESCHEN ** 

10440 REM  Wrkskakakeakekktkkk 

10450 REM 

10460 BF = 1024 : REM BASISADRESSE DES VIDEORAM 
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10480 
10510 
10520 
10600 
10620 
10640 
10650 
10670 
10680 
10690 
$1000 
10695 
10700 
10720 
10730 
10740 
10750 
10760 
10770 
10780 
10790 
10800 
10810 
10900 
10910 
10930 


FOR X=BF TO BF+1000 : POKE X,FA : NEXT X 
RETURN 
REM 


REM RR a a a a a a a a a ir 


REM ** GRAPHIK AUSSCHALTEN ** 

REM RR 

REM 

POKE V+17, PEEK(V+17) AND 255-6*16 : REM GRAPHIK AUS 

POKE V+22, PEEK(V+22) AND 255-16 : REM MULTICOLOR AUS 

POKE V+24, PEEK(V+24) AND 255-8 : REM ZEICHENSATZ WIEDER NAC H 
(4096) 

RETURN 


REM re 
REM ** PUNKTBERECHNUNG ** 
REM ** (SETZEN) RR 
REM RR 
REM 

RA = 320 * INTCYK/8) + (YK AND 7) 
BA = 8 * INT(XK/8) 

MA = 2°(7-(XK AND 7)) 

AD = SA + RA + BA 

POKE AD, PEEK(CAD) OR MA 
RETURN 

REM 

REM re 


REM ** GERADE ZEICHNEN ** 


10950 REM rss 

10960 REM 

10970 DY=Y2-Y1:DX=X2-X1 :REM DIFFERENZEN 

10980 YK=Y2:XK=X2 :REM Y-START 

10990 IFDX=OTHEN FOR YK=Y2TOY1 STEPSGN(-DY):GOSUB 11060:NEXT YK:GOTO 
11050 :REM SENKR. 

11000 DD=DY/DX :REM STEIGUNG 

11010 FOR XK=X2 TO X1 STEP SGNC-DX) 

11020 ZK=INT(DD*(XK-X2)+Y2) :REM GERADENGLEICHUNG 

11030 IF ZK<>YK THEN YK=YK+SGN(-DY):GOSUB 11060:G0T0 11030 :REM SE NKR. 
ZEICHNEN 

11040 GOSUB11060:NEXT XK: REM NAECHSTE X-KOORD. 

11050 RETURN 

11060 GOSUB10760:XK=XK+1:GOSUB10760:XK=XK-1:RETURN :REM DOPPELT BR EIT 


ZEICHNEN 


Sollten Sie 


es einmal leid sein, stets darauf zu warten, bis der gesamte 


Bildschirm gelöscht ist, so setzen Sie einfach vor die Zeile 190 ein 
REM, um diese Prozedur zu unterdrücken. 
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In der obigen Routine werden einige Speicher verwendet, deren Inhalt 
im folgenden kurz erläutert sei: 


Eingabewerte: 
xXl/Yıl bzw. 
xX2/Y2: Endkoordinaten der Linie 


interne Werte: 
DX/DY: Differenzen der Koordinatenpaare 


DD: Die Steigung m 
XK/YK: Koordinaten des aktuellen Punktes 
ZK: Zwischenspeicher 


Zwei Punkte müssen hier noch erläutert werden: Zum einen die 
Funktion SGN, zum anderen die Zeile 11060. SGN besitzt eine recht 
nützliche Eigenschaft: Ist die Zahl, die in den Klammern steht positiv, 
so ist das Ergebnis |, ist sie negativ, so nimmt es den Wert -I an (bei 
0 wird SGN ebenfalls 0). Die Funktion dient also zur Bestimmung des 
Vorzeichens. 


In Zeile 11060 wird jeder Punkt, der angesteuert wird dupliziert, so 
daß ein doppelt breiter Punkt entsteht. Dies ist notwendig, da einzelne 
Punkte, die in x-Richtung keinen Nachbarn besitzen entweder gar 
nicht oder nur sehr schwach zu sehen sind. So, und jetzt viel Spaß bei 
Ihrer Linienkreation. 


Linienberechnung in Assembler: 


Wenn Sie das vorstehende Programm des öfteren für Ihre Linien und 
Zeichnungen verwenden wollen, so wird Ihnen die lange Wartezeit, 
die zum Zeichnen benötigt wird, recht bald unbequem. In diesem Fall 
sollte uns ein Blick hinter die Kulissen einer in Maschinensprache 
(Assembler) geschriebenen Routine nicht zu schade sein. Sie werden 
staunen, welchen Geschwindigkeitsvorteil eine solche Assemblerrou- 
tine bringen wird (s. Supergraphik). 


Gehen wir die Sache einmal ganz ruhig an: Natürlich werden wir hier 
versuchen, einen Algorithmus, also eine Rechenvorschrift zu finden, 
in der nicht so viel zeitintensiv herumgerechnet werden muß. Dazu 
sehen wir uns einmal an, wie eine sogenannte Linie in Wirklichkeit 
auf dem Bildschirm ausschaut (s. Abbildung). Was uns da als schöne, 
gleichmäßige Linie erscheint, nimmt in Wahrheit einen recht wilden 
Zickzackverlauf. Wir werden nun nicht die Koordinaten jedes Punktes 
einzeln errechnen, sondern lediglich feststellen, in welche Richtung 
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(hoch, runter, rechts oder links) der nächste Punkt gezeichnet werden 
soll. Dadurch muß jedesmal nur eine einfache Addition durchgeführt 
werden. 
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Wie wir oben gesehen haben, können wir die Steigung einer Geraden 
durch die Formel m=(y2-yl)/(x2-x1) berechnen. Nehmen wir an, wir 
befinden uns während des Zeichnens unserer Linie gemäß obiger Ab- 
bildung im Punkt p3. Wie deutlich zu sehen ist, befindet sich dieser 
Punkt nicht auf, sondern vielmehr "über" unserer Ideallinie. Die Stei- 
gung der Geraden pl nach p3 ist also größer, als die Idealgerade p] 
nach p2. Aus diesem Grunde müssen wir den nächsten Punkt rechts 
neben dem zuletzt gezeichneten Punkt setzen, da sich nur so im näch- 
sten Schritt die Steigung von pl->p3 wieder an die der Gerade pl->p2 
annähert. 
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Wir können nun also unser Gesetz formulieren: 

Ist die Steigung der Geraden zwischen Start- und aktuellem Punkt 
größer als die der Idealgeraden, so zeichnen wir den nächsten Punkt 
rechts neben den vorherigen, ist sie dagegen kleiner oder gleich, so 
wird der nächste Punkt darüber gezeichnet. Dies gilt natürlich nur 
dann, wenn man grundsätzlich von unten nach oben eine Linie mit 
positiver Steigung zeichnet. Doch realisieren wir erst einmal diesen 
einen Fall. 


Im folgenden sei ma die Steigung der Gerade zwischen Start- und 
aktuellem Punkt (pl->p3) und mi die Steigung der Ideallinie (pl->p2). 
Dm ist dann die Differenz dieser Werte: 

Dm = mi-ma 


Folgende zwei Fälle sind zu unterscheiden: 


a) Dm > 0 => Schritt nach oben 
b) Dm<0O => Schritt nach rechts 


Für die Steigungen setzen wir nun die entsprechenden Punkt-Stei- 
gungs-Formeln (s.o.) ein: 


ma 
mi 


(y3-y1)/03-x1) 
(y2-y1)/cx2-x1) 


Dann ergibt sich: 


Dm 
Dm* (x3-x1)*(x2-x1) 


(y2-y1)/cx2-x1) - (y3-y1)/(x3-x1) <=> 
(y2-yl)*lx3-x1) - (y3-y1)*cx2-x1) 


Da x3 und x2 immer größer sind als xl, ist auch der Ausdruck (x3- 
x1)*(x2-x1) immer größer null, ändert also nichts an dem Vorzeichen 
der linken Seite der Gleichung. Da aber nun interessant ist, ob Dm 
größer oder kleiner Null ist, kann man die beiden Klammern auf der 


linken Gleichungsseite getrost wegfallen lassen und wir erhalten 
wieder: 


Dm = (y2-y1)*(x3-x1) - (y3-yl)*(x2-x1) 
Streng mathematisch ist diese Gleichung natürlich falsch. Gleich sind 


natürlich nur noch die Vorzeichen der beiden Gleichungsseiten. Für 
unsere Zwecke geht das aber in Ordnung. 
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Bewegen wir uns nun nach rechts, so erhöht sich x3, also (x3-xl), 
entsprechend um 1, bewegen wir uns dagegen nach oben, so erhöht 
sich y3, also (y3-yl), um I. Das neue Dm (Kurz NDm) sieht für den 
ersten Fall dann so aus: 


NDm = (y2-y1)*C(x3-x1)+1) - (y3-y1)*lx2-x1) = 
NDm = (y2-y1)*lx3-x1) + (x3-x1) - (y3-yl)*lx2-x1) <= 
NDm = Dm + (x3-x1) 


Entsprechend für den zweiten Fall: 


NDm = (y2-y1)*lx3-x1) - CCy3-y1)+1)*lx2-x1) = 
NDm = (y2-y1)*lx3-x1) - (y3-yl)*lx2-x1) - (y3-yl) <= 
NDm = Dm - (y3-y1) 


Damit kann jedes NDm durch eine einfache Addition aus dem alten 
Dm errechnet werden. Dieser neue Wert wird dann auf sein Vorzei- 
chen getestet, um wiederum zu entscheiden, in welche Richtung nun 
gezeichnet werden soll, die Koordinaten werden erhöht, das neue Dm 
wird errechnet usw. 


Bisher haben wir diese Ableitung nur für Geraden mit positiver Stei- 
gung dargestellt. Bei Geraden mit m<O (negative Steigung), also y3 
kleiner yl, gelten die gleichen Regeln und Formeln, wenn man die 
Vorzeichen von (y2-yl) und (x2-x1) umkehrt, also den Betrag dieser 
Werte berechnet. Gleichzeitig muß natürlich statt nach rechts nach 
links und statt nach oben nach unten gezeichnet werden. 


Dieses ganze Verfahren wird solange wiederholt, bis x3=x2 und y3=y2. 
Um nicht dauernd diese Differenz zu berechnen, wird einfach die 
Anzahl der zu zeichnenden Punkte anz gezählt: 


anz= abs(x2-x1) + abs(y2-y1) 


abs ist die Absolutfunktion, d.h. Vorzeichen werden weggestrichen. Ist 
die Anzahl der zu zeichnenden Punkte erreicht, ist die Linie fertig. 


Im Supergraphik-Listing finden Sie die entsprechenden Routinen 
unter HLINE, die Vektorroutinen unter OBEN, UNTEN, RECHTS, 
LINKS. 
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5.2.2.3 Ellipse/Kreis 


Eine weitere wichtige und viel verwendete Figur ist der Kreis oder 
allgemeiner die Ellipse. Mit Ihnen lassen sich schöne Effekte erzeugen. 
Auch hierzu wird Ihnen im folgenden eine kleine Demonstrationsrou- 
tine angegeben, mit der Sie Ellipsen bzw. Kreise zeichnen können. 
Doch vorher sollten wir für die Interessierten unter Ihnen die mathe- 
matischen Grundlagen darlegen, die für das Verständnis dieser Funk- 
tion vonnöten sind. Wir werden uns in diesem Buch mit insgesamt drei 
Möglichkeiten der Kreis- bzw. Ellipsenerzeugung beschäftigen. Die 
erste etwas einfacher zu verstehende wird hier angeführt. Im An- 
schluß daran erfahren Sie etwas über die sogeannte Achtelkreistech- 
nik. Die dritte Möglichkeit, sie resultiert aus der Verwendung soge- 
nannter Polarkoordinaten und erlaubt das Zeichnen von Kreisbögen, 
fanden Sie bereits unter dem Abschnitt "Kuchendiagramme" im 3. Ka- 
pitel (Kap. 3.1.3). Doch hier seien Sie zunächst in die übliche Dar- 
stellungsweise eingeführt: 


In unserer Routine gehen wir von der sogenannten Mittelpunktsglei- 
chung der Ellipse aus: 


x’2 y”2 
... + Er = 1 


a b 


Dabei bedeuten x und y die jeweiligen Koordinaten der Randpunkte 
der Ellipse. a ist der Radius in x-Richtung und b derjenige in y- 
Richtung. Der Mittelpunkt der Ellipse liegt im Koordinatenursprung 
(x=0/y=0): 
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Um diese Gleichung in unser Programm einzufügen, müssen wir sie 
zunächst einmal nach y auflösen: 





Mit dieser recht kompliziert aussehenden Gleichung können wir nun 
die Punkte eines Ellipsenrandes berechnen. Dabei ist jedoch zu be- 
achten, daß dabei stets nur gleichzeitig ein Bogen von 90 Grad ge- 
zeichnet werden kann, da eine Ellipse streng genommen keine Funk- 
tion darstellt (Relation). Um die vier anderen Bögen zu zeichnen, 
müssen wir die Vorzeichen von x und y umkehren. Für x geschieht 
das im unten stehenden Programm durch die FOR...NEXT-Schleife in 
Zeilen 11150 - 11190, in dem F2 nacheinander die Werte -1 und | 
annimmt. y dagegen wird in Zeile 11180 negiert. Da die obige Glei- 
chung nur für Ellipsen mit dem Mittelpunkt bei x=0 und y=0O gilt, 
müssen wir entsprechende Summanden zu x und y hinzufügen, wie 
unten gezeigt. 


Wollen Sie mit unten stehendem Programm einen Kreis zeichnen, so 
müssen Sie a und b (also die Speicher XR/YR) und damit die beiden 
Radien gleich groß werden lassen, weil ein Kreis lediglich einen Son- 
derfall einer Ellipse darstellt. 


100 REM Ba 5 1 12 57 
110 REM “r “r 
120 REM ** ELLIPSE ** 
130 REM “r “r 
140 REM BEN EN 27 1212727557725 
150 REM 


160 V=53248 : SA=8192 

170 GOSUB 10000 : REM GRAPHIK EIN 

180 FA = 1*16 + 0 : GOSUB 10400 : REM FARBE SETZEN 

190 GOSUB 10200 : REM GRAPHIK LOESCHEN 

270 XR=40:YR=20:XM=160:YM=100 :REM X/Y-RADIUS===MITTELPUNKTKOORDIN ATEN 
280 GOSUB 11100 : REM ELLIPSE 

290 WAIT 198,255 : REM AUF TASTE WARTEN 

300 GOSUB 10600 : REM GRAPHIK AUS 

310 END 

320 REM 


10000 REM Ka 2020202 2020202 2.202 0202.2020202 7272 712.2.2 702.202 


10020 REM ** GRAPHIK EINSCHALTEN ** 


10040 REM Rad 202 202 220202 2.2 020202.202020272 722.22 7.2.202 


10050 REM 
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10070 POKE V+17, PEEK(V+17) OR (8+3)*16 : REM GRAPHIK EIN 

10080 POKE V+22, PEEK(V+22) AND 255-16 : REM MULTICOLOR AUS 
10090 POKE V+24, PEEK(V+24) OR 8 : REM GRAPHIK NACH $2000 (8192) 
10100 RETURN 

10110 REM 


10200 REM HArHrhrhrheehenie heine 


10220 REM ** GRAPHIK LOESCHEN ** 

10240 REM Hr 

10250 REM 

10270 FOR X=SA TO SA+8000 : POKE X,0 : NEXT X 
10300 RETURN 

10310 REM 


10400 REM Aa 2 2 2 2 a a 2 a da a 2 2 2 2 2 zz 


10420 REM ** FARBE LOESCHEN ** 

10440 REM riechen 

10450 REM 

10460 BF = 1024 : REM BASISADRESSE DES VIDEORAM 
10480 FOR X=BF TO BF+1000 : POKE X,FA : NEXT X 
10510 RETURN 

10520 REM 


10600 REM Ra a a 2 a A 2 a A a a a 2 a a a 2 a a 2 dd 2 2 a zz 


10620 REM ** GRAPHIK AUSSCHALTEN ** 

10640 REM rn 

10650 REM 

10670 POKE V+17, PEEK(V+17) AND 255-6*16 : REM GRAPHIK AUS 

10680 POKE. V+22, PEEK(V+22) AND 255-16 : REM MULTICOLOR AUS 

10690 POKE: V+24, PEEK(V+24) AND 255-8 : REM ZEICHENSATZ WIEDER NAC H 
$1000 (4096) 

10695 RETURN 


10700 REM a a 2 2 a 2 2 a 2 a a a 2 a a 2 2 2 2 zz 


10720 REM ** PUNKTBERECHNUNG ** 


10730 REM ** (SETZEN) en 
10740 REM rn 
10750 REM 

10760 RA = 320 * INTCYK/8) + (YK AND 7) 
10770 BA = 8 * INTCXK/8) 

10780 MA = 2*(7-(XK AND 7)) 


10790 AD = SA + RA + BA 

10800 POKE AD, PEEK(AD) OR MA 
10810 RETURN 

11100 REM 


1 1 1 10 REM ad 2 2 2 2 2 a a 2 a a a 2 a a 2 0 2 20 zz 


11120 REM ** ELLIPSE ZEICHNEN ** 

11130 REM rrkrkene 

11140 REM 

11150 FOR F2=-1 TO 1 STEP 2 : REM RECHTS/LINKS-FLAG 

11160 FOR X=0 TO F2*(XR) STEP F2 

11170 ZK = YR * SQRC1-X*2/XR"2):XK=X+XM : REM KREISGLEICHUNG 

11180 YK = YM + ZK:GOSUB 10760:YK = YM - ZK:GOSUB 10760 : REM PUNK TE 
OBEN/UNTEN 


11190 NEXT X,F2:RETURN 
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Die 4 Übergabeparameter sind: 


XM/YM : Koordinaten des Mittelpunktes 
XR/YR : x-/y-Radius (a und b) 


Die Achtelkreismethode: 


Es gibt nun noch eine zweite, sehr schnelle Methode, einen Kreis zu 
zeichnen, die sogenannte Achtelkreismethode. Hierbei werden nach 
jeder Berechnung insgesamt 8 verschiedene Punkte des Kreises ge- 
zeichnet. So reduziert sich die Zeit zum Zeichnen des Kreises auf 
etwa ein achtel. Ausgehend von den 4 Vierteln (0, 90, 180 und 270 
Grad) wird der Kreis so jeweils in und gegen den Uhrzeigersinn ge- 
zeichnet. Dabei geht man folgendermaßen vor: 


Angenommen, man hat die Koordinaten eines Kreispunktes bei | 
Grad nach dem alten Algorithmus (s.o.) berechnet und den entspre- 
chenden Punkt des Kreises gezeichnet. Dieser befindet sich nun im 
rechten oberen Viertel des Kreises. Da ein Kreis nun ein sehr sym- 
metrisches Objekt ist, kann dieser Punkt nun an dem senkrechten 
Durchmesser des Kreises gespiegelt werden. Die y-Koordinate dieses 
dadurch entstehenden neuen Punktes (im linken oberen Viertel) ist 
identisch mit der des Ursprungpunktes. Lediglich die x-K.oordinate ist 
nach folgender Formel umzurechnen: 


x2 
x2 


xmitte-(x1-xmitte) 
2*xmitte-x1 


Dabei ist xmitte die x-Koordinate des Kreismittelpunktes. Da man zu 
den Koordinaten ja sowieso erst zum Schluß kurz vor dem Zeichnen 
die Mittelpunktkoordinaten hinzuaddiert (s.o.), braucht man in der 
obigen Gleichung die Rechnerei mit xmitte gar nicht, sondern rechnet 
einfach: 


x2U = -x1U 


Dabei sind x2U und xIU die Koordinaten des Kreises mit dem 
Mittelpunkt im Ursprung. 
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Damit kommt man sehr "billig" an einen zweiten Kreispunkt. Doch 
nicht genug. Spiegelt man diese beiden Punkte um den waagerechten 
Durchmesser, so erhält man wieder zwei neue Punkte. Diese beiden 
Punkte errechnet man folgendermaßen: 


x3U = xiU und xhU 
y3U = -ylu und y4u 


x2U 
-y2U 


-x1U 
-ylu 


Auch hier sind (x3U,y3U) und (x4U,y4U) die Koordinaten der 
beiden in der unteren Hälfte des Kreises (um den Nullpunkt) liegen- 
den Punkte. 


Durch eine Drehung dieser nunmehr 4 Punkte um den Nullpunkt er- 
hält man 4 weitere Punkte, die jeweils rechts und links vom Kreis- 
mittelpunkt liegen. Diese Punkte p5,p6,p7,p8 erhält man durch 
folgende Rechnungen: 


x5U = ylu und y5u = xiU 
x6U = ylu und y6U = -x1U 
x7U = y3U = -ylU und y7u = xiU 
x8U = y3U = -ylU und y8u = -xiU 


Die untenstehende Zeichnung mag diesen Sachverhalt noch erläutern. 
Man kann also durch einfache Vorzeichenwechsel 8 verschiedene 
Koordinaten des Kreises berechnen. Nach diesen Spiegelungen und 
Drehungen addieren wir jeweils noch die Mittelpunktskoordinaten 
hinzu und schon liegen wir wieder richtig. 
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Der Nachteil dieser Kreisberechnung: Es werden stets nur volle Kreise 
gezeichnet. Einfache Bögen sind dagegen nur mit viel Aufwand zu 
realisieren. Weiterhin fällt die Möglichkeit flach, die Routine auch für 
Polygone zu verwenden. Bei Ellipsen ist der letzte Schritt (die 
Drehung) nicht ohne weiteres möglich, hier kann also nur die Viertel- 
kreistechnik verwandt werden. 


Ein kleines Programm soll das oben Gesagte kurz veranschaulichen: 


100 REM A 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 22 22 2 zz 

110 REM ** w 

120 REM ** ACHTELKREISTECHNIK ** 

130 REM ** “r 

140 REM a 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 zz 

150 REM 

160 REM INITIALISIERUNG 

170 GMODE 0,1:GCLEAR :REM GRAPHIK EIN UND CLR 
180 R=50 :REM RADIUS 

190 XM=160:YM=100 :REM MITTELPUNKTSKOORDINATEN 
200 PI=3.1415926 :REM KONSTANTE PI 

210 SW=P1/180 REM SCHRITTWEITE = 1 GRAD 
220 REM 

230 REM HAUPTSCHLEIFE 

240 FOR W=0 TO 45*PI1/180 STEP SW 

250 XUI=R*COSCW) :REM X-KOORDINATE 

260  YUI=R*SINCWIG 

270  X1=XU1+XM 

280  Yi=YU1+YM :REM KOORINATEN GEMAESS 
290  XN=-XUl+XM  :REM MITTELPUNKT VERSCHOBEN 
300  YN=-YU1+YM 

310  XO=-XU1+YM 

320  YO=-YU1+XM 

330  XS=XU1+YM 

340 YS=YUI+XM 

350 PLOT ‚X1,Y1 :REM 8 PUNKTE ZEICHNEN 
360 PLOT ‚YS,XS 

370 PLOT ‚YS,Xo 

380 PLOT ‚X1,YN 

390 PLOT ‚XN,YN 

400 PLOT ‚YO,XO 

410 PLOT „YO,XS 

420 PLOT ‚XN,Yi 

430 NEXT W 
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5.3 Spriteprogrammierung 


Eine der wohl faszinierendsten Eigenschaften Ihres Rechners ist die 
Fähigkeit, insgesamt 8 sogenannte Sprites gleichzeitig auf den Bild- 
schirm zu bringen. Wenn Sie den entsprechenden Abschnitt im vierten 
Kapitel (Kap. 4.5) gelesen haben, dann besitzen Sie schon einen klei- 
nen Überblick über die Spriteorganisation und die hardwaremäßige 
Verwirklichung dieser Bildschirmobjekte. Hier nun lernen Sie, wie Sie 
mit ihnen umgehen und was Sie dabei zu beachten haben. 


5.3.1 Erstellung von Sprites 


Das erste Problem jeder Spriteprogrammierung ist die Erstellung eines 
solchen Objektes, denn dies ist natürlich die Voraussetzung für jede 
Manipulation. Doch schon dies ist ein recht schwieriges Unterfangen, 
da die Ablegung der Sprites im Speicher relativ kompliziert ist. 


Wie sie aus Kap. 4.5 wissen, besitzt ein Sprite eine Auflösung von 
24x21 Punkten (in Multicolor: 12x21). Jeder Punkt wird durch ein Bit 
(zwei Bit bei MC) im Speicher repräsentiert. Je 8 Punkte sind somit in 
einem Byte zusammengefaßt. Um eine Zeile zu bestimmen, sind damit 
24/8 = 3 Bytes notwendig. Diese drei stehen im Speicher direkt 
hintereinander. Die nächsten drei Bytes definieren dann die zweite 
Zeile und so fort. 


Um ein Sprite zu erstellen, legt man sich vorzugsweise eine Schablone 
an, die sie im Anhang finden und sich am besten abzeichnen und 
mehrmals kopieren sollten (oder Sie verwenden den unten stehenden 
Spriteeditor). In diese Schablone können Sie jeden einzelnen Punkt 
Ihres Sprites mit Bleistift als kleines Kreuz (bzw. in Multicolor als 
Ziffer, stellvertretend für die jeweilige Farbe) eintragen und erhalten 
so ein vollständiges und übersichtliches Bild des zukünftigen Raum- 
schiffes, Vogels oder Buchstabens. Doch Vorsicht! Sie sollten darauf 
achten, daß Sie jeweils mindestens zwei Punkte nebeneinander zeich- 
nen, da ein einzelner, ohne linken oder rechten Nachbarn nicht, oder 
nur sehr schwach auf dem Bildschirm erscheint. Dies gilt nicht für 
Multicolor, da hier ein Punkt sowieso schon doppelte Breite besitzt. 


Im Anschluß daran ersetzen Sie jedes Kreuzchen durch eine 1, jedes 
freie Feld durch eine O0 oder, falls Sie ein Mulcicolorsprite entwerfen, 
durch die binäre Zahl, die sich aus der eingetragenen Ziffer ergibt. 
Nun fassen Sie jeweils 8 dieser Nullen und Einsen zu einem Byte zu- 
sammen und errechnen sich nach der Konversionstabelle im Anhang 
die entsprechende Dezimalzahl. Auf diese Weise erhalten Sie insgesamt 
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63 Zahlen von O bis 255, die den Inhalt der 63 Bytes einer Spritedefi- 
nition wiederspiegeln. 


Von BASIC aus gibt es verschiedene Möglichkeiten, Spritedefinitionen 
abzulegen und wieder einzulesen. Die erste und wohl einfachste ist die 
Speicherung dieser 63 Daten in DATA-Zeilen. Natürlich können Sie 
sie platzsparend möglichst eng hintereinander packen, doch zweck- 
mäßigerweise und aus Gründen der Übersichtlichkeit sollten Sie in 
etwa die folgende Form besitzen: 


1000 DATA 000,000,000 
1010 DATA 000,000,000 
1020 DATA 002,000,064 
1030 DATA 001,000,128 
1040 DATA 000,129,000 
1050 DATA 000,066,000 
1060 DATA 000,060,000 
1070 DATA 000,126,000 
1080 DATA 000, 195,000 
1090 DATA 001,141,128 
1100 DATA 003,044,192 
1110 DATA 031,255,248 
1120 DATA 062,153, 124 
1130 DATA 125,066, 190 
1140 DATA 255,255,255 
1150 DATA 001,255,128 
1160 DATA 001,189,128 
1170 DATA 003,060,192 
1180 DATA 015,000,240 
1190 DATA 015,000,240 
1200 DATA 000,000,000 


Sie sehen zwar nicht sofort, daß es sich hierbei um das Fahrzeug eines 
Außerirdischen handelt, doch die 3x21-Bytestruktur wird doch recht 
deutlich. Jede DATA-Zeile enthält hier die Information für eine 
Spritezeile. Um jedoch diese Daten in den eigentlichen Speicher zu 
lesen (in die bekannten Blöcke), müssen wir noch eine kleine Routine 
hinzufügen, die etwa so aussehen könnte: 


100 AD = 13*64 : REM ADRESSE BLOCK 13 

110 FOR X=0 TO 62 

120 READ DT : REM 63 DATEN LESEN 

130 POKE AD+X, DT : REM IN BOLCK 13 POKEN 
140 NEXT X 
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Dieser Zusatz liest nacheinander die 63 Daten ein und schreibt sie in 
den Speicher (zu den Blöcken s.u.). Diese Form der Spritespeicherung 
benötigt jedoch eine ganze Menge Speicherplatz. Eine weitere, platz- 
sparendere Möglichkeit der Speicherung ist das Ablegen eines Sprites 
auf Diskette oder Kassette z.B. als Sequentielles File. Auf diese Weise 
können Sie an jeder beliebigen Stelle des Programms ein Sprite einle- 
sen, das Sie auf Diskette gespeichert halten. So ist es ihnen beispiels- 
weise möglich, ganze Datenbanken auf einer Diskette anzulegen, aus 
denen sich Ihr Programm die notwendigen Teile ausliest. 


Am Anfang der Erzeugung eines solchen Definitionsfiles stehen dabei 
wieder unsere DATAs. Mit Hilfe des folgenden Programms können Sie 
nun die einzelnen Werte aus den bekannten DATA-Zeilen herauslesen 
und als Sequentielles File auf Diskette ablegen: 


10 OPEN 1,8,2,"SPRITE,S,W" :REM FILE ZUM SCHREIBEN EROEFFNEN 
20 FOR X=0 TO 62 
30 READ DT : REM 63 DATEN LESEN 


40 PRINT#1, CHRS(DT); :REM AUF DISKETTE SCHREIBEN 
50 NEXT X :REM (ASCII-FORMAT) 
60 CLOSE 1 :REM FILE SCHLIESSEN 


Der Name des entstehenden Files ist "SPRITE". Um diese Daten 
wieder einzulesen und direkt in den entsprechenden Speicher zu 
POKENn, dürfte Ihnen diese Routine behilflich sein: 


10 AD = 13*64 :REM ADRESSE BLOCK 13 
20 OPEN 1,8,2,"SPRITE,S,R" :REM SEQ. FILE ZUM LESEN EROEFFNEN 
30 FOR X=0 TO 62 


40 GET#1, DT$ :REM DATEN LESEN (ASCII-FORMAT) 
50 POKE AD+X, ASC(DT$+CHR$CO)) :REM UND POKEN 

60 NEXT X 

70 CLOSE 1 :REM FILE SCHLIESSEN 


selbstverständlich gibt es noch die Möglichkeit, ein Sprite direkt als 
Programmfile abzuspeichern und ebenso einzuladen. 


Wie Sie sehen, ist die ganze Sache ziemlich kompliziert und macht 
Ungeübten einiges zu schaffen. Aus diesem Grunde wird Ihnen im 
folgenden ein Programm vorgestellt, das Ihnen die Arbeit der Sprite- 
erstellung wesentlich erleichtert. Dieser Spriteeditor, der teilweise in 
BASIC und Maschinensprache geschrieben wurde, gibt Ihnen kom- 
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fortable Möglichkeiten in die Hand, ein hochauflösendes Sprite zu er- 
stellen und schließlich in Ihr Programm einzubauen. Er erzeugt Pro- 
grammfiles, die auf die gleiche Art und Weise gelesen werden können, 
wie in der letzten Routine demonstriert, wenn Sie die Zeile 20 dort 
durch die folgende Zeile ersetzen: 


20 OPEN 1,8,2,"SPRITE,P,R" : REM PROGRAMMFILE ZUM LESEN OEFFNEN 


Sicher ist es eine ganze Menge Arbeit, dieses Programm! abzutippen, 
deshalb sollten Sie es sich gleich von Diskette laden. 


100 REM 


110 REM ** ** 

120 REM ** SPRITEFORMER ** 

130 REM ** “* 

140 REM Wr 

150 REM 

160 REM INITIALISIERUNG: 

170 REM wre 

180 GOSUB2730 :REM MASCHINENROUTINEN EINLESEN 
190 POKE 53280,0:POKE 53281,0 :REM HINTERGRUND -/RAHMENFARBE 
200 POKE650,255 :REM ALLE ZEICHEN REPEAT 
210 POKE 45,0:POKE 46,80:RUN 220 :REM BASICENDE=$5000 
220 REM 

230 REM MASCHINENROUTINEN: 

240 REM Wr 

250 IN%=18432 :REM INITROUTINE 

260 PUX=18632 :REM PUNKT EINZEICHNEN 

270 NEX=18567 :REM KOORDINATENSYSTEM 

280 LAX=18503 :REM ZEICHENSATZ LADEN 

290 SP%=18531 :REM ZEICHENSATZ SPEICHERN 
300 CAX=18758 :REM CATALOG 

310 BEX=18712 :REM BEFEHLSIDENTIFIZIERUNG 
320 1V%=18830 :REM INVERTIEREN 

330 VR%=18844 :REM VERSCHIEBEN-RECHTS 

340 VL%=18870 :REM VERSCHIEBEN-LINKS 

350 vO%=18895 :REM VERSCHIEBEN-OBEN 

360 VUX=18935 :REM VERSCHIEBEN-UNTEN 

370 a = 704 :REM SPRITEBLOCK-ADRESSE 
380 V =53248 :REM VIDEOCONTROLLER 

390 REM 

400 REM CONTROLZEICHEN: 

410 REM Wr 

420 COS=CHR$(147) :REM BILDSCHIRM LOESCHEN 
430 C1$=CHRS(C 19) :REM HOME 

440 C2$=CHRS(183) :REM HOCHSTRICH 


1 Dieses Programm funktioniert nur ohne die Supergraphik 


410 


450 
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CBE=CHREC II)+CHREC IN)+CHREC N):C3S=CHRECII7)+CBS+CHRECIOS) :REM O 


BERER FENSTERR.1 


460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 


CAS=CHRECIO6)+CBS+CHRECIOT) :REM UNTERER SPRITEFENSTERRAND 1 
C5$=CHRECI17)+CBS+CBS+CHRECIOS) :REM OBERER RAND 2 
CBS=CHRECIO6)+CBS+CES+CHRECIOT) :REM UNTERER RAND 2 
C9S=CHRSC 98) :REM MITTELSTRICH (SENKR) 

C6$=CHR$C 18) :REM RVS ON 

C7$=CHR$(146) :REM RVS OFF 

NA%=828 :REM FILENAMENLAENGE($C800) 

GA%=186 :REM GERAETEADRESSE($BA) 

TA%=821 :REM TASTE/BEFEHLSCODE 

SG%= 1 :REM SPRITEGROESSE 

YK%=822 :REM Y-KOORD 

XK%=823 :REM X-KOORD 

REM 

REM FARBEN DEFINIEREN: 

REM He 

DATA 144, 5, 28,159,156, 30, 31,158 

DATA 129,149,150, 151,152,153, 154,155 

DIM C$C16):FOR Y=0O TO 15:READ X:C$CY)=CHRSCX):NEXT Y 
N=1:F(0)=0:FC1)=1:V$=" ":SYS INX :REM FARBEN/INIT 
REM 

REM LOESCHROUTINE (FELDAUFBAU): 

REM 

SYS IN% : REM SPRITE LOESCHEN 

PRINT CO$ 

PRINT C1$;SPC(13);C$(7);"SPRITE-CREAT ION" 

PRINT SPC(12);C$C1);"CC) BY AXEL PLENGE" 

PRINT C$(4);:FOR X=1 TO 40:PRINT C2$;:NEXT X 
PRINTCSC7)" 7"C$C6)"6543210"CE7)"7"C$C6)"6543210"C$7)"7"C$L6)'"654 


3210"; 


740 
750 
760 
770 


SYS NEX : REM NETZ ZEICHNEN 

GOSUB 1820:PRINT:PRINT :REM STATUSFELD ERSTELLEN 
PRINT:PRINT:PRINTTAB(30);C3$ 

FOR X=1 TO 3:PRINTTAB(30);C9$;" "C9S:NEXT X:PRINTTAB(30);C4$ :REM 


TESTSPRITE1 


780 


PRINTTAB(27);" ";C5$;" "zFOR X=1 TO 5:PRINTTAB(27);" ";C9$;" 


"SC9L:NEXT X 


790 
800 
810 
820 
830 
840 
850 
860 
870 
880 


PRINTTAB(27);" ";CB$;" "=; SREM TESTSPRITE2 

POKE 53248+21,3:X=0:Y=0 :REM SPRITES AN/X- „Y-KOORDINATE=0 

REM 

REM EINGABESCHLEIFE: 

RENT 

A=X+2:B=Y+4:GOSUB 2450 :REM POSITIONIEREN 

POKE XK%,X:POKE YK%,Y:F=0 :REM KOORDINATEN UEBERGEBEN 

PRINT C$(7);C6$;" ";CHRSC157); :REM BLINKPHASE AN 

FOR S=1 TO 50:GETAS:IF A$c>tn THEN 890 

NEXT S:SYS PUX:FOR S=1 TO 50:GET AS:IF A$="" THEN NEXT S:GOTO 860 


:REM AUSSCHALTEN 


890 
900 


REM 
REM BEFEHLSERKENNUNG: 
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910 REM a2 2 2 2 2 2 2 2 2 2 2 222 


920 SYS PUX:C=ASCCA$):POKE TA%,C:SYS BEX:S=PEEK(TA%) :REM BEF-UEBE 
RGABE/RUECKMELDUNG 

930 REM VERTEILUNG: 

940 ON S GOTO 1050, 1050,1070, 1070, 1090, 1090 

950 ON S-6 GOTO 1110,1110,1910, 1910, 1910, 1910 

960 ON S-12 GOTO 1910, 1910, 1910, 1910,650,1360 

970 ON S-18 GOTO 1450,1490,1570,1130,2150 

980 ON S-23 GOTO 1200,1970,1240,810 

990 REM 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
L)," 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 


REM BEFEHLSBEARBEI TUNG: 

REM a0 2 2 2 a a 2 2 2 2 2 2 2 2 2 2 2a 

REM 

REM CURSORBEWEGUNG: 

REM a 2 2 2 2 2 2 2 2 2 2 2 2 zz 

X=X+1:1F X=24 THEN X=0:60T0 1090 

GOTO 810 :REM RECHTS 

X=X-1:1F X<0 THEN X=23:G0T0 1110 

GOTO 810 :REM LINKS 

Y=Y+1:1F Y=21 THEN Y=0 

GOTO 810 :REM RUNTER 

Y=Y-1:1F Y<O THEN Y=20 

GOTO 810 :REM HOCH 

REM 

REM BEENDEN: 

REM Ahrhkaaae 

A=2:B=15:G0SUB 2450 :REM POSITIONIEREN 

PRINT C6$;C$(7);"BEENDEN?";C7$;C$C6):INPUT T$ 

IF T$="ym OR T$="JAn THEN SYS 64738 :REM KALTSTART 
GOTO 690 

REM 

REM CATALOG: 

REM Ahrhhhaaae 

PRINT CO$:SYS CAX:GOSUB 2490:G0T0 690 

REM 

REM VERSCHIEBUNG: 

REM a 2 2 2 2 2 2 2 2 2 2 zz 

GOSUB 2530:G0SUB 2440:PRINT C$C1);"VERSCHIEBUNG" :REM MELDEFELD 
PRINT TABC27)"NACH:":PRINT TABC2T)"RECHTSCR),":PRINT TABC2T)"LINKSC 


PRINT TAB(27)"OBEN (O),":PRINT TAB(27)"UNTENCU):" 
GOSUB 2490 

IF T$="R" THEN SYS VR%:GOTO1350 

IF T$="L" THEN SYS VL%:GOTO1350 

IF T$="O" THEN SYS V0%:GOT01350 

IF T$="U" THEN SYS VUX 

GOSUB 2530:G0T0 700 

REM 

REM SPRITEGROESSE: 

REM 


ON SG%+1 GOSUB 1410, 1420, 1430, 1440 


412 


1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
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POKE V+23,A:POKE V+29,B:SG%=(SG%+1) AND 3:G0TO 810 
A=2:B=2:RETURN 
A=0:B=2:RETURN 
A=2:B=0:RETURN 
A=0:B=0:RETURN 
REM 
REM SPRITE INVERTIEREN: 
REM ecke 
SYS IV% : GOTO 700 
REM 
REM SPRITE SPEICHERN: 
REM HR 
GOSUB 2530 
GOSUB 2440:PRINT C6$;C$C1);"SPRITEAB-":PRINT TAB(C27);C6$;"SPE 


ICHERUNG";C7$ 


1540 
1550 
1360 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 


GOSUB 1700:IF F=1 THEN F=0:G0T0 1490 :REM EINGABE/FEHLERABFR. 

IF F=2 THEN F=0:G0T0 1630 :REM FEHLER 

SYS SP%:GOTO 1650 :REM SPEICHERN 

REM 

REM SPRITE LADEN: 

REM rk 

GOSUB 2530 

GOSUB 2440:PRINT C6$;C$C1);"SPRITE":PRINT TAB(27);C6$; "LADEN:";C7$ 
GoSUB 1700:IF F=1 THEN F=0:60T0 1570 

IF F=2 THEN F=0:G0T0 690 

SYS LAX 

REM FEHLERABFRAGE (NUR FUER DISK!): 

OPEN 1,8,15:1NPUT#1,DS,DS$,DT,DB:CLOSE1 

IF DS<20 THEN 690 :REM OK 
PRINT:TS=STRSCDS)+", 14DS$+", N+STRECDT)+",N+STRSCDB) 

GOSUB 2600:PRINT T$:FOR S=1 TO 2000:NEXT S:GOTO 690 :REM BLINKEN 
REM 

REM NAMENEINGABE: 

REM rk 


AS="":PRINT:PRINT TAB(C27)"FILENAME"C$(6):PRINT TAB(27);: INPUT A$:T= 


LENCA$) 


1740 
1750 


S=VAL(RIGHT$CA$, 1)) 
IF S<>0 AND LEFTSCRIGHTSCAS,2),1)=";" THEN T=T-2:POKE GA,S :R EM 


GERAETEADR. 


1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 


IF T=0 THEN F=2:RETURN :REM KEIN NAME 

IF T>17 THEN 1800 

REM NAMEN AN MASCHINENROUTINEN: 

POKE NA%,T:FOR S=1 TO T:POKE NAX+S,ASC(MIDS(A$,S,1)):NEXT S:RETURN 
PRINT CHR$(145); :T$=C6$+"LAENGE! "+C7$:GOSUB 2590 :REM FEHLERMELDUNG 
PRINT C$(6):F=1:RETURN 

REM 

REM STATUSFELD ERSTELLEN: 

REM Re 

A=27:B=4:G0SUB 2450 

GOSUB 2530 

A=27:B=5:G0SUB 2450 
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1880 PRINT TAB(27);C$(7);"FARBEN:" 

1890 PRINT TAB(27);C$C2);:FOR S=1 TO 7:PRINT CHR$C163);:NEXT S:PRINT C$C 
6) 

1900 FOR S=0 TO 1:PRINT TAB(27);"GRDF.";S;":";FCS):NEXT S:RETURN 

1910 REM 

1920 REM PLOT: 

1930 REM *rr#* 

1940 S=((S-12) AND 2)/2 :REM PLOTFARBE FESTSTELLEN 

1950 T=X/B:AD=INTCT):T=2"(7-8*CT-AD)):AD=Y*3+AD+Q 

1960 POKE AD,PEEKCAD) AND (255-T) OR S*T:GOTO 810 

1970 REM 

1980 REM FARBENWAHL: 

1990 REM Bad 202 2202 2 22 

2000 PRINTCHR$(147) 

2010 A=0:B=4:G0SUB 2450:PRINT TABC4);CECI)"FUCSCAJNANCHCZZURMCHCAJNBUCHE 
5)"E"; 

2020 PRINT CECHJUNNCECTYMWUCSCAJNANCKCEJUHNCELAJNLUCEET) NEN 

2030 PRINT TAB(4);C$C1);CHRSCI72);:FOR S=1 TO 32:PRINT CHR$C162);:NEXT S 
:PRINT CHRSC187) 

2040 FOR S=1 TO 2:PRINT TAB(4);C6$;CHRSC161); 

2050 FOR T=0 TO 15:PRINT C$CT);" ";:NEXT T:PRINT C$C1);C7$;CHRSCI61):NE 


xT Ss 

2060 PRINT TABC4);C6S;CHRECI61);" 0 1 23456 7 8 9101112131415" ;C7$;C 
HR$C161) 

2070 PRINT:PRINT C$(6);" FUER GRUNDFARBENNR.(F1/F3): "; 


2080 GOSUB 2490:T=ASC(T$)-133 :REM FUNKTIONSTASTE 

2090 IF T<O OR T>1 THEN GOSUB 2590:G0T0 690 :REM FEHLER 

2100 IF T>1 THEN T=T-4 

2110 PRINT T:T$="";INPUT " FARBE ";T$:S=ABSCINTCVALCT$))) 
2120 IF T$="" OR S>15 THEN GOSUB 2590:G0T0690 :REM FEHLER 

2130 FCT)=S:POKE V+33,FC0) :REM HINTERGRUNDFARBE SETZEN 

2140 POKE V+39,F(1):POKE V+40,F(1):G0TO 690 :REM SPRITEFARBE SETZEN 
2150 REM 

2160 REM BEFEHLSSATZ: 

2170 REM Wr 

2180 POKE V+21,0 : REM SPRITES AUS 

2190 PRINT CO$;C6$;C$(2)" ":C$(7); 

2200 PRINT "BEFEHLSSATZ";C$C2);" ";07$; 

2210 PRINT C$(4);: FOR S=1 TO 40:PRINT CHR$(184);:NEXT S:PRINT 
2220 PRINT C$C1)" NR. "CAS"BEFEHL "C7E"-UC$l5)" FUNKTION"CSCA) 


2230 FOR S=1 TO 10:PRINT "----";:NEXT S 

2240 PRINT C$SC1)" (1) "C6S"l><... )"C78"-"C$C5)" CURSORBEWEGUNGEN" 

2250 PRINT C$C1)" "C6S"(2QWA )"C78;C$(5) 

2260 PRINT CSC1)" (2) "C6S"CFI-FE)J"C7E"-"CHC5)" PLOT IN FARBEN 0-15" 
2270 PRINT C$C1)" (3)  "C6E"CF) "C7S"-"C$C5)" FARBEN 0-15 F. Fi /3 
DEF." 


2280 PRINT C$C1)" (4) "C6$"(B) "C7E"-NC$KC5)" BEFEHLSSATZ" 

2290 PRINT C$C1)" (5) "C6$"(G) "C7E"-UCHKC5)" SPRITE GROESSE" 

2300 PRINT C$C1)" (6) "C6$"(I) "C7E"-NCc$l5)" SPRITE INVERTIERE N" 
2310 PRINT C$C1)" (7) "C6S"CV) "c7$"-"C$l5)" SPRITE VERSCHIEBE N" 
2320 PRINT C$C1)" (8) "C6S"(L) "C7E"-NCKC5)" SPRITE LOESCHEN" 
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2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 


PRINT C$C1)" (9) 
PRINT C$C1)"C10) 
PRINT C$C1)"C11) 
PRINT C$C1)"C12) 
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COS" LCCTRLGJNCTS"-NEKE5) N 
COS" CETRLSINCTEN- CH[5) N" 
NC6E"CC) nc7gn.nc$Hl5)" 
NCESNLCTRLXJUCTEM-NCHE5) 


GET-SPRITE LADEN" 
SAVE-SPRITE SPEIC HERN" 
DIREKTORY/CATALOG '" 
BEENDEN" 


GOSUB 2490:POKE V+21,3:G0TO 690 :REM WARTEN+SPRITES AN 


REM 


REM UNTERPROGRAMME : 
REM Re 


REM 


REM POSITIONIERUNG: 
REM 


A=27:B=5 :REM MELDE FELD 
PRINT C1$;:FOR S=2 TO B:PRINT:NEXT S:PRINT TABCA);:RETURN 
REM 

REM TASTENE INGABE: 

REM Re 

WAIT 198,255:GET T$:RETURN 

REM 

REM MELDEFELD LOESCHEN: 

REM Are 

GOSUB 2440 

FORS=1T06:PRINTTAB(27); :FORT=1TO4:PRINT" 


:REM MELDEFELD LOESCHEN 


2550 
2560 
2570 
2580 
2590 
2600 


RETURN 

REM 

REM FEHLERBLINKEN: 
REM KR 


T$="UNZULAESSIGI" 


A=4:8=18:G0SUB2450:PRINTC$CI):FOR S=1 TO 9:PRINT TABC4)T$:GOSUB 263 


O:PRINT CHR$(145); 


2610 PRINT TAB(4)" "; 

2620 PRINT CHR$C145):GOSUB 2630:NEXT S:PRINT TAB(4)" 
TURN 

2630 FOR T=1 TO 75:NEXT T:RETURN :REM WARTESCHLEIFE 

2640 REM 

2650 REM Ba SS a 2 ae a da de 2 dee ii 

2660 REM ** wr 

2670 REM ** MASCHINENROUTINEN ** 

2680 REM ** wr 

2690 REM RT a a 

2700 REM 

2710 REM DATAS WERDEN NACH DEM STARTEN GELOESCHT !!! 

2720 REM 

2730 FOR I = 1 TO 16 : READ X : NEXT I : REM VORDERE DATAS UEBERSPRINGEN 
(FARBEN) 

2740 FOR I = 18432 TO 18969 

2750 READ X : POKE I,X : S=S+X : NEXT 

2760 DATA 162, 62,169, 0,157,192, 2,202, 16,250,169, 11 

2770 DATA 141,248, 7,141,249, 7,169, 16,141, 0,208,169 

2780 DATA 163,141, 1,208,169, 7,141, 2,208,169,201,141 

2790 DATA 3,208,169, 3,141, 16,208,141, 21,208,169, 2 


"Z2NEXT T: PRINT:NEXT S 
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2800 DATA 141, 23,208,141, 29,208,169, 0,141, 27,208,141 
2810 DATA 28,208,169, 1,141, 39,208,141, 40,208, 96,173 
2820 DATA 60, 3,162, 61,160, 3, 32,249,253,169, 2,166 
2830 DATA 186,160, 0, 32, 0,254,169, 0,162,192,160, 2 
2840 DATA 76,213,255,173, 60, 3,162, 61,160, 3, 32,249 
2850 DATA 253,169, 2,166,186,160, 0, 32, 0,254,169,192 
2860 DATA 133, 2,169, 2,133, 3,169, 2,162,255,160, 2 
2870 DATA 76,216,255,160, 0,169, 13, 32,210,255,152, 72 
2880 DATA 56,233, 10,144, 12,168,233, 10,144, 4,168,169 
2890 DATA 50, 44,169, 49, 44,169, 32, 32,210,255,152, 9 
2900 DATA 48, 32,210,255,104,168,162, 0, 32,206, 72,169 
2910 DATA 29, 32,210,255,232,224, 24,208,243,169,165, 32 
2920 DATA 210,255,200,192, 21,208,194, 96,174, 55, 3,172 
2930 DATA 54, 3,138, 72,152, 72,133, 2, 10,101, 2,133 
2940 DATA 2,138,160,255, 56,233, 8,200,176,251,105, 8 
2950 DATA 170,152, 24,101, 2,168,169, 0, 56,106,202, 16 
2960 DATA 252, 57,192, 2,208, 3,160, 0, 44,160, 6,162 
2970 DATA 6,185, 12, 73, 32,210,255,200,202,208,246,104 
2980 DATA 168,104,170, 96,146, 31,111, 31,146,157, 18, 28 
2990 DATA 32, 31,146,157,173, 53, 3,162, 0,160, 28,232 
3000 DATA 221, 43, 73,240, 3,136,208,247,142, 53, 3, 96 
3010 DATA 87, 29, 81,157, 65, 17, 50,145,133, 137,134, 138 
3020 DATA 135,139,136,140, 76, 71, 73, 19, 7, 24, 66, 67 
3030 DATA 70, 86,169, 36,133, 2,169, 1,162, 2,160, 0 
3040 DATA 32,249,253,169, 2,166,186,160, 0, 32, 0,254 
3050 DATA 169, 0,162, 0,160, 64,134, 95,132, 96, 32,213 
3060 DATA 255,165, 95,164, 96, 32, 55,165,173, 0, 3, 72 
3070 DATA 173, 1, 3, 72,169, 61,141, 0, 3,169,227,141 
3080 DATA 1, 3, 32,195,166,104,141, 1, 3,104,141, 0 
3090 DATA 3, 96,162, 62,189,192, 2, 73,255,157,192, 2 
3100 DATA 202, 16,245, 96,162, 0,160, 3, 24,126,192, 2 
3110 DATA 232,136, 208,249,169, 0,106, 29,189, 2,157,189 
3120 DATA 2,224, 63,208,233, 96,162, 63,160, 3, 24, 62 
3130 DATA 191, 2,202,136,208,249,169, 0, 42, 29,194, 2 
3140 DATA 157,194, 2,138,208,234, 96,162, 62,134, 2,160 
3150 DATA 21,132, 3,166, 2,189,132, 2, 72,189,192, 2 
3160 DATA 168,104,157,192, 2,152,202,202,202,198, 3,208 
3170 DATA 239,166, 2,202,134, 2,224, 59,208,221, 96,162 
3180 DATA 2,134, 2,160, 21,132, 3,166, 2,189,252, 2 
3190 DATA 72,189,192, 2,168,104,157,192, 2,152,232,232 
3200 DATA 232,198, 3,208,239,198, 2, 16,226, 96 

3210 IF S <> 61707 THEN PRINT "FEHLER IN DATAS !!" 2 END 
3220 PRINT "OK" : RETURN 
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AB0O0- 
4802- 
4804- 
4807- 
4808- 
48BDA- 
4B0C- 
ABOF- 
4812- 
4814- 
4817- 
4819- 
481C- 
481E- 
4821- 
4823- 
4826- 
4828- 
482B- 
AB2E- 
4830- 
4833- 
4B836- 
ABSB- 
A48S3B- 
AB3E- 
4840- 
4B43- 
4846- 


a9 
9D 


ca 


A979 
8D 
8D 
AI 
8D 
AI 
8D 
a9 
8D 
a9 
8D 
a9 
8D 
8D 
a9 
8D 
8D 
n97 
8D 
8D 
a7 
8D 
8D 
68 


02 


0 
07 


D® 


Do 


DO 


DO 


DO 
Da 


Do 
DO 


Da 
DO 


Da 
DO 


0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
00970 
0100 
o11D 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
u200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0298 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0478 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 


CONASS 
CHROUT 
FNPAR 
FPAR 
SAVE 
LOAD 

v 
BLOCK 
BLOCKN 
LAENGE 
MODUS 
TASTE 
YKOORD 
XKOORD 


INIT 


11 
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.LS 


; MASCHINENROUTINEN: 
RR AA A 


. 


.0S 

„BA 4800 
.MC 0800 
;SPRUNGADRESSEN UND REGISTER: 
RAN ANA 


;STARTADRESSE 


.DE 1 

.DE $FFD2 ; ZEICHENAUSGABE 

„DE $FDFY ;FILENAMENPARAMETER SETZEN 
.DE $FEOO ;FILEPARAMETER SETZEN 

.DE $FFD8 ;SPEICHERN AUF DISK/KASSETTE 
.DE $FFDS sLADEN VON DISK/KASSETTE 
.DE $D908 :VIDEOCONTROLLER (53248) 
.DE 794 :SPRITEBLOCK 11 

.DE 11 ;BLOCKNUMMER 11 

.DE $83SC ;FILENAMENLAENGE 

.DE 0334 ; SPEICHERMODUS 

.DE $0335 ; BEFEHLSTASTENDRUCK 

.DE 0336 ; FELD-Y-KOORDINATE 

.DE $0337 ; FELD-X-KOORDINATE 


3 
; TESTSPRITE LOESCHEN+PARAMETER: 
RR AA AREA IE 


LDX #62 63 BYTES 


LDA #00 

STA BLOCK,X ;BLOCK 11 LOESCHEN 

DEX 

BPL I1 

LDA #BLOCKN ;BLOCK 11 

STA $D7F8 ;POINTER SPRITE ® AUF 11 
STA $Q7F9 :POINTER SPRITE 1 AUF 11 
LDA #16 

STA v+B :SPRITE B: X-KOORD. HIGHBYTE 
LDA #163 

STA v+1 ; Y-KOORDINATE 

LDA #7 

STA v+2 :SPRITE 1:X-KOORD. HIGHBYTE 
LDA #201 

STA v+3 : V-KOORDINATE 

LDA #7000Q0011 ;X-K. HIGHBYTES=1 

STA V+16 

STA v+21 :SPRITES EINSCHALTEN 

LDA #400000010 

STA V+23 ;SPRITE 1: V-VERGROESSERUNG 
STA v+29 ;SPRITE 1: X-VERGROESSERUNG 
LDA #00 

STA v+27 :SPRITE-PRIORITAET 

STA v+28 ; NORMALFARBENSPRITES 

LDA #301 

STA v+39 :SPRITE @: WEISS 

STA v+40 :SPRITE 1: WEISS 


RTS ; ZURUECK 


i 
;SPRITE LADEN: 


4 
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4847- 
ABAA- 
ABAC- 
AB4E- 
4851- 
A853- 
4855- 
4857- 
ABSA- 
A85SC- 
ABSE- 
4860- 


ABbS- 
ABbb- 
4868- 
ABAA- 
A4B6D- 
ABAF- 
4871- 
4873- 


4876- 
4878- 
AB7A- 
AB7C- 
ABTE- 
4880- 
4882- 
4884- 


4887- 
4889- 
488B- 
ABBE- 
ABBrF- 
4890- 
A4891- 
4893- 
4895- 
4896- 
4898- 
ABIA- 
489B- 
489D- 
ABIE- 
ABAD- 
ABAl- 
ABAS- 
ABA&- 
ABAT- 
ABAI- 
ABAC- 
ABAD- 
ABAE- 
48BO- 
ABB3- 


AD 
a2 
aa 
20 
n97 
Ad 
aa 
20 
a9 
a2 
AO 
ac 


AD 
a2 
ao 
20 
n97 
A& 
Aa 
20 


A9 
85 
A979 
85 
A? 
A2 
ao 
ac 


AO 
A97 
20 
98 
48 
38 
EI 
98 
AB 
E97 
98 
a8 
AI 
2C 
a9 
2C 
a9 
20 
98 
09 
20 
68 
AB 
a2 
20 
n97 


sc 
SC 
03 
FI 
02 


00 
00 
00 
co 
02 
DS 


3C 
SC 
03 
FI 
02 
BA 
00 
00 


co 
02 
02 
03 
02 


02 
D8 


a0 
aD 
D2 


oA 
oc 


aA 
04 


32 


31 


20 
D2 


38 
D2 


00 
cE 
1D 


03 


FD 


FE 


FF 


83 


FD 


FE 


FF 


FF 


FF 


FF 


48 


0630 
0640 
0650 
0660 
0670 
0480 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 
0850 
0840 
0870 
0880 
0950 
09760 
0770 
09780 
097970 
19000 
19010 
1920 
19030 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1598 
1600 
1618 
1620 
1638 
1648 
1650 
1668 
1670 
1680 
1698 
17008 
1718 
1720 
1730 
1740 
1750 


LADEN 


SPEICH 


NETZ 
NO 


N2 


Ni 


NS 


SEHRRERERRRRRR 


LDA 
LDX 
LDY 
JSR 
LDA 
LDX 
LDY 
JSR 
LDA 
LDX 
LDY 
JMP 


LAENGE 

#L ‚LAENGE 
#H „LAENGE 
FNPAR 
#302 

*$BA 
#00 

FPAR 

#500 

#L BLOCK 
#H „BLOCK 
LOAD 
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; NAMENLAENGE 
; FILENAMENADRESSE LOW- 
;HIGHBYTE 


;LOGISCHE FILENUMMER 
; GERAETEADESSE 
; SECUNDAERADRESSE 


; LOAD/VERIFY-FLAG 
;STARTADRESSE (LOWBYTE) 
;STARTADRESSE (HIGHBYTE) 


5 
;SPRITE SPEICHERN: 
ER 


LDA 
LDX 
LDY 
JSR 
LDA 
LDX 
LDY 
JSR 
.LS 
LDA 
STA 
LDA 
STA 
LDA 
LDX 
LDY 
JMP 
.LS 


LAENGE 

#L ,LAENGE 
#H, LAENGE 
FNPAR 
#302 

*$BA 

#00 

FPAR 


#L ‚BLOCK 
*$02 

#H BLOCK 
*305 

#302 

#L „BLOCK+$3F 
#H , BLOCK+$3F 
SAVE 


;F ILENAMENLAENGE 
; FILENAMENADRESSE (LOW) 
;FILENAMENADRESSE (HIGH) 


:LOGISCHE FILENUMMER 
; GERAETEADRESSE 
; SECUNDAERADRESSE 


; STARTADRESSE (LOWBYTE) 


;STARTADRESSE (HIGHBYTE) 
;NULLSEITENADRESSE DER STARTADRESS 
;ENDADRESSE (LOWBYTE) 

;ENDADRESSE (HIGHBYTE) 

;SPEICHERE SPRITE 


sARBEITSFELD HERSTELLEN: 
EEE 


LDY 
LDA 
JSR 
TYA 
PHA 
SEC 
SBC 
BCC 
TAY 
SBC 
BCC 
TAY 
LDA 
„BY 
LDA 
„BY 
LDA 
JSR 
TYA 
ORA 
JSR 
PLA 
TAY 
LDX 
JSR 
LDA 


#300 
#$0D 
CHROUT 


#10 
Ni 


#10 
N2 


#'2 
$2C 
#1 
$2C 
#520 
CHROUT 


#+30 
CHROUT 


#00 
PUNKT 
#$1D 


sZEILENZAEHLER = ® 
;CARRIGE RETURN 


sLEERZEICHEN BEI Y<1® 


‚Y<20 


;NAECHSTEN BEF. UEBERSPRINGEN 


:NAECHSTEN BEF. UEBERSPRINGEN 
;" " LEERZEICHEN 

; AUSGEBEN 

: REST 

zASCII HERSTELLEN 

;AUSGEBEN 


sEINEN PUNKT ZEICHNEN 
;CURSOR RECHTS 
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48BS5- 
48B8- 
48B9- 
A48BB- 
48BD- 
A48BF- 
48C2- 
48C3- 
48C5- 
48C7- 


48C8- 
48CB- 
48CE- 
48CF- 
48D8- 
48D1- 
48D2- 
48D4- 
48D5- 
48D7- 
48D9- 
48DA- 
48DC- 
48DD- 
48DF- 
48EB- 
4BE2- 
4BE4- 
48E5- 
4BE6- 
48E7- 
48E9- 
ABEA- 
48EC- 
48ED- 
4BEE- 
4BEF- 
A48F1- 
48F4- 
ABF6- 
A8F8- 
48F9- 
ABFB- 
A8FD- 
4900- 
4903- 
4904- 
4905- 
4907- 
4908- 
4909- 
49BA- 
490B- 


498C- 
A90F- 
4912- 
4915- 


20 
EB 
EB 


Ag 
20 
c8 
co 
D® 
68 


AE 
ACc 
8A 
48 
78 
48 
85 
aA 
65 
85 
8A 
AD 
38 
EI 
c8 


69 
AA 
78 
18 
65 
a8 
a9 
38 
6A 
ca 
iD 
39 
Da 
au 


AD 
a2 
BI 
20 
c8 
ca 
DO 
68 
a8 
68 
AA 
60 


92 
ir 
12 
ıF 


37 
36 


02 


02 


FF 


08 


FB 
08 


82 


FC 
ca 
03 
oo 


26 
06 
oc 
D2 


Fö 


1F 
92 
ıC 
92 


FF 


FF 


03 
83 


02 


49 


sr 
9D 
20 
9D 


17608 
1770 
1780 
1798 
1800 
1810 
1820 
1830 
1848 
1850 
1860 
1870 
1888 
1890 
1908 
1918 
1920 
1930 
1948 
19508 
1968 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
20640 
2070 
2080 
20908 
2100 
2118 
2120 
2130 
2140 
2158 
2160 
2170 
2188 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2298 
2328 
2318 
2320 
2330 
2340 
23508 
2368 
2370 


2380 


2398 


PUNKT2 


PUNKT 


2 
WA 


Pa 


Pi 


P2 


PKTTAB 


JSR 
INX 
CPX 
BNE 
LDA 
JSR 
INY 
CPY 
BNE 
RTS 


CHROUT 


#24 

NS 
#$A5 
CHROUT 


#21 
NO 
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:NAECHSTER PUNKT 
;24 PUNKTE PRO ZEILE 


:STRICH (CHR$ (165) ) 


}NAECHSTE ZEILE 
;21 ZEILEN 


sEINE KOORDINATE ZEICHNEN: 
EEE 


LDX 
LDY 
TXA 
PHA 
TYA 
PHA 
STA 
ASL 
ADC 
STA 
TXA 
LDY 
SEC 
SBC 
INY 
BCS 
ADC 
TAX 
TYA 
CLC 
ADC 
TAY 
LDA 
SEC 
ROR 
DEX 
BPL 
AND 
BNE 
LDY 
„BY 
LDY 
LDX 
LDA 
JSR 
INY 
DEX 
BNE 
PLA 
TAY 
PLA 
TAX 
RTS 


XKOORD 
YKOORD 


202 


*$02 
*$02 


#sFF 
#s08 


P3 
#+08 


*$02 
#200 
a 


P@ 

BLOCK ,Y 
Pi 

#00 

$2C 

#06 
#06 
PKTTAB,Y 
CHROUT 


P2 


:ANSTEUERUNG DURCH BASIC 
:X/Y-KOORDINATE 


ıKOORDINATEN RETTEN 
: Y-KOORDINATE#3 
UND RETTEN 


; ZAEHLER=® 


:X-KOORDINATE/8B 
;REST 


ı Y#*3+INT(X/8) 


sEIN BIT SETZEN 
ıRICHTIGES BIT HERAUSSUCHEN 
:REST ERNIEDIRIGEN 


sANDERE BITS DES SPRITEBYTES LOESC 
;BIT (=PUNKT) GESETZT? 

:NEIN 

; BIT-BEFEHL 

;BIT GESETZT! 


: ZEICHEN AUS PUNKTDARSTELLUNGSTABE 


;NAECHSTES ZEICHEN 


:KOORDINATEN WIEDERHOLEN 


: ZEICHEN FUER EINE KOORDINATE: 
EEE 


-BY 146 831 111 851 146 157 


.BY 818 828 032 931 146 157 
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Aa918- 
491B- 
a491D- 
491F- 
4920- 
4923- 
4925- 
4926- 
4928- 
492B- 


492C- 
492F- 


4932- 
4935- 


4938- 
A93B- 


A93E- 
4941- 


4943- 


4946- 
4948- 
AIAA- 
AIAC- 
AI4E- 
4950- 
A4953- 
4955- 
4957- 
4959- 
495C- 
AISE- 
4960- 
4962- 
4964- 
4966- 
4969- 
496B- 
A496D- 
4970- 
4973- 
4974- 
4977- 
4978- 
497A- 
497D- 
A9T7F- 
4982- 
4985- 
4986- 
4989- 


AD 
a2 
ao 
E8 
DD 
FO 
88 
DO 
8E 
60 


57 
°D 


32 
87 


87 
8c 


49 
18 


43 


AI 
85 
AI 
A2 
AB 
20 
AI 
Ad 
AD 
20 
A? 
A2 
AB 
86 
84 
20 
AS 
a4 
20 
AD 
48 
AD 
48 
a9 
8D 
a9 
8D 
20 
68 


68 


35 
00 
1C 


2B 
03 


F7 
35 


1D 
41 


1 
86 


8B 
ac 


13 
42 


46 


24 
02 
ei 
02 
00 
FI 
02 
BA 
00 
00 
00 
00 
40 
sr 
60 
DS 
sr 
68 
37 
00 


ai 


3D 
oa 
ES 
a1 
c3 


o1 


03 


49 


03 


si 
11 


85 
8A 


88 
47 
07 


56 


FD 


FE 


FF 


AS 


83 


03 


03 


ai 


03 


2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
z490 
2500 
2518 
2520 
2530 
2540 
2550 
2560 
2570 
2580 


2590 
2600 


2618 
2620 


26308 
2640 


2650 
2660 
2670 
2680 
2690 
2700 
2718 
2720 
2730 
2740 
2750 
2768 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
28908 
2900 
2910 
2920 
2930 
2940 
2950 
2968 
2970 
2980 
2990 
3000 
3018 


BEFIDE 


Bi 


B2 


BEFTAB 


CATALG 
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; TASTE ALS BEFEHL IDENTIFIZIEREN: 
NUR 


LDA TASTE ; TASTENCODE 

LDX #$+00 ; BEFEHLSCODE 

LDY #$1C 27-1 BEFEHLE (ZAEHLER) 
INX s BEFEHLSCODE ERHOEHEN 
CMP BEFTAB-1,X ‚TASTE MIT TABELLE VERGLEICHEN 
BEQ B2 ı GEFUNDEN 

DEY :NAECHSTER BEFEHL 

BNE Bi ;NOCH NICHT FERTIG 

STX TASTE ; BEFEHLSCODE ALS RUECKMELDUNG 
RTS :ZURUECK ZU BASIC 

; BEFEHLSTASTENTABELLE: 
EN RRR 

’ 

i W/CRSR-RE/B/CRSR-LI/A/CRSR-UN 

.BY 887 0829 @81 157 065 017 

’ 2/CRSR-OB/ F1/ F2/ F3/ F4 

.BY 0858 145 133 137 134 138 

a FS/ F&6/ FV/ FYL/G 

«BY 135 139 136 148 076 071 

s I/CTRL.S/CTRL.G/CTRL.%X/ B 

.BY 873 019 007 024 B66 

3 C/FY/NM 

.BY 0867 070 086 

:DISKCATALOG: 

GERRRRRRRRRRR 

LDA #$24 »”$" ALS FILENAME 

STA *$02 

LDA #$01 

LDX #302 

LDY #500 ;S.0. 

JSR FNPAR 

LDA #$+02 

LDX *#$BA ; GERAETEADRESSE 

LDY #+90 

JSR FPAR 

LDA #$00 sLOAD/VERIFY-FLAG 

LDX #300 

LDY #340 ;STARTADRESSE 

STX +$5F 

STY *$60 

JSR LOAD :LADE CATALOG WIE BASICPROGRAMM 
LDA *$5F ; SIMULIERE: 

LDY *$6® 3; BASIC-PROGRAMMSTARTADRESSE 
JSR $AS37 ;BASICZEILEN BINDEN 
LDA 03008 

PHA 

LDA $90301 :DRIGINALEN WARMSTARTVEKTOR 
PHA ; RETTEN 

LDA #$3D 

STA 0300 

LDA #$E3 

STA 0391 UND AUF RTS SETZEN 
JSR $A6CS ;LISTBEFEHL AUSFUEHREN 
PLA 

STA 0301 

PLA 
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A9IBA- 
A9BD- 


49BE- 
4990- 
4993- 
4995- 
4998- 
4999- 
499B- 


499C- 
A9IIE- 
A9AD- 
AIA1l- 
AIAA- 
A9AS- 
A9Ab- 
A9AB- 
A9AA- 
AIAB- 
AIAE- 
49B1- 
A9B3- 
A49BS- 


A9Bb- 
49BB- 
A9BA- 
A9BB- 
A9BE- 
AIBF- 
A9CO- 
A49C2- 
49C4- 
A9CS- 
A9ICB- 
AICB- 
AICC- 
AICE- 


49CF- 
49D1- 
49D3- 
49D5- 
49D7- 
49D9- 
49DC- 
49DD- 
49E0- 
49E1- 
49E2- 
49ES- 
49E6- 
49E7- 
49E8- 
49E9- 
49EB- 


8D 80 03 


68 


A2 
BD 
49 
9D 
cA 
10 
68 


a2 
aa 
18 
7E 
E8 
88 
D® 
A? 
6A 
1D 
°D 
EO 
D® 
68 


a2 
Aa 
18 


cA 
88 
D® 
AI 
2A 
1D 
°D 
8A 
DO 
68 


a2 
86 
Aa 
84 
A& 
BD 
48 
BD 
AB 
68 
°D 
98 
cA 
cA 
cA 
Cö 
Do 


SE 
ca 
FF 
ca 


FS 


00 
03 


co 


FI 
00 


BD 
BD 
sr 
EI 


sr 
03 


BF 


F9 


c2 
c2 


EA 


SE 
02 
15 
03 
02 
84 


co 


co 


03 
EF 


02 


02 


02 


02 
02 


02 


02 
02 


02 


02 


3020 
3030 
39848 
3050 
3068 
390708 
3088 
3090 
3100 
31198 
312® 
3138@ 
3149 
3150 
3160 
3178 
3180 
31908 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3278 
3280 
3298 
3308 
3318 
3320 
3338 
3348 
3358@ 
3368 
3378 
3388 
3398 
3400 
3410 
3420 
3438 
3440 
3450 
3468 
3478 
3488 
3498 
3500 
3518 
3520 
3538 
3548 
3550 
3568 
3570 
3588 
3590 
3608 
3618 
3628 
3630 
3648 
3650 
3668 
3678 


INVERS 
INi 


RECHTS 
REi 


RE2 


LINKS 
LIi 


LI2 


OBEN 


oBi 


0B2 


STA 
RTS 


$03500 


sALTEN VEKTOR WIEDERHOLEN 
:ZURUECK ZU BASIC 


3 
;SPRITE INVERTIEREN: 


ENT 


LDX 
LDA 
EOR 
sSTA 
DEX 
BPL 
RTS 


#62 
BLOCK ,X 
#$FF 

BLOCK ,X 


INi 


:62+1 BYTES 
;BYTE HOLEN 
; INVERTIEREN 
; ZURUECKSCHREIBEN 


;NAECHSTES BYTE 


3 
;SPRITE VERSCHIEBEN; 


GER 


LDX 
LDY 
CLC 
ROR 
INX 
DEY 
BNE 
LDA 
ROR 
ORA 
STA 
CPX 
BNE 
RTS 


’ 
LDX 
LDY 
CLC 
ROL 
DEX 
DEY 
BNE 
LDA 
ROL 
ORA 
STA 
TXA 
BNE 
RTS 


LDX 
STX 
LDY 
STY 
LDX 
LDA 
FHA 
LDA 
TAY 
FLA 
STA 
TYA 
DEX 
DEX 
DEX 
DEC 
BNE 


#300 
#803 


BLOCK ,X 


RE2 
#500 

A 
BLOCK-3,X 
BLOCK-3,X 
#63 

RE1 


#63 
#503 


BLOCK-1,X 


LI2 

#500 

A 
BLOCK+2,X 
BLOCK+2,X 


LI1 


#62 

*$02 

#21 

*$03 

*$02 
BLOCK-69,X 


BLOCK ,X 


BLOCK ‚X 


*$03 
0B2 


:BYTEZAEHLER ABSOLUT 
sBYTEZAEHLER IN ZEILE 


3 VERSCHIEBEN 


:LETZTES BIT IN AKU 
UND AN ANFANG SETZEN 


;FERTIG 


:BYTEZAEHLER ABSOLUT 
:BYTEZAEHLER IN ZEILE 


: VERSCHIEBEN 


; LETZTES BIT IN AKU 
sUND ANS ENDE SETZEN 


FERTIG 


:BYTEZAEHLER ABSOLUT 


: ZEILENZAEHLER 


sERSTES BYTE HOLEN 

; IN ZWISCHENSPEICHER 1 
:BYTE HOLEN 

IN ZWISCHENSPEICHER 2 
;ZISCHENSPEICHER 1 HOLEN 
;IN BYTE ABLEGEN 

; ZWISCHENSPEICHER 2 HOLEN 


:DARUEBER 1.IEGENDES BYTE 
:NAECHSTE ZEILE 
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49ED- Ab 02 3688 LDX *$02 
A9EF- CA 3698 DEX 
A9FQ- 86 02 3708 STX *$02 
A9FZ- E®@ SB 3718 CFX #59 
49F4- DO DD 3728 BNE OB1 
A9F6- 68 3738 RTS 

3748 ; 

3750 x 
A9F7- A2 02 3760 UNTEN LDX #02 
A9F9- 86 92 3778 STX *$02 
A9FB- AB 15 3780 UNI LDY #21 
A9FD- 84 03 3790 STY #203 
A9FF- A6 02 3808 LDX *$02 
aABı- BD FC @2 3818 LDA BLOCK+60,X 
AAD4- 48 3828 UN? FHA 
4ABS- BD C® 22 3830 LDA BLOCK ,X 
AABB- AB 3840 TAY 
4AB9- 68 3858 PLA 
AADA- 9D CO 82 3868 STA BLOCK,X 
4ADD- 98 3878 TYA 
AADBE- E8 3888 INX 
4ADF- E8 3898 INX 
aAıB- EB 3900 INX 
AAl1- C6 83 3918 DEC *$03 
4A13- DO EF 3928 BNE UN2 
4A1S- C6 82 3930 DEC #*+82 
AA17- 10 E2 3940 BPL UNI 
4A19- 68 3950 RTS 

3968 .EN 


END OF ASSEMBLY! 


--- LABEL FILE: —- 

Bi =491F B2 =4928 
EEFIDE =4918 BEFTAB =492C 
BLOCK =982C8 BLOCKN =B20B 
CATALG =4946 CHROUT =FFD2 
CONASS =9081 FNPAR =FDF9 
FFAR =FEBB Il =4804 

IN1 =49908 INIT =4800 
INVERS =498E LADEN =4847 
LAENGE =B33SC LI1 =49B8 
LIZ =49BB LINKS =49B& 
LOAD =FFDS MODUS =90334 
ND =4889 Ni =48Al 
N2 =489E N3 =48B® 
NETZ =4887 OBi =49D3 
OB2 =49DC OBEN =49CF 
PB =48ED Pi =48F9 
FZ2 =48FD P3 =48DD 
PKTTAB =499C PUNKT =48CE 
FUNKT2 =48C8 RE1 =499E 
RE2 =49A1l RECHTS =499C 
SAVE =FFD8B SPEICH =4863 
TASTE =0335 UNI =49FB 
UN2 =4AB4 UNTEN =49F7 
v =D900 XKOORD =9337 


YKOORD =90336 
//8800 ,AA1A,BA1A 


:NAECHSTE SPALTE 


ıBYTEZAEHLER ABSOLUT 


: ZEILENZAEHLER 


sLETZTES BYTE HOLEN 

: IN ZWISCHENSPEICHER i 
:BYTE HOLEN 

: IN ZWISCHENSFEICHER 2 

; ZISCHENSPEICHER 1 HOLEN 
IN BYTE ABLEGEN 

; ZWISCHENSPEICHER 2 HOLEN 


: DARUNTER LIEGENDES BYTE 
:NAECHSTE ZEILE 


:NAECHSTE SPALTE 
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Dieses Programm finden Sie natürlich auf der beigelieferten Diskette. 


Sofern Sie beim Eingeben bzw. Laden keinen Fehler gemacht haben, 
meldet sich das vorliegende Programm wie folgt: 


Farbzutei- 
lungsfeld/ 
Sekundär - 
Operationen 
24x21-Feld 
Original 
feld 1 
Original- 
feld 2 


Dieser Aufbau gibt Ihnen ständig die aktuellen Informationen, die Sie 
über den Zustand Ihres Arbeitssprites benötigen. 


24x21-Feld: 


In diesem übersichtlichen Arbeitsfeld können Sie mit Hilfe der ver- 
schiedenen Funktionen (s.u.) und dem Feld-Cursor Ihr Zeichen her- 
stellen. Die Ziffern am linken Feldrand geben die y-Koordinate bzw. 
die Reihe, die Ziffern am oberen Rand die x-Koordinate oder das 
zuständige Bit im jeweiligen Byte des Spritespeichers an. Jedes ge- 
setzte Bit (Punkt) wird als rotes Kästchen dargestellt. 


Original[elder: 


Diese Felder stellen Ihr aktuelles Sprite in den jeweils gewählten 
Farben (s. "F") in der mit "G" gewählten Größe dar, um Ihnen einen 
anschaulichen Überblick über das spätere Aussehen des Sprites zu er- 
möglichen. Feld 1 zeigt dabei ständig den momentanen Zustand des 
Objektes in Normalgröße, Feld 2 dagegen in x- und/oder y-Richtung 
vergrößert an. 
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Farbzuteilungs[eld: 

Hier wird Ihnen ein Überblick über die den Grundfarben zugeordne- 
ten Farben gegeben, die Sie beliebig ändern können (s.u.) 
Sekundäroperationsfeld: 


Hier werden weitere Informationen gegeben oder verlangt, sobald es 
dem Rechner notwendig erscheint. 


Befehlssatz 


Jeder Befehl besteht aus einem Tastendruckohne Return! 
(Ausnahmen s.u.): 


-B- 

Einen kurzen Befehlsüberblick gibt Ihnen dieser Befehl. Nach Betäti- 
gung einer Taste kommen Sie zurück zur Spriteeingabe. 

- <crsr> - 

Mithilfe der Ihnen bekannten Cursorfunktionen können Sie den 
Feldcursor bewegen. 

- 2/Q0/W/A - 

Zum leichteren Arbeiten besitzen diese Tasten ebenfalls Cursorfunk- 


tionen, deren Bewegungsrichtung aus der entsprechenden Tastaturpo- 
sition resultiert. 


- f1..f[8 - 


Mit diesen Tasten können Sie einen Punkt auf Ihr 24x21-Feld in der 
diesen Tasten (Grundfarben) zugeordneten Farbe zeichnen. 
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u BE 

F versetzt Sie in die Lage, den Tasten fl-f8 (Grundfarben) entspre- 
chende Farben zuzuordnen. Die mit diesen Tasten gezeichneten Punkte 


werden nun entsprechend in ihrem Originalfeld andersfarbig. 
Achtung! Taste fl/2 (=Grundfarbe 0) steht für die Hintergrundfarbe! 


ungen 


Durch Drücken dieser Taste können Sie die Größe des Sprites, das 
sich in dem Originalfeld 2 befindet, wechseln. 


Je 


Dieser Befehl ermöglicht Ihnen Ihr Sprite zu invertieren. 


-V- 

Sie können ihr Zeichen in Ihrem Feld beliebig verschieben. Dabei geht 
keine Information verloren, da die Ränder auf der anderen Seite 
wieder auftauchen. 

Nach V drücken Sie R,L,O,U für Rechts, Links, Oben und Unten 
(Selbstverständlich läßt sich jede Operation direkt im Originalfeld be- 
obachten). 


Eipte 


Löscht Ihr gesamtes Sprite. 


re 


Bringt das Inhaltverzeichnis der Diskette (Direktory) auf den Bild- 
schirm. Bei Drücken der ctrl.-Taste wird die Auflistung verlangsamt. 
Jede andere Taste bringt Sie wieder zurück. 
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- <ctrl>S / <ctrl>G - 


Abspeichern (<ctrl>S) oder Laden (<ctrl>G) eines Sprites: 

Geben Sie den Filenamen und - durch Semikolon(!) abgetrennt - die 
Gerätenummer an (bei Fehlen wird das zuletzt benutzte Gerät ange- 
sprochen). Nun drücken Sie <return>. Haben Sie diese Tasten verse- 
hentlich gedrückt, so genügt ein <return>, um wieder zurückzukehren 
(dies gilt für alle Sekundäroperationen, wie V,F,...).. Beim Speichern 
wird ein Programmfile erzeugt, das entweder direkt in den Speicher 
eingeladen, oder auf die oben beschriebene Weise quasi wie ein 
Sequentielles File gehandhabt werden kann. 


- <ctrl>X - 


Sind Sie fertig und wollen beenden, so beantworten Sie auch diesem 
Befehl die Frage "Beenden??" mit J oder JA, löschen die restliche 
Zeile und drücken <return>. Jede andere Eingabe bringt Sie wieder 
zurück. 


Ich hoffe, Sie werden viel Spaß haben mit Ihrer neuen Spritekreation, 
die Ihren Bekannten die Blässe ins Gesicht treiben wird. 


5.3.2 Programmierung der Spriteeigenschaften 


Das theoretische Wissen über die Art und Weise, wie ein Sprite defi- 
niert, eingeschaltet und seine Eigenschaften verändert werden, sollte 
Ihnen der Paragraph 4.5 vermittelt haben. Jetzt ist es an der Zeit, 
diese Dinge auch von BASIC aus anzuwenden. Dies soll anhand eines 
kleinen Beispielprogrammes geschehen, das sich fast aller Variations- 
möglichkeiten bedient und schon einen kleinen Einblick in die typi- 
sche Spriteanwendung zur Animation, also der bewegten Bilder, ver- 
schaffen soll. Dieses Thema soll zwar erst an späterer Stelle behandelt 
werden, doch bietet es sich hier geradezu an. 


An diesem Beispielprogramm sollten Sie so viel ändern, wie sie wollen. 
Lediglich bei den Adressen der POKE-Befehle, also dem ersten Para- 
meter, sollten Sie etwas vorsichtiger sein und zunächst einmal überle- 
gen, welche Auswirkungen das haben könnte. Falls es Ihnen jedoch 
nichts ausmacht, den Rechner nach einem Absturz auszuschalten und 
das Programm neu zu laden, dann brauchen Sie sich aus dieser War- 
nung nichts zu machen. Doch hier zunächst einmal das Programm: 
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1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
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REM Ba 2 2 204 2.2 20802702. 2020202. 20202.2.202.203 


REM ar ar 

REM ** SPRITE-BEISPIEL ** 

REM ** “r 

REM RR 

REM 

V = 53248 : REM BASISADRESSE VIDEOCONTROLLER 


POKE V+32,0 : POKE V+33,0 : REM RAHMEN UND HINTERGRUND = SCHWARZ 
REM 

REM SPRITEDEFINITION IN BLOCK 13: 
REM RR 
A1 = 13*%64 : REM ADRESSE BLOCK 13 
FOR X=0 TO 62 

READ DT : POKE A1+X,DT : REM DATEN LESEN UND IN BLOCK 13 POKEN 
NEXT X 

REM DATAS ERSTES SPRITE: 

DATA 000,007,000 

DATA 056,013, 128 

DATA 025,031,224 

DATA 126,031,204 

DATA 025,012,252 

DATA 056,007,000 

DATA 000,014,000 

DATA 000,014,000 

DATA 000,015, 128 

DATA 000,014, 192 

DATA 000,030,096 

DATA 000, 062,048 

DATA 000,046,000 

DATA 000,079,000 

DATA 000, 155, 128 

DATA 001,025, 192 

DATA 002,024,096 

DATA 003,024,096 

DATA 127,024,120 

DATA 188,024,000 

DATA 036,030,000 

REM 

REM SPRITEDEFINITION IN BLOCK 14: 
REN 
A2 = 14*64 : REM ADRESSE BLOCK 14 
FOR X=0 TO 62 

READ DT : POKE A2+X,DT : REM DATEN LESEN UND IN BLOCK 13 POKEN 
NEXT X 

REM DATAS ZWEITES SPRITE: 

DATA 000,003,010 

DATA 000,013, 132 

DATA 058,031,224 

DATA 124,031,170 

DATA 058, 015,250 

DATA 000,007,000 
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1510 
1520 
1530 
1340 
1550 
1360 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1735 
1740 
1745 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 


DATA 000,014,000 

DATA 000,014,000 

DATA 000,014,000 

DATA 000,015,000 

DATA 000,015,128 

DATA 000,014,160 

DATA 000,030,000 

DATA 000,047,000 

DATA 000,077,128 

DATA 000,141,128 

DATA 001,057,128 

DATA 003,097,128 

DATA 127,113,128 

DATA 220,025,128 

DATA 036,001,224 

POKE 2046, A1/64 : REM ZUNAECHST BLOCK 13 FUER SPRITE 6 
POKE V+21, 2°6 : REM SPRITE 6 EINSCHALTEN 

POKE V+39+6, 1 REM FARBE SPRITE 6: WEISS 

POKE V+27, 0 REM SPRITE VOR HINTERGRUND 

POKE V+28, 0 REM NORMALFARBEN-SPRITE 

POKE V+23, 2°6 REM SPRITE 6 IN Y-RICHTUNG VERGROESSERT 
POKE V+29, 2°6 : REM SPRITE 6 IN X-RICHTUNG VERGROESSERT 
POKE V+2*6+1, 101: REM SPRITE 6 Y-KOORDINATE FESTLEGEN 
POKE V+2*6 „ 100: REM SPRITE 6 X-KOORDINATE ZUR DEMONSTRATION 


POKE V+16, 0 : REM X-KOORDINATE HIGH-BIT LOESCHEN 
REM 


REM 
PRINT CHR$ (30) CHR$C147) : REM GRUEN + BILDSCHIRM LOESCHEN 
FOR X=1 TO 10 


PRINT : REM 10 LEERZEILEN 
NEXT X 

PRINT CHR$(18); : REM RVS ON 
FOR X=1 TO 40 

PRINT " "; 2 REM 40 INVERSE, GRUENE LEERZEICHEN 
NEXT X 

REM 

REM 

REM 

REM ** “r 

REM ** LAUFEN ** 

REM ** “r 

REM 

REM 

G = 10 : REM GESCHWINDIGKEIT 


F = 1 : REM FARBSTART 

FOR X=1 TO 400 STEP G 

F = F+.3: REM FARBE WECHSELN 

IF F=16 THEN F=1 

REM are 

POKE V+39+6, F : REM FARBE WECHSELN 

POKE 2046, A1/64 : REM SPRITE 6 AUF BLOCK 13 
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2000 KO=X:IF X>255 THEN KO=X-256:POKE V+16,2°6:G0T02020:REM HIGH B IT X- 
KOORD. SETZEN 


2010 POKE V+16, O : REM X-KOORDINATE - HIGH BIT LOESCHEN 
2020 POKE V+2*6, KO : REM SPRITE BEWEGEN 

2030 FOR Y=1 TO 40 : NEXT Y : REM WARTESCHLEIFE 

2040 REM --------enen- 


2050 POKE 2046, A2/64 : REM SPRITE 6 AUF BLOCK 14 


2060 KO=X+G/2:IF KO>255 THEN KO=KO-256:POKE V+16,2”6:G0TO 2080:REM HIGH 
BIT X-KOORD. 

2070 POKE V+16, O : REM X-KOORDINATE - HIGH BIT LOESCHEN 

2080 POKE V+2*6, KO : REM SPRITE BEWEGEN 

2090 FOR Y=1 TO 40 : NEXT Y : REM WARTESCHLEIFE 

2100 REM ------ run -e 

2110 NEXT X 


In der ersten Zeile (Z. 1060) wird zunächst wieder die Variable V de- 
finiert, eine Prozedur, die Sie wohl bereits kennen und die vor jedem 
Ihrer Sprite- oder Graphikprogramme durchgeführt werden sollte. 
Alsdann ändern wir die Rahmen- und die Hintergrundfarbe in 
schwarz. 


Jetzt beginnt die eigentliche Arbeit: 


a) Spritedefinition: 


Aus dem vorherigen Abschnitt kennen Sie bereits die ab Zeile 1100 
folgende Routine: Die 63 Datenbytes, die ein Sprite definieren, 
werden aus nachstehenden DATA-Zeilen eingelesen und in den Spei- 
cher gePOKEt. Im ersten Fall wird die Definition in Block 13, im 
zweiten in Block 14 (ab Zeile 1400) eingeschrieben. Die Startadressen 
dieser beiden Blöcke wurden zunächst durch Multiplikation mit 64 
errechnet und in die Speicher Al und A2 abgelegt. 


Wir haben nun also zwei Sprites definiert, die, wie Sie sehen werden, 
recht ähnlich aussehen. Es handelt sich dabei in beiden Fällen um 
einen älteren Herrn mit Pfeife, der gerade seinen Hund ausführt und 
von einem Vogel begleitet wird. Die beiden Sprites zeigen lediglich 
zwei Phasen der Bewegung unseres laufenden Männchens, der rau- 
chenden Pfeife und des flatternden Vogels (Sie können sich die beiden 
Sprite getrennt einmal ansehen, wenn Sie in die "Laufroutine" nach- 
einander in die Zeilen 2030 und 2090 ein STOP einfügen). Unsere 
Absicht ist es nicht etwa, diese zwei Sprites gleichzeitig auf den Bild- 
schirm zu bringen, wir wollen vielmehr versuchen, die sich nur durch 
jene paar Veränderungen unterscheidenden Objekte stets abwechselnd 


Supergraphik intern 429 


so auf den Bildschirm zu bringen, daß sich aus den Unterschieden 
eine Bewegung entwickelt. 


b) Blockvektor: 


Wir verwenden für dieses Vorhaben Sprite 6 und legen als erstes den 
Block fest, aus dem die Spritedefinition für Sprite 6 stammen soll. Zu 
Beginn soll Block 13 die Definition liefern. Aus diesem Grunde 
müssen wir in das sechste der letzten 8 Bytes des Video-RAMSs, also 
als Spritedefinitionsvektor, eine 13 POKEn (s. Kap. 4.5.3), was in 
Zeile 1660 geschieht. 


c) Einschalten: 


Doch damit haben wir längst noch nicht alles getan, um ein Sprite 
sichtbar zu machen. Wir müssen es zumindest noch einschalten. Dies 
wird in unserem Programm in Zeile 1670 unternommen. Hier wird in 
das Register 21 des VIC, das hierfür bekanntlich zuständig ist, der 
Wert 2%6 = 64 gePOKEt. Damit wird hier das 6. Bit gesetzt als Zei- 
chen, daß nun Sprite 6 eingeschaltet ist. 


d) Farbe: 


Trotzdem werden wir höchstwahrscheinlich noch nicht viel zu sehen 
bekommen. Dies liegt meist daran, daß es noch außerhalb des Bild- 
schirmfensters liegt. Darum werden wir uns später kümmern. Erst 
wollen wir die Farbe des Sprites festlegen. Hierfür sind bekanntlich 
die Register 39-46 des VIC zuständig. In Zeile 1680 wird in das 
sechste dieser 8 Register (also in Register 39+6 = 45) der Wert 1 für 
weiß (s. Anhang) gebracht, um diese Festlegung für das Sprite 6 vor- 
zunehmen. 


e) Priorität: 


Wir entscheiden uns nun in Zeile 1690, ob wir unser Sprite vor oder 
hinter den Hintergrundzeichen sehen wollen. Mit anderen Worten: 
wird unser Sprite von dem später gezeichneten grünen Strich verdeckt 
oder verdeckt es diesen? Wir haben uns für den letzteren Fall ent- 
schieden und das entsprechende Bit im VIC-Register 27 gelöscht. Mit 
POKE V+27, 2*6 jedoch können Sie diesen Sachverhalt ändern. Pro- 
bieren Sie einmal! Lesen Sie hierzu auch Kap. 4.5.4.3 
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f) Muliicolor: 


Wir haben unsere zwei Spritedefinitionen als Normalfarbensprites ge- 
plant und entwickelt. Daher müssen wir ebenfalls diesen Modus ein- 
schalten. Dieses Kriterium entscheidet sich, wie Sie sehen, bereits sehr 
früh, schon bei der eigentlichen Konstruktion. 


g) Vergrößerung: 


Und noch eine Entscheidung müssen wir treffen, bevor wir zur Tat 
schreiten können: Wollen wir das besagte Objekt in Originalgröße oder 
in irgendeine Richtung gedehnt anzeigen? Um die einzelnen Details 
der zwei Sprites besser erkennen zu können, wählten wir eine Ver- 
größerung des Objektes in x- und in y-Richtung und setzten in den 
Zeilen 1710/1720 die für Sprite 6 zuständigen Bits der Register 23 
und 29 des VIC (s. Kap. 4.5.4.2). Doch auch in Originalgröße sieht das 
Ganze recht lustig aus (erreichbar durch Ersetzen des Wertes 2 hoch 6 
durch 0). Versuchen Sie doch einmal eine Vergrößerung nur in x- 
oder y-Richtung! 


h) Positionierung: 


Endlich ist es soweit! Jetzt schreiten wir zur Tat und bringen unser 
Sprite sichtbar auf den Bildschirm. Nun nämlich legen wir die Koor- 
dinaten fest, bei denen sich das Objekt befinden soll. Später werden 
diese Angaben noch verändert, doch seien Sie hier schon der Vollstän- 
digkeit halber beigefügt. Wie Sie in Kap. 4.5.4.1 erfahren haben, sind 
hierfür die Register 0-16 zuständig, speziell für Sprite 6 die Nummern 
2*6 = 12 (Low-Byte x-Koordinate), 2*6+1 = 13 (y-Koordinate) und 
16 Bit 6 (High-Bit x-Koordinate). Diese Register bzw. das 6. Bit von 
Register 16 werden bei uns in den Zeilen 1730-1740 belegt. 


In diesem Stadium schon ist unser Sprite sichtbar. Wir haben also alles 
Notwendige getan, um ein Sprite zu definieren. All diese Dinge sollten 
daher in jedem Spriteprogramm auftauchen. Sie sehen, daß es trotz 
des Komforts gar nicht so leicht ist, Sprites zu bedienen. Doch mit der 
Zeit werden Sie Routine bekommen und auch Wege finden, wie man 
die verschiedenen Dinge abkürzen oder gar weglassen kann. 
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Doch weiter bei unserer Programmbesprechung. Es folgt nun der Teil 
des Programms (ab Zeile 1750), der die vorherigen Dinge anwendet 
und für den eigentlich sichbaren Verlauf zuständig ist: 


Nach dem Bildschirmlöschen und dem Zeichnen einer grünen Linie 
startet eine Schleife, die insgesamt 400 mal durchläuft und den Wert 
X von 1 bis 400 ansteigen läßt (Zeile 1940). Dabei entscheidet G über 
die Schrittgröße pro Schleifendurchlauf. 


In dieser Schleife passiert eine ganze Menge: Zunächst wird der Spei- 
cher F um 0,3 erhöht (Zeile 1950). F wird verwendet, um die Farbe 
des Sprites in der Schleife zu verändern (Z. 1980). Da dabei nur ganze 
(integer-) Werte verwendet werden, ändert sich die Farbe nur dann, 
wenn sich der ganzzahlige Teil von F verändert. Dies geschieht somit 
etwa jede 3. Schleife. 


Als Nächstes wird die Hauptaufgabe dieses Programmteils wahrge- 
nommen: die Bewegung und der Definitionswechsel. Zunächst zum 
Definitionswechsel: Wie Sie wissen, ist für unser Sprite die Speicher- 
stelle 2046 der Zeiger auf den jeweiligen Block, aus dem die Defini- 
tion entnommen werden soll. Weiter oben hatten wir die beiden Ob- 
jekte in den Blöcken 13 und 14 niedergelegt. Um nun eine Bewegung 
des Sprites an sich zu erhalten, müssen wir stets zwischen den beiden 
Definitionen hin und her schalten. An dieser Stelle (Z. 1990) wird 
deswegen der Wert 13 in 2046 gePOKEt, um den Vektor dorthin zu 
legen, es wird also das erste Sprite angezeigt. Weiter unten schließlich 
(Z. 2050) wird nach Definition 14 gewechselt, und das zweite Sprite 
ist sichtbar. 


Um eine kontinuierliche Bewegung unseres Objektes erscheinen zu 
lassen (in Wahrheit wird es ja stets ruckweise verschoben, unser Auge 
jedoch nimmt dies als gleichmäßige Bewegung wahr), versetzen wir es 
jeden Schleifendurchlauf um einen oder mehrere Punkte in x-Rich- 
tung (die y-Koordinate bleibt konstant). Hierfür wird der ansteigende 
Speicher X verwendet. Er wird zunächst in KO (für KOordinate) 
zwischengespeichert (Z. 2000). Jetzt wird geprüft, ob dieser Wert 
größer ist als 255. Ist das der Fall, so reicht ein Byte alleine nicht 
mehr aus, und es muß gleichfalls noch das High-Bit der x-Koordinate 
in Register 16 gesetzt werden. Natürlich wird dabei der Speicher KO 
um 256 erniedrigt, um ein ILLEGAL QUANTITY ERROR zu ver- 
hindern. Nun wird auch das Low-Byte bestimmt (Z. 2020), und das 
Sprite ist versetzt. Im dritten Teil der Schleife wird diese Prozedur 
(nach einer Warteschleife) ein weiteres Mal ausgeführt (Z. 2060 ff.). 
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Im obigen Beispiel wurden Ihnen schon einige Techniken vermittelt, 
die Ihnen bei Ihrer Sprite-Programmierung behilflich sein werden. 
Selbstverständlich können Sie alle obigen Programme und Techniken 
gleichfalls auf die Supergraphik übertragen, wodurch sich Programm- 
vereinfachungen und Geschwindigkeitsvorteile ergeben. Doch einige 
Themen wurden noch gar nicht angeschnitten: Multicolor, Kollisions- 
behandlung und das Arbeiten mit mehreren Sprites gleichzeitig. 


Dies soll im nächsten Schritt vorgenommen werden. Sie sollten inzwi- 
schen wissen, daß in Multicolor insgesamt 4 Farben pro Sprite ver- 
wendet werden können, unter der Einschränkung allerdings, daß hier- 
bei die x-Auflösung um die Hälfte abnimmt, die Gesamtgröße jedoch 
konstant bleibt und damit die Punktbreite mit dem Faktor 2 zunimmt. 
Im Speicher wird jeder Punkt durch 2 Bits bestimmt, die das Register 
angeben, aus dem die jeweilige Farbe entnommen wird, angeben. 
Diese Register sind die Multicolor-Register 0 und 1 (VIC-Register 
37/38) und das für jedes Sprite eigene Farb-Register (VIC-Register 
39-46). Sind die beiden Bits gelöscht, so ist diese Stelle des Sprites 
durchsichtig (s. Kap. 4.5.3 f.). 


Es können zwei verschiedene Kollisionen festgestellt werden: Sprite- 
Sprite (VIC-Register 30) und Sprite-Hintergrundzeichen (VIC-Regi- 
ster 31). In den jeweiligen Registern werden bei einer Berührung be- 
sagter Objekte die mit den Spritenummern korrespondierenden Bits 
gesetzt. Sollten Sie diese Dinge noch nicht kennen, so lesen Sie bitte 
unter Kap. 4.5.4.4 nach. In unserem Fall wird getestet, ob sich zwei 
Sprite berühren. 


Auch hier soll wieder ein Beispielprogramm zur Veranschaulichung 
des weiter unten gesagten dienen, dessen Übertragung sich allein 
schon aufgrund der hübschen Spritedefinition lohnt: 


100 REM are 

110 REM ** “ 

120 REM ** SPRITE-KOLLISION ** 

130 REM ** (MULTICOLOR) “r 

140 REM FH 

150 REM 

160 v=53248 : REM VIC-BASISADRESSE 

170 A1 = 11*64 : REM BLOCK 11 

180 FOR X=0 TO 62 

190 READ DT : POKE Ai+X, DT : REM DEFINITION LESEN UND POKEN 
200 NEXT X 

210 POKE 2040, 11 : POKE 2042, 11 : REM BLOCKZEIGER SPRITE O UND 2 AUF 1 
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220 POKE V+28, 2*0 OR 2“2 : REM SPRITE O UND 2 AUF MULTICOLOR 

230 POKE V+27, 2*0 : REM NUR SPRITE 2 HAT PRIORITAET VOR HINTERGRUND 

240 POKE V+29, 2*0 OR 2*2 : POKE V+23, 20 OR 22 : REM BEIDE GROESSER 
250 POKE V+21, 2*0 OR 2*2 : REM BEIDE SPRITES AN 

260 POKE V+37, 7 : REM SPRITE-MULTICOLOR O = GELB 

270 POKE V+38, 6 : REM SPRITE-MULTICOLOR 1 = BLAU 

280 POKE V+39, 5 : POKE V+41, 8 : REM INDIVIDUALFARBEN SPRITE O UND 2 
290 POKE V+16,0 : REM X-KOORD. HIGH-BITS LOESCHEN 

300 POKE V+1,100 : POKE V+5,100 : REM Y-KOORDINATEN VORSETZEN 

310 X2 = 255 : REM START-X-KOORDIANTE SPRITE 2 

320 POKE V+0,0 : POKE V+4,X2 : REM X-KOORDIANTEN VORSETZEN 

330 POKE V+30,0 : REM KOLLISION RUECKSETZEN 

340 FOR X0=1 TO 255 : REM X-KOORD. SPRITEO 

350 X2 = X2-1 : REM X-KOORD. SPRITE 2 ERNIEDRIGEN 

360 POKE V+0, X0 : POKE V+4, X2 : REM X-KOORDIANTEN SPRITE 0/2 (LO W- 
BYTES) 

370 POKE V+1, 40*SIN(X0/30)+100 : REM BEWEGEN AUF SINUSKURVE 

380 POKE V+5, 40*COS(X0/30)+100 : REM BEWEGEN AUF COSINUSKURVE 

390 IF PEEK(CV+30)=(2*0 OR 22) THEN GOTO 420 

400 NEXT XO 

410 REM 

420 REM KOLLISIONSROUTINE: 

430 REM 

440 FOR X=1 TO 255 

450 POKE V+39,X : POKE V+41,X : REM SPRITEFARBE WECHSELN 

460 NEXT X 

470 POKE V+0, 0 
480 POKE V+30,0 
490 REM 

500 REM SPRITE-DATEN 
510 REM 

520 DATA 008,000,128 
530 DATA 010,002,128 
540 DATA 002,138,000 
550 DATA 064,136,005 
560 DATA 080, 168,021 
570 DATA 084,032,093 
580 DATA 117,033 ,125 
590 DATA 125,101,253 
600 DATA 127,103, 253 
610 DATA 123,103 ,173 
620 DATA 123,103,173 
630 DATA 123,103 ,173 
640 DATA 123, 103,173 
650 DATA 123,103 ,173 
660 DATA 123,103 ,173 
670 DATA 123,103 ,173 
680 DATA 123,103,173 
690 DATA 127,103,253 


REM SPRITES AUSEINANDERBRINGEN 
REM KOLLISION RUECKSETZEN 
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700 DATA 095 ,101,253 
710 DATA 021,097,117 
720 DATA 005,032,084 


Zunächst werden hier wieder die üblichen Formalitäten zum Initiali- 
sieren der Sprites unternommen. In diesem Programm wird mit nur 
einer Spritedefinition gearbeitet, die in Block 11 untergebracht wird 
(Z. 170-200). Dafür aber sollen zwei Sprites gleichzeitig auf dem 
Bildschirm erscheinen. Wir wählen dafür Sprite O0 und 2. Beide Sprites 
besitzen jedoch dieselbe Form. Dies wird in Zeile 210 realisiert, in der 
beide Vektoren für Sprite 0 und 2 auf den Block 11 gerichtet werden. 
Beide Sprites also beziehen ihre Definition aus diesem Block. Trotz- 
dem aber können Sie in den anderen Parametern weiterhin völlig un- 
abhängig betrieben werden. Dies zeigen z.B. die Zeilen 230, in der 
beiden unterschiedliche Priorität vor den Hintergrundzeichen zuge- 
schrieben wird, und 280, in der beide Sprite unterschiedliche Teilfar- 
ben erhalten. Wie gesagt wollen wir nun mit Multicolorsprites arbei- 
ten. Die in den DATA-Zeilen angegebene Definition wurde deshalb 
als ein solches entworfen. Nun müssen wir dies gleichfalls dem VIC 
mitteilen, was in Zeile 220 geschieht. Hier haben wir auch gleich eine 
bisher noch nicht aufgetretene Schwierigkeit bewältigt. Bisher 
brauchten wir in allen Registern, die bitweise arbeiten lediglich ein 
Bit zu setzen. Hier aber wollen wir sowohl Sprite 0 als auch Sprite 2 
zu Multicolorsprites erklären. Dies geschieht hier durch ODER- (OR-) 
Verknüpfung der beiden Einzelwerte 2hoch0 (Bit O0 gesetzt) und 
2hoch2 (Bit 2 gesetzt). Sollten Sie damit noch Schwierigkeiten haben, 
so ziehen Sie sich doch einmal Kapitel 7.1 zu Gemüte. 


Neues kommt auch in den Zeilen 260-280 auf uns zu. Hier werden 
die verschieden Farben der Multicolorsprites in die jeweiligen Regi- 
ster gelegt. Beachten Sie, daß nur Farbe 3 (Farbkanal 3) für alle 
Sprites unterschiedlich sein kann! 


Unsere Sprites sind bereits eingeschaltet, aber wahrscheinlich noch 
nicht auf dem Bildschirm zu sehen. Wir werden sie also in das Bild- 
schirmfenster hineinversetzen. Dies geschieht in den Zeilen 290-320. 
Eigentlich wäre diese Prozedur nicht notwendig, da alle Parameter 
(außer die High-Bits in Register 16) auch in der folgenden Bewe- 
gungsschleife gesetzt werden. Doch hier tritt noch eine weitere 
Schwierigkeit auf uns zu. Wir wollten die Sprites bei Ihrer Bewegung 
auf eventuelle Kollisionen überprüfen. Oft ist es aber so, daß sie sich 
bereits am Anfang berühren, was stets nach dem Einschalten des 
Rechners der Fall ist, da alle Koordinaten auf O stehen und auch 
Kollisionen vermerkt werden, wenn die Sprites außerhalb des Sicht- 
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bereiches sind. Wenn dies aber der Fall ist, dann würde unser Pro- 
gramm ja bereits ganz am Anfang eine Kollision feststellen und ent- 
sprechend verzweigen (s.u.). Wir bringen also die Objekte zunächst 
einmal auseinander. 


Danach - und das ist ebenfalls sehr wichtig - setzen wir das Sprite- 
Sprite-Kollisionsregister zurück, indem wir den Wert O hineinschrei- 
ben, da dessen Inhalt bekanntlich so lange erhalten bleibt (genau ge- 
nommen nur die gesetzten Bits), bis dieses Löschen vorgenommen 
wurde, auch wenn die Berührung längst nicht mehr besteht. 


Danach können wir loslegen. Auch hier (wie in dem vorherigen Bei- 
spiel) werden die Sprites wieder in einer Schleife bewegt. Dabei wird 
der Schleifenzähler (X0) als laufend ansteigender Wert zur Bestim- 
mung der x-Koordinate von Sprite 0 verwendet. Ein von 255 bis | 
absteigender Wert (X2), der stets einmal pro Schleife in Zeile 350 er- 
niedrigt wird, legt die x-Koordinate des Sprite 2 fest (Zeile 360). Um 
nun Sprite 0 entlang einer Sinus- und Sprite 2 gemäß einer Cosinus- 
kurve "fliegen" zu lassen, werden die y-Koordianten in den Zeilen 360 
und 370 durch eine entsprechende Formel errechnet. Verändern Sie 
hierbei ruhig einmal die verschiedenen Parameter! (Die 40 sorgt für 
die Größe des Ausschlages (Amplitude), die 30 für die Länge der 
Kurven (Wellenlänge) und die 100 für die Verschiebung der gesamten 
Kurve in y-Richtung). 


Nun kommen wir wieder zu einem sehr interessanten Teil: Die Kolli- 
sionsabfrage. In Zeile 390 wird gefragt, ob die Bits O und 2 des Regi- 
sters 30, also des Sprite-Sprite-Kollisionsregisters, gesetzt sind. Ist das 
der Fall, so verzweigt das Programm nach Zeile 440 in die Kollisi- 
onsroutine. Hier wird ein kleiner Farb-Effekt erzeugt und die beiden 
sich berührenden Sprites auseinander gebracht, um das Kollisionsregi- 
ster zu löschen. Weshalb wir die Sprite erst auseinander bringen 
müssen (wir hätten auch eines ausschalten können), ist weiter oben 
dargelegt. Damit hätten wir alles Notwendige, um Kollisionen zu 
bedienen. 


Hier wurden Ihnen - ich hoffe recht anschaulich - die Grundlagen 
der Spriteprogrammierung vermittelt. Jetzt ist es an Ihnen, zu probie- 
ren und zu programmieren. Es gibt tausende von Anwendungen, 
denen lediglich Ihre Phantasie Grenzen setzt. Selbstverständlich kann 
in diesem Buch nicht auch nur ein Bruchteil dieser Dinge vermittelt 
werden. Es bedarf schon einiger Eigeninitiative, um hier Fuß zu 
fassen. Das aber ist ja gerade das Interessante am Programmieren. Der 
ganze Reiz wäre fort, wenn alle Möglichkeiten bereits vorgekaut vor 
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Ihnen lägen und Sie sie lediglich zusammenfügen müßten. So bleibt 
Ihnen genügend Freiraum, in dem Sie Ihrem Forschungsdrang freien 
Lauf lassen können. 


5.4 Zeichensatzprogrammierung 


Ein bisher recht stiefmütterlich behandeltes Thema ist das der Zei- 
chensatzveränderung. Enorme Möglichkeiten tun sich hier auf. Ich 
kenne nur sehr wenige mehr oder minder anspruchsvolle Spiele, die 
nicht auf diese Eigenschaft Ihres Rechners zurückgreifen oder gar den 
Kern Ihres Inhalts nicht hierhin verlagern. Hier entscheiden die 
großen graphischen Möglichkeiten, die fast an die hochauflösende 
Graphik heranreichen, bei einer 8-9 mal schnelleren Verarbeitungs- 
geschwindigkeit. Mit der Fähigkeit, einen eigenen Zeichensatz zu 
kreieren wird der Commodore 64 ungeheuer anpassungsfähig. Der 
große Mangel vieler Computer, die sich mit den vielen verschiedenen 
Zeichensätzen oder Sonderzeichen in unterschiedlichen Ländern her- 
umschlagen ist hier behoben. Nicht nur den amerikanischen, sondern 
auch den deutschen, schwedischen, ja sogar russischen, griechischen 
oder japanischen Zeichensatz kann Ihr Computer auf den Bildschirm 
bringen. Schriftarten können gewechselt werden und vieles mehr. Das 
bekannte Textomat beispielsweise, ein erfolgreiches Textverarbei- 
tungsprogramm, bedient sich dieses inneren Schatzes. Sie sehen, diese 
Rechnereigenart ist nicht zu unterschätzen. Aus diesem Grunde 
widmen wir uns in diesem Kapitel der programmtechnischen Reali- 
sierung der Zeichensatzänderung. Diese ist nicht so einfach wie bei- 
spielsweise die Spriteprogrammierung und kommt zumindest an einer 
Stelle nicht ohne Maschinensprache aus, außer, Sie besitzen eine ent- 
sprechende BASIC-Erweiterung. Deshalb sollten Computerneulinge 
zunächst einmal diesen Abschnitt überspringen. Gleichfalls ist es 
empfehlenswert vor der Lektüre der folgenden Ausführungen den 
Paragraphen 4.6 gelesen und verstanden zu haben. 


Wie Sie in dem Abschnitt 4.6 erfahren haben, besteht eine Zeichende- 
finition aus 8 Bytes zu je 8 Bits, was eine 8x8-Punkte-Matrix pro 
Zeichen ergibt. Gleichzeitig sind 512 verschiedene Zeichen speicher- 
bar, maximal jedoch nur 256 zur selben Zeit auf dem Bildschirm 
darzustellen. Der gesamte Satz von 512 Zeichen besitzt eine Länge von 
4 K und liegt normalerweise bei $D000-$DFFF (53248-57343) im so- 
genannten Zeichensatz-ROM. Er ist verschiebbar durch Änderung der 
Register 24 des VIC und Register 0, Bits 0/1 der CIA 2 (Adressen: 
$D018 = 53272 und $DD00 = 56576). Soweit das Wichtigste noch ein- 
mal in Kürze. 
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Bei der Zeichensatzerstellung muß man zwei Fälle unterscheiden. Im 
ersten Fall sollen nur einige wenige Teile des Zeichensatzes (Sonder- 
zeichen) verändert werden. Bei der anderen Möglichkeit wird der ge- 
samte Satz ausgewechselt. Zunächst zur ersten: 


5.4.1 Änderung einiger Zeichen 


Wollen wir ein paar Zeichen des Zeichengenerators durch eigene 
Zeichenformen ersetzen, so müssen wir den originalen Satz zunächst 
einmal aus dem ROM-Bereich in einen uns angenehmen RAM-Be- 
reich kopieren. Anschließend ändern wir die Start-Adresse des Gene- 
rators auf die in Abschnitt 4.3.2 (das Kapitel 4.3 sollten Sie, um alles 
richtig zu verstehen, bereits gelesen haben) erläuterte Art und Weise. 
Dann gehen wir hin und ändern die Zeichen, die wir ersetzen wollten. 


Was hier so kurz und einfach erscheint, bedarf doch einigem an Hin- 
tergrundwissen und Programmiertechnik. Grundsätzlich kann man den 
Zeichengenerator nicht von BASIC aus auslesen bzw. kopieren. Dies 
ist dadurch verursacht, daß der Ort von $D000-$DFFF (53248-57343), 
in dem er sich befindet, normalerweise alle Eingabe/Ausgabe-Bereiche 
(E/A-Bereich) umfaßt und somit erst durch Ändern des Registers | 
der CPU (s. Kap. 4.5), also der Speicherstelle 1 eingeschaltet werden 
muß. Damit ist aber der E/A-Bereich, der von der Interruptroutine 
des Betriebssystems verwendet wird, lahmgelegt und es käme in 
BASIC zum Absturz des Computers. In Maschinensprache jedoch kann 
man den Interrupt durch Setzen des Interruptflags der CPU verhin- 
dern. Aus diesem Grunde geben wir Ihnen an dieser Stelle ein Ma- 
schinenprogramm an, das die Aufgabe des Kopierens und des Ver- 
schiebens des Zeichengenerators für Sie übernimmt. Letzteres könnte 
zwar ebensogut von BASIC aus geschehen, ist aber so einfacher. 
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20: ; 

30: ;ZEICHENSATZVERSCHIEBUNG: 

40 . SURIRRTURRTRT RR EN RENT URTN 

50: : 

60: C800 *=  $C800 ;STARTADRESSE (51200) 

70: C800 V = 53248 ;BASISADRESSE VIDEOCONTROLLER 
80: C800 SATZ = 53248 ;BASISADRESSE ZEICHENSATZ 
90: C800 ZIEL = $3000 ;BASISADRESSE KOPIERADRESSE 
100: C800 78 START SEI ; INTERRUPT VERHINDERN 

110: C801 A5 01 LDA $01 ;CPU-REG. 1 

120: C803 48 PHA ;RETTEN 

130: C804 29 FB AND #%11111011 ;BIT 2 LOESCHEN 

140: C806 85 01 STA $01 ; CZEICHENGENERATOR AUSLESBAR) 
150: C808 A9 DO LDA #SATZ 

160: C80A 85 03 STA $03 ;QUELLADRESSE HIGH-BYTE 
170: C80C AY 30 LDA #>ZIEL 

180: C80E 85 05 STA $05 ;zIELADRESSE HIGH-BYTE 

190: C810 AO 00 LDY #800 

200: C812 84 02 sTY $02 

210: C814 84 04 STY $04 ;LOW-BYTES = 00 

220: C816 A2 20 LDX #820 ;ZAEHLER FUER 4 K-BYTE 

230: C818 B1 02 KOPIE LDA ($02),Y ;BYTE LADEN 

240: C8B1A 91 04 STA ($04),Y ;UND KOPIEREN 

250: C8IC C8 INY 

260: C81D DO F9 BNE KOPIE ;256 MAL 

270: C8IF E6 03 INC $03 

280: C821 E6 05 INC $05 ;HIGH-BYTES ERHOEHEN 

290: C823 CA DEX 

300: C824 DO F2 BNE KOPIE ;4 K KOPIEREN 

310: C826 68 PLA 

320: C827 85 01 STA $01 ;ZEICHENGENERATOR AUS-E/A EIN 
330: C829 AD 18 DO LDA V+24 ; ZEICHENGENERATORADRESSE 
340: C82cC 29 Fi AND #%11110001 

350: C82E 09 OC ORA #%00001100 

360: C830 8D 18 DO STA V+24 ;AUF $3000 SETZEN 

370: C833 58 CLI ;INTERRUPT WIEDER ERLAUBEN 


380: C834 60 RTS ;ZURUECK NACH BASIC 
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Und hier der dazugehörige BASIC-Lader: 


100 FOR I = 51200 TO 51252 

110 READ X : POKE 1,X : S=S+X : NEXT 

120 DATA 120,165, 1, 72, 41,251,133, 1,169,208,133, 3 
130 DATA 169, 48,133, 5,160, 0,132, 2,132, 4,162, 32 
140 DATA 177, 2,145, 4,200,208,249,230, 3,230, 5,202 
150 DATA 208,242,104,133, 1,173, 24,208, 41,241, 9, 12 
160 DATA 141, 24,208, 88, 96 

170 IF S <> 5884 THEN PRINT "FEHLER IN DATAS !!" : END 
180 PRINT "OK!" 


Wollen Sie also Teile Ihres Zeichensatzes ändern, so brauchen Sie 
lediglich diesen Lader einzuladen, RUN zu drücken und anschließend 
ein SYS 51200 einzutippen, und schon ist der originale Zeichensatz 
verschoben (Sie können, falls Sie einen Monitor besitzen, natürlich 
auch direkt das Maschinenprogramm eingeben, abspeichern und später 
mit LOAD "name",8,1 einladen). 


Der ursprüngliche Grund für diese Exkursion war aber das Ziel, ver- 
schiedene Zeichen des Zeichengenerators zu verändern. Dies wollen 
wir jetzt unternehmen. 


Aus dem Abschnitt 4.6 kennen wir bereits den 8x8-Aufbau (bzw. 4x8 
bei Multicolor) eines Zeichens und seine Abspeicherung in 8 Bytes. 
Um nun eine Zeichendefiniton auszuwechseln, müssen wir uns 
zunächst eine eigene überlegen. Dies geschieht am besten auf die 
gleiche Weise, wie bei den Sprites mit Hilfe eines Zeichenentwurfs- 
blattes, das Sie ebenfalls im Anhang finden. Die Anwendung kennen 
Sie bereits von den Sprites her. Jede Reihe dieses Zeichenentwurfes 
bildet dabei genau ein Byte, jeder gesetzte Punkt ein Bit der Defini- 
tion. Nun haben wir beispielsweise folgendes Gebilde creiert: 


Bit: 76543210 


Byte 0: oa. ER 
Byte 1: .„ * * 4 

Byte 2: ** wer 
Byte 3: En 
Byte 4: KH... ee 
Byte 53 „FER,.0.% 
Byte 6... ._ 


Byte TE ne 
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Wir erhalten damit folgende 8 Bytes: 


Byte 0: %0001 1100 = $1C = 028 
Byte 1: %0111 0000 = $70 = 112 
Byte 2: %1100 1111 = $CF = 207 
Byte 3: %1100 0000 = $c0 = 192 
Byte 4: %1100 1111 = $CF = 207 
Byte 5: %0111 0000 = $70 = 112 
Byte 6: %0001 1100 = $1C = 028 
Byte 7: %0000 0000 = $00 = 000 


Damit taucht auch gleich die nächste Frage auf: Welches Zeichen soll 
unsere Neuschöpfung ersetzen, und welchem der insgesamt 4 Zei- 
chensätze (s. Kap. 4.6) soll es angehören? In unserem Fall wollen wir 
statt des normalen Pfundzeichens, das im Groß/Graphikmodus er- 
reichbar ist, nun diese Definition setzen. 


Jetzt müssen wir feststellen, wo die entsprechenden 8 Bytes innerhalb 
des gesamten Zeichengenerators liegen. Dazu verwenden wir die im 4. 
Kapitel angegebene Formel: 


adresse = basisadresse + 8 * bildschirmcode 


Die Basisadresse des Zeichengenerators hängt grundsätzlich von dem 
Bereich ab, in den wir diesen verschoben haben. Da wir uns in 
unserem Beispiel innerhalb der Adressen $3000-$3FFF (12288-16383) 
befinden und wir nur den Großschrift/Graphikzeichenmodus verän- 
dern wollen (die Definitionen für dessen Zeichen liegen von $3000- 
$37FF (12288-14335)), liegt dieser erste Wert hier schon einmal fest. 
Bleibt lediglich der Bildschirmcode: Diesen erfahren wir durch Nach- 
schlagen in der Bildschirmcodetabelle im Anhang. Er ergibt sich für 
das normale Pfundzeichen zu 28 ($1C) (das inverse Pfundzeichen hätte 
den Code: 128+28=156). Damit können wir die verschiedenen Werte in 
unsere Formel einsetzen: 


adresse = 12288 + 8*28 = 12512 = $30E0 


Damit wissen wir, daß die 8 Bytes von $30E0 bis $30E7 (12512- 
12519) die Definition für besagtes Pfundzeichen enthalten. Mit einem 
Speichern der obigen 8 Bytes unseres Sonderzeichens in diese Positio- 
nen ändern wir sofort das Aussehen aller Pfundzeichen auf dem Bild- 
schirm. Dies geschieht etwa durch folgendes BASIC-Programm 
(selbstverständlich, nachdem Sie zunächst mit obiger Routine den 
Zeichensatz kopiert und verschoben haben): 
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10 REM ZEICHENAENDERUNG 

20 FOR X=0 TO 7 

30 READ DT : REM 8 DATEN LESEN 

40 POKE 12288 + 8*28 + X, DT : REM UND EINPOKEN 
50 NEXT X 

60 DATA 28,112,207,192,207,112,28,0 


Bevor Sie dieses Programm ablaufen lassen, sollten Sie ein paar 
Pfundzeichen auf den Bildschirm bringen, um die Wirkung direkt zu 
sehen. Wenn Sie nach dem Starten dann auf den Klein-/Großschrift- 
Modus umschalten (mit <shift><C=>), dann sehen Sie, daß das 
Pfundzeichen dieses Satzes aus einem anderen Speicherbereich stammt. 
Diese Operation können Sie natürlich mit allen anderen Zeichen ge- 
nauso durchführen und sich damit ein ganzes Reservoir an Sonder- 
zeichen schaffen, die bei der Erstellung von besonders schönen und 
abwechslungsreichen Graphiken oder beim kommerziellen Gebrauch 
Verwendung finden. 


5.4.2 Änderung eines Zeichensatzes 


Wollen wir einen ganzen Zeichensatz auswechseln, so brauchen wir 
den originalen nicht extra zu kopieren. Damit kommt man völlig mit 
den Möglichkeiten, die in BASIC bestehen aus. Man läd einfach den 
neuen Zeichensatz in einen bestimmten Speicherbereich ein und teilt 
dem VIC mit, daß er die Definition der verschiedenen Buchstaben etc. 
von nun ab von dort holen soll. 


Doch zunächst einmal muß dieser neue Zeichensatz entstehen, der 
jetzt von mir aus alle griechischen, russischen, kyrillischen Zeichen 
oder nur Blocksatz, Elite oder Schreibschrift enthält. Dies ist norma- 
lerweise aufgrund der Vielzahl der verschiedenen Zeichen recht müh- 
selig und mancher Programmierer würde ob dieser schier unbewältig- 
bar erscheinenden Arbeit verzweifeln. Jedes Zeichen müßte auf einem 
Blatt entworfen, in Bytes übersetzt und schließlich entweder per Mo- 
nitor direkt oder - was noch mühseliger wäre - von BASIC aus durch 
POKES in den Speicher eingegeben werden. Weil aus diesen Gründen 
ein vernünftiges Arbeiten mit ganzen Zeichensätzen kaum realisierbar 
erscheint, werden wir Ihnen an dieser Stelle ein Programm vorstellen - 
ähnlich dem Spriteeditor -, mit dem Sie auf einfachste Art und Weise 
solche Tätigkeiten vornehmen können. Auch hier erwartet Sie wieder 
einiges an Tipparbeit, die sich jedoch ernsthaft lohnt! Halten Sie dies 
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jedoch für verlorene Zeit, so weise ich Sie auch hier wieder darauf 
Sie exklusiv zu diesem Buch eine Diskette mit allen hier auf- 
geführten Programmen erhalten können. Speziell zum Zeichenformer 
ist dort auch eine Version für Multicolorzeichen und ein Programmteil 


hin, daß 
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"Erläuterungen" vorhanden. 


In dem vorliegenden Programm 


1 


auch zu verstehen. 


10 REM RR 


20 
30 


REM ** “r 
REM ** ZEICHENFORMER ** 


40 REM ** Er 
50 REM eek 


60 


REM 


70 REM INITIALISIERUNG: 


80 REM 


90 GOSUB 10000 : REM MASCHINENROUTINEN EINLESEN 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 


POKE 53280,0:POKE 53281,0:REM HINTERGRUND - /RAHMENFARBE 
POKE 763,0:POKE 650,255:REM MODUS=0:ALLE ZEICHEN REPEAT 
POKE 45,0:POKE 46,80:RUN 130:REM BASICENDE=$5000 

REM 

REM MASCHINENROUTINEN: 

REM WR 

IN%=18432:REM INITROUTINE 

PU%=18633:REM PUNKT EINZEICHNEN 

NE%=18586:REM KOORDINATENSYSTEM 

LA%=18487:REM ZEICHENSATZ LADEN 

SP%=18515:REM ZEICHENSATZ SPEICHERN 

CA%=18765:REM CATALOG 

BE%=18689:REM BEFEHLSIDENTIFIZIERUNG 

Q =13048:REM TESTZEICHENADRESSE 

REM 

REM CONTROLZEICHEN: 

REM WR 

COS=CHRSCI47):REM BILDSCHIRM LOESCHEN 

C1$=CHR$C 19):REM HOME 

C2$=CHR$(183):REM HOCHSTRICH 

C3SSCHRECII7I+CHREC YN)+CHRSCIOS):REM OBERER ZEICHENFENSTERRAND 
CAS=CHRECIOGI+CHREC Y9)+CHRSCIO7T):REM UNTERER RAND 
C5$=CHRSC 98):REM MITTELSTRICH (SENKR) 

C6$=CHR$C 18):REM RVS ON 

C7$=CHR$C146):REM RVS OFF 

NA%=704 :REM FILENAMENLAENGE($02CO) 

GA%=186:REM GERAETEADRESSE($BA) 


1 Dieses Programm funktioniert nur ohne die Supergraphik 


wurde wieder viel Wert auf Doku- 
mentation gelegt, damit Sie die Möglichkeit haben, dieses Programm 
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370 M0%=763:REM MODUS 

380 TA%=764:REM TASTE/BEFEHLSCODE 

390 YK%=765:REM Y-KOORD 

395 XK%=766:REM X -KOORD 

400 REM 

410 REM FARBEN DEFINIEREN: 

420 REM are 

430 DATA 144, 5, 28,159,156, 30, 31,158 

440 DATA 129,149,150,151,152,153, 154,155 

450 DIM C$C16):FOR Y=0 TO 15:READ X:C$CY)=CHRECX):NEXT Y 

460 N=1:F(0)=0:F(1)=1:V$=" ":SYS INX:REM FARBEN/INIT 

500 REM 

510 REM LOESCHROUTINE (FELDAUFBAU): 

520 REM a2 202 2 2 20202 2020202 202020272 202 27272 2.270277 

530 FOR Y=Q TO Q+7:POKE Y,O:NEXT Y:REM TESTZEICHEN LOESCHEN 

540 PRINT CO$ 

550 PRINT C1$;SPC(10);C$(7);"ZEICHEN-NEU-CREAT ION" 

560 PRINT SPCCI1);C$C1);"CC) BY AXEL PLENGE" 

570 PRINT C$(4);:FOR X=1 TO 40:PRINT C2$;:NEXT X:PRINT C$(6):PRINT 
580 PRINT " 76543210":SYS NEX 

590 PRINT " "FOR X=0 TO 7:PRINTC2$;:NEXT X 

600 A=15:B=5:G0OSUB 9000:REM POSITIONIEREN 

610 PRINT C3$:PRINT TAB(15);C5$;CHR$C127);C5$:POKE 55552,FC1):REM TESTZE 
ICHEN MIT FARBE 

620 PRINTTAB(15);C4$:GOSUB 3000:X=0:Y=0:REM STATUSFELD/X/Y-KOORD=0 
700 REM 

710 REM EINGABESCHLEIFE: 

720 REM hr 

730 A=X+3:B=Y+6:G0SUB 9000:REM POSITIONIEREN 

740 POKE XK%,X:POKE YK%,Y:F=0:REM KOORDINATEN UEBERGEBEN 

750 PRINT C$(7);C6$;" ";CHR$SC157);:REM BLINKPHASE AN 

760 FOR S=1 TO 50:GETA$:IF A$<>"" THEN 800 

770 NEXT S:SYS PU%X:FOR S=1 TO 50:GET A$:IF A$="" THEN NEXT S:GOTO 750:RE 
M AUSSCHALTEN 

800 REM 

810 REM BEFEHLSERKENNUNG: 

820 REM rhhrhchhee 

830 SYS PU%:C=ASC(A$):POKE TA%,C:SYS BEX:S=PEEK(TA%X):REM BEF-UEBER 
GABE/RUECKMELDUNG 

840 REM VERTEILUNG: 

850 ON S GOTO 1600, 2800, 2900, 1060, 1060 ,1080, 1080 ,1100,,1100 

860 ON S-9 GOTO 1110,1110,3100,3100,3100,3100 

870 ON S-15 GOTO 3100,3100,3100,3100,500, 1700 

880 ON S-21 GOTO 1800, 1900,2000,2100,1200,3400 

890 ON S-27 GOTO 1300,3200,1400,700 

1000 REM 

1010 REM BEFEHLSBEARBEITUNG: 

1020 REM aha 

1030 REM 

1040 REM CURSORBEWEGUNG: 


1050 REM Wr 
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1060 
1070 
1080 
1090 
1100 
1110 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1300 
1310 
1320 
1330 
1400 
1410 
1420 
1430 
1440 
yaı 

1450 
1460 


Das Supergraphikbuch zum C64 


X=X+1:1F X=8 THEN X=0:G60T0 1100 

GOTO 700:REM RECHTS 

X=X-1: IF X<O THEN X=7:G0T0 1110 

GOTO 700:REM LINKS 

Y=(Y+1)AND7:GOTO 700:REM RUNTER 
Y=(Y-1)AND7:GOTO 700:REM HOCH 

REM 

REM BEENDEN: 

REM re 

A=2:B=15:G0SUB 9000:REM POSITIONIEREN 

PRINT C6$;C$(7);"BEENDEN?";C7$;C$(6):INPUT T$ 
IF T$="J" OR T$="JA" THEN SYS 64738:REM KALTSTART 
GOTO 540 

REM 

REM CATALOG: 

REM re 

PRINT CO$:SYS CA%:GOSUB 9100:G0T0 540 

REM 


REM VERSCHIEBUNG: 

REM 

GOSUB 8999:PRINT C$C1);"VERSCHIEBUNG:":REM MELDEFELD 

PRINT "NACH: RECHTS(R), LINKS(L),":PRINT SPC(6) "OBEN (O), UNTENCU 


GOSUB 9Y100:IF T$<>"R" THEN 1470 
FOR T=0 TO 7:R=PEEK(Q+T):POKE Q+T,(R/2) + (R AND 1)*128:NEXT T:REM 


RECHTS 


1470 
1480 


IF T$<>"L" THEN 1490 
FOR T=0 TO 7:R=PEEK(Q+T)*2:POKE Q+T,(R AND 255) + R/256:NEXT T:REM 


LINKS 


1490 
1500 
1510 
:REM 
1520 
1600 
1620 
1630 
1640 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1800 
1810 
1820 
1830 


S=1:1F T$="0" THEN 1510 

S=-1:1F T$<>"U" THEN 1520 
FORT=0T07:P(T)=PEEKCC7ANDT+S)+Q):NEXTT:FORT=OTO7:POKEQ+T,P(T):NEXTT 
HOCH/RUNTER 

GOSUB 9200:G60T0 550 

REM 

REM MODUSWECHSEL: 

REM Wi 

M=ABS(M-1):POKE MO%,M:GOSUB 3000:G0T0 700 

REM 

REM ZEICHEN DEFINIEREN: 

REM Acker 

GOSUB 8999:PRINT C6$;C$(5);"GEBEN SIE AN:";C7$ 

PRINT C$(7);"ZUORDNUNG DES ZEICHENS: ";C$(6);CHR$(127);C$(7) 
GOSUB 2500:IF F=1 THEN F=0:G0TO 540:REM ADRESSENERR.+FEHLERABFR. 
FOR X=0 TO 7:POKE T+X,PEEK(Q+X):NEXT X:REM SPEICHERN 

FOR X=1 TO 1500:NEXT X:GOSUB 9200:G0T0550:REM WARTEN+LOESCHEN 
REM 

REM ZEICHEN HOLEN: 

REM Hk 


GOSUB 8999:PRINT C$(1);"GEBEN SIE DAS ZU BEARBEITENDE":PRINT "ZEICH 


EN EIN:" 
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1840 
1850 
EN 

1900 
1910 
1920 
1930 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2200 
2210 
2220 
2230 
2240 
2300 
2310 
2320 
2330 
2340 
2350 


GOSUB 2500:1F F=1 THEN F=0:G0T0 540:REM ADRESSENERR.+FEHLERABFR. 
FOR Y=0 TO 7: POKE Q+Y,PEEK(CT+Y):NEXT Y:GOSUB 9200:G0T0 550:REM LAD 


REM 

REM ZEICHEN INVERTIEREN: 

REM Ba a2 2 2 2 2 2 2 2 2 22 222 2 2 2 

FOR B=0 TO 7:POKE Q+B,255-PEEK(Q+B):NEXT B:GOTO 550 

REM 

REM ZEICHENSATZ SPEICHERN: 

REM Ba a2 22 2 2 2 2 22222 2 2 2 2220 

GOSUB 8999:PRINT C6$;C$C1);"ZEICHENSATZABSPEICHERUNG";C7$ 
GOSUB 2300:IF F=1 THEN F=0:G0T0 2000:REM EINGABE/FEHLERABFR. 
IF F=2 THEN F=0:60T0 2150:REM FEHLER 

SYS SPX:GOTO 2200:REM SPEICHERN 

REM 

REM ZEICHENSATZ LADEN: 

REM Ba a 2 2 2 2 2 22 2 2 22 222 

GOSUB 8999:PRINT C6$;C$C1);"ZEICHENSATZ LADEN:";C7$: 

GOSUB 2300:IF F=1 THEN F=0:G0T0 2100 

IF F=2 THEN F=0:G0T0 540 

SYS LAX 

REM FEHLERABFRAGE (NUR FUER DISK!): 

OPEN 1,8,15:1NPUT#1,DS,DS$,DT,DB:CLOSEI 

IF DS<20 THEN 500:REM OK 

PRINT: T$=STRSCDS)+" ,N+DSS+, NESTRECDT)+", N+STRECDB) 

GOSUB 9310:PRINT T$:FOR S=1 TO 2000:NEXT S:GOTO 500:REM BLINKEN 
REM 

REM NAMENEINGABE: 

REM 220222 22 2 2 2 20203 

AS="MPRINT:PRINT "FILENAME"+C$C6);: INPUT AS:T=LENCA$) 
S=VALCRIGHT$CAS,1)) 

IF S<>O AND LEFTSCRIGHTSCAS,2),1)=";" THEN T=T-2:POKE GA,S:RE M 


GERAETEADR. 


2360 
2370 
2375 
2380 
2390 
2400 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
E 

2580 
2590 
2600 


IF T=0 THEN F=2:RETURN:REM KEIN NAME 

IF T>17 THEN 2390 

REM NAMEN AN MASCHINENROUTINEN (704=$02C0): 

POKE NA%,T:FOR S=1 TO T:POKE NA%+S,ASC(MIDSCA$,S,1)):NEXT S:RETURN 
PRINT CHR$(145);:T$=C6$+"LAENGE ! "+C7$:GOSUB 9310:REM FEHLERMELDUNG 
PRINT C$(6):F=1:RETURN 

REM 

REM ZEICHENADRESSE ERRECHNEN: 

REM Kahn 

PRINT "ZEICHENSATZC1-4): ";N:A$S=11 

PRINT "TASTE(CF3) ODER ASCIICF5)?":GOSUB 9100 

ON ABS(CASC(T$)-132) GOTO 2570,2570,2590,2590 

GOTO 9300 

INPUT "TASTE" ZAS:ASSLEFTSCAS, 1): IF AS="" THEN 9300:REM TASTENEINGAB 


T=ASC(A$):GOTO 2620 
INPUT "ASCII";ASZIF A$="" THEN 9300:REM ASCII-EINGABE 
T=VAL(A$)/255:T=INTCCT- INTCT) )*255) :AS=CHRSCT) 
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2610 IF T<32 OR (T<160 AND T>127) THEN 9300 

2620 IF T>191 THEN T=T-96:REM ASCII-UMWANDLUNG 

2630 PRINT CHRSCI45)S"TASTE:";AS;" ASCII:";T;:IF B>8 THEN VS=A$ 

2640 REM UMRECHNUNG (T IST DER NORMALE ASCII-WERT DES ZEICHENS): 

2650 IF T<64 THEN S=256:G0T0 2680 

2660 IF T<128 THEN S=256*((32 AND T)/16) 

2670 IF T>159 THEN S=256*CINT(T/32)-2) 

2680 T=(N+47)*1024+5+(31 AND T)*8:RETURN 

2800 REM 

2810 REM ZEICHENSATZWECHSEL: 

2820 REM ee 

2830 A=36:B=5:GOSUB 9000:PRINT C$(2);C6$;N;C7$;C$(6):REM NUMMER INVERTIE 
REN 

2840 GOSUB 9100:S=VAL(TS):IF S=0 OR S>4 THEN S=N:REM S=NEUER/N=ALTER ZEI 
CHENSATZ 

2850 N=S:GOSUB 3000:60T0 700 

2900 REM 

2910 REM ZEICHEN HOLEN (IN MODUS 1): 

2920 REM U ee 

2930 IF C<32 OR (C>127 AND C<160) THEN 700 

2940 T=C:R=N:V$=A$:GOSUB 3000:G0T0 1850 

3000 REM 

3010 REM STATUSFELD ERSTELLEN: 

3020 REM Ba 2 2 2 2 2 2 2222222 

3030 A=20:B=5:G0SUB 9000:PRINT C$C7);"MODUS:";M;"/ SATZ:";NZAS=VS:T=ASCC 
A$) 

3040 PRINT TAB(20);CHR$C17);CHRSCIT);CSC6); 

3050 GOSUB 2620:PRINT CHR$C157);" ":PRINT 

3060 PRINT TAB(20);C$(7);"FARBZUTEILUNG:" 

3070 PRINT TAB(20);C$(C2);:FOR S=1 TO 14:PRINTCHR$C163);:NEXT S:PRINT C$C 
6) 

3080 FOR S=0 TO 1:PRINT TAB(20);"GRUNDFARBE";S;":";FCS):NEXT S:RETURN 
3100 REM 

3110 REM PLOT: 

3120 REM *t+** 

3130 S=((S-12) AND 2)/2:REM PLOTFARBE FESTSTELLEN 

3140 T=2*(7-X):POKE Q+Y,PEEK(Q+Y) AND (255-T) OR S*T:GOTO 700 

3200 REM 

3210 REM FARBENWAHL: 

3220 REM vrhkhche 

3230 GOSUB 8999:PRINT TABC4)ZCECI)NFICKL2JNAUCHLZIURUCHL4HJUBUCHSIHENCSE 
6)" N"; 

3240 PRINT CECTIUWNCKLAJNAUCKCOJUHNCKC2)"LUCHL7Ty":" 

3250 PRINT TAB(4);C$C1);CHRSCIT2);:FOR S=1 TO 32:PRINT CHRSC162);:NEXT S 
:PRINT CHR$C187) 

3260 FOR S=1 TO 2:PRINT TAB(4);C6$;CHR$C161); 

3270 FOR T=0 TO 15:PRINT C$CT);" ";:NEXT T:PRINT C$C1)5C7$;CHRSCI61):NE 
XT Ss 

3280 PRINT TAB(4);C6$;CHRSCI61);" 0 1234567 8 9101112131415";C78;C 
HR$C161) 

3290 PRINT:PRINT C$(6);" __FUER GRUNDFARBENNR.(CFI/F3): "; 
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3300 GOSUB 9100:T=ASC(T$)-133:REM FUNKTIONSTASTE 

3310 IF T<O OR T>1 THEN GOSUB 9300:G0T0O 540:REM FEHLER 

3320 IF T>1 THEN T=T-4 

3330 PRINT T:T$="": INPUT " FARBE ";T$:S=ABSCINT(VALCT$))) 

3340 IF T$="" OR S>15 THEN GOSUB 9300:G0T0540:REM FEHLER 

3350 F(T)=S:POKE 53281+T,S:REM FARBE SETZEN 

3360 GOTO 540 

3400 REM 

3410 REM BEFEHLSSATZ: 

3420 REM Wis 

3430 PRINT CO$;C6$;C$(2)" ":C$(7); 

3440 PRINT "BEFEHLSSATZ";C$C2);" "sc7$; 

3450 PRINT C$(4);:FOR S=1 TO 40:PRINT CHR$C184);:NEXT S:PRINT 

3460 PRINT C$C1)" NR. "C6S"BEFEHL "C7E"-"C$C5)" FUNKTION"C$C4L) 

3470 FOR S=1 TO 10:PRINT "----";:NEXT S 

3480 PRINT CSCI)" (1) "C6S"l<>X. „JUC7E"-UCKC5)" CURSORBEWEGUNGEN" 
3490 PRINT C$C1)" (2) "C6S"Ll<DEL>JNC7E"-"C$C5)" MODUSWECHSEL" 

3500 PRINT C$C1Y" (3) "C6S"CCTRLI"C7E"-"CEC5)" ZEICHENSATZWECHSE L" 
3510 PRINT CSCIY" (4) MC6S"CFI-FEIUC7E"-UCHCS)" PLOT IN FARBEN 0-15" 
3520 PRINT C$C1)" (5)  "C6S"CF) "C7S"-NCSC5)" FARBEN 0-15 F. Fi /3 
DEF." 

3530 PRINT C$C1)" (6) "C6$"(B) "C7E"-NCKC5)" BEFEHLSSATZ" 

3540 PRINT C$C1)" (7) "C6$"(D) "C7S"-"C$C5)" ZEICHEN DEFINIERE N" 
3550 PRINT C$C1)" (8) "Cö$"CH) "C7E"-NCHC5)" ZEICHEN HOLEN" 

3560 PRINT C$C1)" (9) "C6S"(1) "C7E"-"C$HC5)" ZEICHEN INVERTIER EN" 
3570 PRINT C$C1)"C10) "C6$"lV) "C7E"-UC$C5)" ZEICHEN VERSCHIEB EN" 
3580 PRINT CECI)"C11) "C6E"CL) "C7E"-"CHC5)" ZEICHEN LOESCHEN" 
3590 PRINT CSCIY"C12) "CHE" CCTRLGI"C7E"-"C$C5)" GET-ZEICHENS. LAD EN" 
3600 PRINT C$C1)"(13) "CES"CCTRLSI"C7E"-UCHC5S)" SAVE-ZEICHENS. SP 
EICHERN" 

3610 PRINTCECIY"C14) "C6$"CC) "C7E"-NC$C5)" DIREKTORY/CATALOG" 
3620 PRINT C$CI)"C15) "CES"CCTRLXINC7EN-UCHC5)" BEENDEN! 

3630 GOSUB 9100:G0T0 540 

8000 REM 

8100 REM UNTERPROGRAMME : 

8200 REM Hr 

8300 REM 

8400 REM POSITIONIERUNG: 

8500 REM Kirn 

8999 A=0:B=16:REM MELDE FELD 

9000 PRINT C1$;:FOR S=2 TO B:PRINT:NEXT S:PRINT TAB(A);:RETURN 

9050 REM 

9060 REM TASTENEINGABE: 

9070 REM Hr 

9100 WAIT 198,255:GET T$:RETURN 

9150 REM 

9160 REM MELDEFELD LOESCHEN: 

9170 REM rk 

9200 A=0:B=16:G0SUB 9000:FOR S=1 TO 5:G0SUB 9210:PRINT:NEXT S:RETURN 
9210 FOR T=1 TO 9:PRINT " ";2NEXT T:RETURN 

9250 REM 
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9260 REM FEHLERBLINKEN: 

9270 REM Hrn 

9300 T$="UNZULAESSIGE" 

9310 PRINT C$C1):FOR S=1 TO 9:PRINT T$:GOSUB 9330:PRINT CHR$(145); 

9320 GOSUB 9210:PRINT CHR$SCI45):G0OSUB 9330:NEXT S:GOSUB 9200: F=1:RETURN 
9330 FOR T=1 TO 75:NEXT T:RETURN:REM WARTESCHLEIFE 


9890 REM 

9900 REM Krk 

9910 REM ** “r 

9920 REM ** MASCHINENROUTINEN ** 

9930 REM ** er 

99LO REM Krk 

9950 REM 

9960 REM DATAS WERDEN NACH DEM STARTEN GELOESCHT !1!1! 
9970 REM 

10000 FOR I = 1 TO 16 : READ X : NEXT I : REM VORDERE DATAS UEBERSPRINGE 
N (FARBEN) 


10005 FOR I = 18432 TO 18836 

10010 READ X : POKE 1,X : S=S+X : NEXT 

10020 DATA 120,169, 51,133, 1,169, 48, 32, 26, 72,169,192 
10030 DATA 32, 26, 72,169, 55,133, 1,169, 28,141, 24,208 
10040 DATA 88, 96,133, 5,169,208,160, 0,132, 2,132, 4 
10050 DATA 133, 3,162, 16,177, 2,145, 4,136,208,249,230 
10060 DATA 5,230, 3,202,208,242, 96,173,192, 2,162,193 
10070 DATA 160, 2, 32,249,253,169, 2,166,186,160, 0, 32 
10080 DATA 0,254,169, 0,162, 0,160,192, 76,213,255 ,173 
10090 DATA 192, 2,162,193,160, 2, 32,249,253,169, 2,166 
10100 DATA 186,160, 0, 32, 0,254,169, 20,141, 24,208,169 
10110 DATA 48,133, 5,169,192, 32, 30, 72,169, 0,133, 2 
10120 DATA 169, 48,133, 3,169, 2,162,255,160, 63, 32,216 
10130 DATA 255,120,169, 48,162, 51,134, 1, 32, 26, 72,169 
10140 DATA 55,133, 1,169, 28,141, 24,208, 88, 96,160, 0 
10150 DATA 169, 32, 32,210,255, 32,210,255,152, 9, 48, 32 
10160 DATA 210,255,162, 0, 32,207, 72,169, 29, 32,210,255 
10170 DATA 232,224, 8,208,243,169,165, 32,210,255,169, 13 
10180 DATA 32,210,255,200,192, 8,208,212, 96,174,254, 2 
10190 DATA 172,253, 2,152, 72,138, 72,169, 0, 56,106,202 
10200 DATA 16,252, 57,248, 50,208, 3,160, 0, 44,160, 6 
10210 DATA 162, 6,185,245, 72, 32,210,255,200,202,208,246 
10220 DATA 104,170,104,168, 96,146, 31,111, 31,146,157, 18 
10230 DATA 28, 32, 31,146,157,173,252, 2,162, 0,201, 20 
10240 DATA 240, 35,201,148,240, 31,232,201, 30,240, 26,201 
10250 DATA 94,208, 5,172,251, 2,240, 17,232,172,251, 2 
10260 DATA 208, 11,160, 28,232,221, 47, 73,240, 3,136,208 
10270 DATA 247,232,142,252, 2, 96, 87, 29, 81,157, 65, 17 
10280 DATA 50,145,133,137,134,138,135,139,136,140, 76, 68 
10290 DATA 72, 73, 19, 7, 24, 66, 67, 70, 86,169, 36,133 
10300 DATA 2,169, 1,162, 2,160, 0, 32,249,253,169, 2 
10310 DATA 166,186,160, 0, 32, 0,254,169, 0,162, 0,160 
10320 DATA 64,134, 95,132, 96, 32,213,255,165, 95,164, 96 
10330 DATA 32, 55,165,173, 0, 3, 72,173, 1, 3, 72,169 
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10340 DATA 61,141, 0, 3,169,227,141, 1, 3, 32,195 ,166 
10350 DATA 104,141, 1, 3,104,141, 0, 3, 9% 

10360 IF S <> 46617 THEN PRINT "FEHLER IN DATAS IH" 2 END 
10370 PRINT "OK" :RETURN 


450 


4800- 
4801- 
A4803- 
4805- 
4807- 
ABOA- 
ABOC- 
480F- 
A4811- 
4813- 
4815- 
4818- 
4819- 


AB1A- 
A4B1C- 
AB1E- 
4820- 
4822- 
4824- 
4826- 
4828- 
ABZA- 
482C- 
432D- 
AB2F- 
ABS1- 
4823- 
A4B24- 
4836- 


78 
A? 
85 
A? 
20 
A? 
20 
AI 
85 
A? 
8D 
58 
68 


85 
Aa? 
AB 
84 
84 
85 
a2 
Bi 
a 
88 
Da 


Eö 
cA 


60 


33 
oi 
3® 
1A 
co 
1A 
37 
ei 
IC 
18 


05 
D® 
00 
02 
04 
03 
19 
02 
04 


F9 
05 
02 


48 


48 


D® 


ov10 
0020 
0030 
0040 
0850 
0060 
0070 
0080 
0090 
0100 
0110 
0128 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0328 
0330 
0348 
0350 
0360 
0370 
0380 
03908 
0400 
0410 
0420 
04:08 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
05530 
0540 
0550 
0560 
0570 
0580 
05970 
0600 
08108 
0620 


CHROUT 
FNPAR 
FPAR 
SAVE 
LOAD 
TESTCH 
LAENGE 
MODUS 
TASTE 
YKOORD 
XHOORD 


INIT 


MOVE 


MO 


Mi 
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#MASCHINENROUTINEN: 
EEE 


.. 


.0S 
.BA 4800 ; STARTADRESSE 
.MC 0800 


5 


; SPRUNGADRESSEN UND REGISTER: 
NUN NR 


.DE $FFD2 ; ZEICHENAUSGABE 

„DE $FDF? ; FILENAMENPARAMETER SETZEN 
.DE $FEOO sFILEPARAMETER SETZEN 

‚DE $FFD8 :SPEICHERN AUF DISK/KASSETTE 
„DE $FFDS ;LADEN VON DISK/KASSETTE 
.DE $#32F8 ; TESTZEICHEN (ANGEZEIGTES) 
.DE $+92C0 ; FILENAMENLAENGE 

.DE s@2FB MODUS 

.DE sO2FC ; BEFEHLSTASTENDRUCK 

.DE $+@2FD : FELD-Y-KOORDINATE 

.DE $@2FE :FELD-X-KOORDINATE 


;ZEICHENSATZ COPIEREN: 
ZART IE 


SEI :KEIN INTERRUPT 


LDA #333 

STA *$01 ; ZEICHENSATZ LESBAR MACHEN 
LDA #330 VON $DBBB NACH $3000 
JSR MOVE :COPIEREN 

LDA #$CQ8 VON $DRBOB NACH *COB0 
JSR MOVE ;COPIEREN 

LDA #$37 

STA *$+01 ; I/0 AUSWAEHLEN 

LDA #$1C 

STA $DO18 ; ZEICHENSATZADRESSE NACH 3000 
CLI ; INTERRUPT ERMOEGLICHEN 
RTS 

5 

;COPIEREN: 

SERURKRRRR 

STA *$05 ; ZIELADRESSE HIGHBYTE 
LDA #$D® :QUELLADRESSE HIGHBYTE 
LDY #$00 

STY *$02 <QUELLADRESSE LOWBYTE 
STY *x+94 ; ZIELADRESSE LOWBYTE 
STA *$93 

LDX #$1®0 

LDA (302) ,Y LADEN 

STA (394) ,Y SPEICHERN 

DEY 

BNE Mi 

INC *$95 

INC *$83 

DEX 

BNE Mi ;NAECHSTE SEITE 

RTS 


s 


: ZEICHENSATZ LADEN: 
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4837- 
ABSA- 
ABSC- 
ABSE- 
4841 
4843- 
4845- 
4847- 
484A- 
484C- 
AB4E- 
4850- 


A4853- 
4856- 
4858- 
ABSA- 
485D- 
ABSF- 
A4B61- 
AB6S- 
ABb6b- 
4868- 
ABAB- 
4B6D- 
ABöF- 
4871- 
4874- 
4876- 
4878- 
AB7A- 
A87C- 
ABTE- 
4880- 
4882- 
4885- 
ABB&- 
4888- 
ABBA- 
488C- 
ABBF- 
AB91- 
4893- 
4895- 
4898- 
4899- 


ABIA- 
ABIC- 
ABIE- 
ABAl- 
ABAA- 
ABAS- 
A4BA7- 
ABAA- 
ABAC- 
A4BAF- 
ABB1l- 


AD 
a2 
AB 
20 
A? 
Ad 
ao 
20 
AI 
a2 
ao 
ac 


AD 
a2 
AB 
20 
A? 
Ad 
ao 
20 
AI 
8D 
AI 
85 
A? 
20 
A? 
85 
AI 
85 
AI 
a2 
[al] 
20 


AI 
a2 
86 
20 
AI 
85 
AI 
8D 
58 
68 


[a).] 
A97 
20 
20 
98 
07 


a2 
20 
AI 
20 


co 
ci 
02 
FI 
02 
BA 
00 
00 
00 
00 
co 
DS 


co 
cı 
02 
F9 
02 
BA 
oo 
oo 
14 
18 
30 
os 
co 
1E 
oo 
02 
3@ 
03 
02 
FF 
SF 
D8 


30 
33 
oi 
1A 
37 
oi 
ıiC 
18 


02 


FD 


FE 


FF 


02 


FD 


FE 


Do 


48 


FF 


48 


DO 


FF 
FF 


FF 


48 


FF 


0630 
0640 
0650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0850 
0840 
0850 
0840 
0870 
0880 
0890 
09700 
09710 
09720 
09530 
0740 
0950 
0968 
0970 
0780 
097970 
1000 
1010 
19020 
10350 
1040 
19850 
1068 
1070 
1080 
1090 
11980 
1118 
1120 
1138 
1140 
1150 
1160 
1170 
1188 
1190 
1208 
1218 
1220 
1230 
1240 
1250 
1268 
1270 
1280 


LADEN 


SPEICH 


NETZ 
NO 


Ni 
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EREUREURERRRKRRR 
LDA LAENGE ; NAMENLAENGE 
LDX #$C1 ; FILENAMENADRESSE LOW- 
LDY #802 ;HIGHBYTE 
JSR FNPAR 
LDA #802 ;LOGISCHE FILENUMMER 
LDX #$BA ; GERAETEADESSE 
LDY #$00 ; SECUNDAERADRESSE 
JSR FPAR 
LDA #$00 :LOAD/VERIFY-FLAG 
LDX #$+900 :STARTADRESSE (LOWBYTE) 
LDY #$C0 ;STARTADRESSE (HIGHBYTE) 
JMP LOAD 
; ZEICHENSATZ SPEICHERN: 
EREURERUHRRRRRRR 
LDA LAENGE ;F ILENAMENLAENGE 
LDX #$C1 ;FILENAMENADRESSE (LOW 
LDY #302 ;FILENAMENADRESSE (HIGH) 
JSR FNFAR 
LDA #802 :LOGISCHE FILENUMMER 
LDX x#$BA ; GERAETEADRESSE 
LDY #800 ; SECUNDAERADRESSE 
JSR FPAR 
LDA #$14 
STA #DQ18 ORIGINALE ZEICHENSATZLAGE 
LDA #830 :ZIELADRESSE (HIGHBYTE) 
STA *$05 
LDA #$sC® :QUELLADRESSE (HIGHBYTE) 
JSR MO VON $COOB NACH #3000 
LDA #$00 
STA #+92 :STARTADRESSE (LOWBYTE) 
LDA #830 
STA *#$903 ; STARTADRESSE (HIGHBYTE) 
LDA #$02 ;NULLSEITENADRESSE DER STARTADRESS 
LDX #$FF ;ENDADRESSE (LOWBYTE) 
LDY #$3F ;ENDADRESSE (HIGHBYTE) 
JSR SAVE ;SPEICHERE ZS AB $#35000 
SEI ; INTERRUPT BLOCKIEREN 
LDA #870 ;ZIELADRESSE (HIGHBYTE) 
LDX #$33 
STX *s01 ; ZEICHENSATZ LESBAR MACHEN 
JSR MOVE VON $DOBB NACH #3000 
LDA #$37 
STA +01 ; 1/0 AUSWAEHLEN 
LDA #$1C 
STA $DO18 ; ZEICHENSATZADRESSE NACH #3008 
CLI ; INTERRUPT ERMOEGLICHEN 
RTS ; ZURUECK NACH BASIC 
:ARBEITSFELD HERSTELLEN: 
CE 
LDY #$00 : ZEILENZAEHLER = 8 
LDA #$20 Fe 
JSR CHROUT 
JSR CHROUT ;2 LEERZEICHEN 
TYA 
ORA #+30 sZEILENZAEHLER IN ZIFFER WANDELN 
JSR CHROUT ;AUSGEBEN 
LDX #$00 
JSR PUNKT sEINEN PUNKT ZEICHNEN 
LDA #$1D ;CURSOR RECHTS 


JSR CHROUT 
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A8B4- 
48B5- 
A8B7- 
48B9- 
ABBB- 
ABBE- 
ABCH- 
ABC3- 
48C4- 
ABCh- 
A48C8- 


48C9- 
ABCC- 
ABCcF- 
48DO- 
48D1- 
48D2- 
48D3- 
48D5S- 
48D6- 
48D7- 
48D8- 
AB8DA- 
48DD- 
ABDF- 
4B8E1- 
48E2- 
ABEA- 
ABE&- 
48E9- 
4BEC- 
A4BED- 
ABEE- 
ABFO- 
ABFi1- 
A8F2- 
48F3- 
ABFA— 


ABFS- 
ABFB- 
ABFB- 
ABFE- 


Aa9m1- 
4904- 
A9Db- 
4908- 
AIBA- 
A9OC- 
AIBE- 
AI9BOF- 
A911- 
4913- 
4915- 
A4917- 


E8 
ED 
DB 
a9 
20 
a7 
20 
c8 
co 
DO 
68 


AE 
ac 
78 
48 
8A 
48 
a9 
38 
6A 
cA 
10 
39 
DO 
au 
2C 
aa 
a2 
BI 
20 
c8 
cA 
DO 
68 
aA 
68 
a8 
60 


92 
ir 
12 
ıF 


AD 


c97 
FO 
c97 
FO 
EB 
c7 
FO 
c7 
Da 
ac 


FE 


ou 


FC 


F8 


03 


06 
a6 
FS 
D2 


Fö& 


1F 
92 
IC 
92 


FC 


14 
23 
94 
ir 


ıiE 
1A 
SE 
05 
FB 


FF 


FF 


02 
02 


A 
N 


48 
FF 


ör 
9D 
20 
9D 


02 


02 


1290 
1308 
1318 
1320 
13358 
1340 
1350 
1360 
1370 
1388 
1398 
1400 
1410 
1420 
1430 
1440 
14508 
1460 
1478 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1568 
1578 
1580 
1590 
1600 
1618 
16208 
1630 
1648 
1658 
1660 
1678 
16808 
16970 
1700 
1710 
1720 
1730 
1748 
1750 


1760 


1770 
1788 
1798 
1800 
1810 
1828 
1830 
1840 
1850 
1868 
1870 
1880 
1890 
1900 
1910 
19208 


PUNKT2 


PUNKT 


FB 


Pi 


P2 


PKTTAB 


BEFIDE 


INX ;NAECHSTER PUNKT 
CPX #308 sACHT PUNKTE PRO ZEILE 
BNE Ni 

LDA #$A5 :STRICH (CHR$ (165) ) 
JSR CHROUT 

LDA #$0D ;CARRIGE RETURN 
JSR CHROUT 

INY :NAECHSTE ZEILE 
CPY #$08 :8 ZEILEN 

BNE N® 

RTS 


3 
sEINE KOORDINATE ZEICHNEN: 
RITTER 


LDX XKOORD :ANSTEUERUNG DURCH BASIC 


LDY YKOORD 3X/\Y-KOORDINATE 

TYA 

PHA 

TXA 

PHA :KOORDINATEN RETTEN 

LDA #$00 

SEC sEIN BIT SETZEN 

ROR A ;RICHTIGES BIT HERAUSSUCHEN 
DEX 

BPL PB 

AND TESTCH,.Y :ANDERE BITS DES TESTZEICHENS LOES 
BNE Fi ;BIT (=PUNKT) GESETZT? 

LDY #+80 :NEIN 

„BY $2C ;BIT-BEFEHL 

LDY #306 BIT GESETZT! 

LDX #$06 


LDA PKTTAB,Y 
JSR CHROUT 
INY 

DEX 

BNE P2 ;NAECHSTES ZEICHEN 

PLA 

TAX 

PLA 

TAY :KOORDINATEN WIEDERHOLEN 
RTS 


; ZEICHEN AUS PUNKTDARSTELLUNGSTABE 


;ZEICHEN FUER EINE KOORDINATE: 
RBB III IH IHRE 


.BY 146 031 111 Q31 144 157 


.BY B18 028 032 031 146 157 


TASTE ALS BEFEHL IDENTIFIZIEREN: 
EEE TEEN 


LDA TASTE ; TASTENCODE 

LDX #500 ; BEFEHLSCODE 

CHF #$14 ;DEL (=MODUSWECHSEL) ? 
BEQ B2 5JA 

CMP #394 ; INSERT (WIE DEL)? 
BEQ B2 JA 

INX : BEFEHLSCODE + 1 

CMP #$1E ;CTRL. "PFEIL HOCH" 7 
BEQ B2 JA 

CMP #$sSE ;"PFEIL HOCH" ? 

BNE B® ;NEIN 


LDY MODUS ;NUR IN MODUS 8 
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AgI1A- 
AI1C- 
491D- 
4920- 
4922- 
4924—- 
4925- 
4928- 
AI2A- 
492E- 
492D- 
AI2E- 
A931- 


4932- 
4935- 


4928- 
A93B- 


493E- 
A941- 


4944- 
4947- 


A94A- 


494D- 
A94F- 
4951- 
4953- 
4955- 
4957- 
495A- 
495C- 
495E- 
4960- 
4963- 
4965- 
4967- 
4969- 
496B- 
496D- 
4970- 
4972- 
4974- 
4977- 
497A- 
497B- 
497E- 
A97F- 
4981- 
4984- 
4986- 
4989- 
498C- 
498D- 
4998- 


FO 
EB 
ACc 
DO 
aa 
EB 
DD 
FO 
88 
Do 
E8 
8E 
68 


57 
9D 


32 
87 


87 
8Cc 


48 
07 


43 


a9 
85 
An? 
a2 
AO 
20 
A9 
A& 
Aa 
20 
a9 
a2 
ao 
86 
84 
20 
AS 
a4 
20 
AD 
48 
AD 
48 
A9 
8D 
An? 
8D 
20 
68 
8D 
68 


11 


FB 
oB 
1C 


2F 
03 


F7 


FC 


1D 
41 


a 
86 


8B 
ac 


49 
18 


46 


24 
02 
oi 
02 
00 
FF 
02 
BA 
00 
00 
00 
00 
40 
SF 
68 
DS 
SF 
68 
37 
00 


oi 


3D 
00 
ES 
oi 

c3 


oi 


02 


49 


02 


51 
11 


85 
8A 


88 
44 


13 
42 


56 


FD 


FE 


FF 


AS 


03 


03 


03 


1930 
1940 
1950 
1968 
1970 
1988 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
20970 
2100 
2110 


2120 
2130 


2140 
2150 


2160 
2170 


2180 
21908 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2318 
2320 
2230 
2340 
2350 
2368 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 


Bi 


B2 


BEFTAB 


CATALG 


453 
BEQ B2 
INX :BEFEHLSCODE + 1 
LDY MODUS :MODUS 1? 
BNE B2 ;JA, DANN KEINE WEITEREN BEFEHLE 
LDY #$1C 27-1 BEFEHLE (ZAEHLER) 
INX : BEFEHLSCODE ERHDEHEN 
CMP BEFTAB-3,X ;TASTE MIT TABELLE VERGLEICHEN 
BEQ B2 ; GEFUNDEN 
DEY ;NAECHSTER BEFEHL 
BNE Bi :NOCH NICHT FERTIG 
INX 
STX TASTE :BEFEHLSCODE ALS RUECKMELDUNG 
RTS ; ZURUECK ZU BASIC 
: BEFEHLSTASTENTABELLE: 
SEHR HR 
: W/CRSR-RE/B/CRSR-LI/A/CRSR-UN 
.BY 0887 0829 @81 157 05 ®17 
E 2/CRSR-OB/ F1/ F2/ F3/ F4 
.BY 058 145 133 137 134 138 
E FS/ F6/ FT/ F8/ L/D 
.BY 135 139 136 140 076 068 
3 H / I/<HOME>/CTRL.G/CTRL.X/ B 
.BY 072 073 ®19 007 024 @66 
; C/FYIV 
.BY 067 070 086 
; DISKCATALOG: 
SHRRRRERRRRRR 
LDA #324 s"$" ALS FILENAME 
STA *$02 
LDA #$01 
LDX #$02 
LDY #500 ;S.0. 
JSR FNPAR 
LDA #302 
LDX +$BA : GERAETEADRESSE 
LDY #300 
JSR FPAR 
LDA #308 : LOAD/VERIFY-FLAG 
LDX #00 
LDY #$40 : STARTADRESSE 
STX #$5F . 
STY *$60 
JSR LOAD :LADE CATALOG WIE BASICPROGRAMM 
LDA #$5F : SIMULIERE: 
LDY +$68 ; BASIC-PROGRAMMSTARTADRESSE 
JSR $A537 :BASICZEILEN BINDEN 
LDA $03500 
PHA 
LDA $0301 :ORIGINALEN WARMSTARTVEKTOR 
PHA ; RETTEN 
LDA #$3D 
STA $0300 
LDA #$E3 
STA s0301 UND AUF RTS SETZEN 
JSR $A6CCS :LISTBEFEHL AUSFUEHREN 
PLA 
STA +0301 
PLA 


454 


4991- 8D 00 983 2550 
4994- 68 2560 

2570 
END OF ASSEMBLY! 


--- LABEL FILE: - 


BO =491C 

B2 =492D 
BEFTAB =4932 
CHROUT =FFD2 
FPAR =FEO® 
LADEN =4837 
LOAD =FFDS 
Mi =4828 
MOVE =481A 
Ni =48AC 

PO =48D6 

F2 =48E6 
PUNKT =48CF 
SAVE =FFDB 
TASTE =@2FC 
XKOORD =B2FE 


/10000,4995,0995 


STA s0300 
RTS 
«EN 


Bil =4924 


BEFIDE 
CATALG 
FNPAR 


=4901 
=494D 


=FDFF 


INIT =4800 


LAENGE 
MO 
MODUS 
NO 


=92C0 


=481E 
=02FB 
=489C 


NETZ =489A 
Pi =48E2 


PKTTAB 
PUNKT2 
SPEICH 
TESTCH 
YKOORD 


=48F5 
=4869 
=4853 
=32F8 
=082FD 
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;ALTEN VEKTOR WIEDERHOLEN 
; ZURUECK ZU BASIC 
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Der Zeichenformer funktioniert analog zu dem Spriteeditor von Para- 
graph 5.3. Auch hier existieren ein Sekundäroperations-, ein Farbzu- 
teilungs-, ein Editor- (hier 8x8) und ein Originalfeld. Hinzu kommt 
noch die sogenannte Modus- und Satzangabe. Ihr Programm kennt 
zwei Modi: 


- 0: Eingabemodus: 
In Modus 0 können Sie alle Befehle benutzen 
und Ihr eigenes Zeichen herstellen. 


- 1: Abrufmodus: 
Modus 1 ermöglicht Ihnen einen bequemen Abruf 
bereits hergestellter Zeichen per Tastendruck 
aus dem Zeichenbuffer (Nach dem Starten Ihres 
Programmes enthält der zuständige Zeichenbuffer 
den kompletten originalen Zeichensatz). 


Zur Satzangabe sind die 4 Zeichensätze (normal-Groß/Graphik // 
invers-Groß/Graphik // normal-Klein/Groß // invers-Klein/Groß) 
mit Ihren jeweils 128 Zeichen von 1-4 durchnumeriert. Der aktuelle 
Satz, der gerade behandelt wird, steht dann in der Satzangabe. 


Grundsätzlich können alle Befehle des Spriteeditor (bis auf G) auch 


im Zeichenformer angewandt werden und sind dort nachzulesen. 
Zusätzlich stehen Ihnen hier noch folgende Funktionen zur Verfügung: 


- <del> - 


Moduswechsel (Modus 0-1) 


- <ctrl>" - 


Wollen Sie die Nummer des Zeichensatzes wechseln, so drücken Sie 
<ctrl>* und die Nr. (1-4) des Satzes ein (in Modus O genügt auch *). 
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Mit D können Sie Ihr Zeichen einem ASCII-Zeichen, bzw. einer Taste 
zuordnen und damit in Ihren Zeichensatz übernehmen. 

Mit H holen Sie sich ein bereits existierendes Zeichen aus dem Zei- 
chenbuffer in ihr Feld (analog zu Modus |). 


Bei beiden wird der aktuelle Zeichensatz (s.o.)(1-4) angesprochen. Nun 
entscheiden Sie, ob Sie das Zeichen als ASCII-Wert (f5/f6) oder 
Tastendruck (fl/f3) angeben wollen. 

Jetzt erfolgt die Eingabe der Taste oder des ASCII-Wertes mit 
<return>! 


- <ctrl>S / <ctrl>G - 


Abspeichern oder Laden eines ganzen Zeichensatzes. Näheres siehe 
Spriteeditor. 


Haben Sie sich mit diesem komfortablen Zeicheneditor Ihren eigenen, 
persönlichen Zeichensatz hergestellt und auf Diskette gespeichert, 
dann können Sie Ihn nach dem Beenden des Editorprogramms ganz 
einfach mit LOAD "name",8,1 nach $3000 (12288) einladen (um ihn 
woanders hin zu laden, brauchen Sie einen Monitor oder ein Maschi- 
nensprache-Ladeprogramm). Als Nächstes müssen Sie mit dem folgen- 
den einfachen Befehl den originalen Zeichensatzvektor verschieben, so 
daß der VIC sich die benötigten Definitionen von Stund an aus diesem 
Bereich holt: 


POKE 53248+24, PEEK.(53248+24) AND 241 OR 12 


In diesem Befehl werden die drei Bits 1-3 des 24. VIC-Registers, die 
die Lage bzw. die Adreßbits 11-13 des Zeichengenerators bestimmen, 
zunächst gelöscht (241 = %1111 0001) und dann die obersten beiden 
der drei Bits gesetzt (12 = %0000 1100). Schlagartig erscheint Ihre 
neue Zeichenkreation auf dem Bildschirm. So einfach ist das. 
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5.5 Eingabe/Ausgabe von Graphik und Zeichensatz 


Mitunter dauert es recht lange, bis wir mühselig ein Graphikbild er- 
sonnen und auf den Bildschirm gebracht haben. Sollten wir dies 
jedesmal machen, wenn wir uns das Bild betrachten wollen, so ginge 
uns recht bald die Lust verloren. Doch es gibt einige Möglichkeiten, 
um diesen Prozess abzukürzen. Zum einen können wir unser Bild auf 
Diskette oder Kassette abspeichern und bei Bedarf wieder in den 
Speicher holen. Zum anderen, was das Anschauen später noch weiter 
verkürzt, sind wir in der Lage - sofern Sie einen Drucker besitzen, 
der gleichfalls Graphik ausgeben kann (z.B. durch Einzelnadelan- 
steuerung) - sogenannte Hardcopies anzufertigen, also Bilder auf dem 
Blatt Papier. Die notwendigen Techniken für diese Unterfangen 
werden Ihnen hier vorgestellt. Es ist klar, daß wir keine Hardcopy- 
routinen für alle möglichen Drucker angeben können, da leider fast 
jeder Drucker seine eigene Art und Weise der Graphikausgabe besitzt. 
Deshalb sollten Sie einmal mit dem hier Gesagten versuchen, sich 
selbst eine eigene Routine für Ihren Drucker zu schreiben. Notfalls 
schauen Sie sich einmal in den entsprechenden Fachzeitschriften um, 
die ab und zu einmal verschiedene Artikel zu diesem Thema bringen. 
Die Supergraphik bietet darüberhinaus bereits 3 verschiedene Hard- 
copy-Routinen für die verschiedendsten Drucker. 


5.5.1 Abspeichern/Laden 


Das Problem bei der Ein- und Ausgabe von Graphiken oder eines 
Zeichensatzes auf Diskette oder Kassette ist das Abspeichern, da hier- 
bei dem Computer Anfangs- und Endadresse des zu speichernden 
Bereiches angegeben werden muß und kein entsprechender Befehl 
hierzu existiert. Bei normalen BASIC-Programmen sind dem Rechner 
diese Dinge bekannt, Maschinenprogramme oder sonstige Daten je- 
doch müssen auf etwas kompliziertere Art und Weise auf das Spei- 
chermedium übertragen werden. 


Grundsätzlich kann dies durch die folgende Routine geschehen. Sie ist 
wieder so gehalten, daß Sie sich reibungslos in Ihre gesammelten Gra- 
phikroutinen einfügt: 
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10 REM Hr 
20 REM ** “r 
30 REM ** GRAPHIKABSPEICHERUNG ** 


40 REM ** ** 
50 REM RR 


60 REM 

70 FI$="GRAPHIK" : GA = 8 : REM FILENAME UND GERAETEADRESSE 

80 BE = 8192 : EN = 16192 : REM START- UND ENDADRESSE (HIER GRAPHI K BEI $2000) 
90 GOSUB 11200 : END : REM SPEICHERN 

11200 REM 


11210 REM Wr 


11220 REM ** ABSPEICHERN ** 


11230 REM Hrn 
11240 REM 


11250 SYS 57812 FI$,GA : REM DISKPARAMETERUEBERNAME (AN $E1D4) 
11260 X = EN/256 


11270 POKE 175, INT(X) : REM HIGH-BYTE ENDADRESSE ($AF) 

11280 POKE 174, (X-INTCX))*256 : REM LOW-BYTE ENDADRESSE ($AE) 
11290 X = BE/256 

11300 POKE 194, INT(X) : REM HIGH-BYTE STARTADRESSE ($C2) 

11310 POKE 193, (X-INTCX))*256 : REM LOW-BYTE STARTADRESSE ($C1) 
11320 SYS 62954 : REM SAVE-ROUTINE ($F5EA) 

11330 RETURN 


In diesem Programm werden in den Zeilen 70 und 80 der eigentlichen 
Speicherroutine die notwendigen Informationen zur Erzeugung eines 
Files übergeben. Zeile 11250 ruft dann einen Teil des normalen 
BASIC SAVE-Befehls auf, der Filenamen und Geräteadresse (für 
Disk: SA=8; für Kassette: SA=1) übernimmt. Ihnen mag dieser eine 
Befehl etwas ungewohnt erscheinen, diese Form ist aber durchaus 
korrekt. Nachdem nämlich mit dem SYS 57812 die besagte Routine 
aufgerufen wurde, werden, wie beim SAVE-Befehl, die beiden Para- 
meter verlangt. Aus diesem Grunde gibt es keinen SYNTAX ERROR. 


Die folgenden Zeilen übergeben der in Zeile 11320 aufgerufenen ei- 
gentlichen SAVE-Routine in bestimmten Speicherstellen die Start- 
und die Endadresse des zu speichernden Bereiches. 


Wir können dieses Programm für alle fraglichen Funktionen verwen- 
den, die wir im Auge hatten. Sowohl Zeichensätze, wie Sprites, 
Graphik-, Text- und Farbspeicher können so auf Diskette oder 
Kassette gesichert werden. Ausschlaggebend ist dabei lediglich die 
Wahl der verschiedenen Parameter. Oben wurde das Beispiel zur 
Speicherung von Graphik gegeben, die in dem Bereich von $2000- 
$3F3F (8192-16192) liegt. Für unsere Zeichensätze, die wir in $3000- 


Supergraphik intern 459 


$3FFF (12288-16383) gespeichert hatten, müßten Sie die Zeile 80 wie 
folgt ändern: 


80 BE = 12288 : EN = 16384 


Wie Sie sehen, müssen Sie zur Endadresse stets 1 hinzuzählen. 
Möchten Sie vielleicht einmal Ihre gesamte Textseite auf Diskette 
bringen, die bekanntlich von $0400 bis $07E7 (1024-2023) geht, so 
schreiben Sie: 


80 BE = 1024 : EN = 2024 


Gleiches tippen Sie ein, wenn Sie den Farbteil Ihrer Graphik (sofern 
er dort liegt) auf Band oder Diskette bringen wollen. Vielleicht aber 
haben Sie auch eine Spritedefinition in Block Il und wollen diese 
abspeichern, z.B. um sie dem Spriteeditor aus Kapitel 5.3 zugänglich 
zu machen (in diesem Fall muß die Definition in Block 11 liegen) 
oder einfach, um Sie später wieder direkt hinein zu laden. Da Block 
ll bei $02C0-$02FD (704-766) liegt, muß die entsprechende Passage 
lauten: 


80 BE = 704 : EN = 767 


Nebenbei können Sie damit auch jedes Maschinenprogramm speichern, 
ohne einen Monitor zu Rate ziehen zu müssen. 


Wollen wir die verschiedenen Dinge wieder einladen, so genügt ein 
LOAD "name",8,1 (bei Floppy-Besitzern) oder für Kassettenrecorder: 
LOAD "name",1,1 und schon ist die Sache erledigt. 


5.5.2 Hardcopy 


Die Archillesferse aller kommerziellen Programme ist der Druckerbe- 
trieb. Da es 'zig verschiedene Druckertypen gibt und natürlich jeder 
seine eigenen Ansteuerungen, ASCII-Codierung oder Steuerzeichen 
besitzt (besonders, was die Graphik betrifft), gibt es kaum Pro- 
gramme, die mehr als ein oder höchstens zwei Druckertypen bedienen 
können. Wenn Sie sich z.B. nach einer Graphikbefehlserweiterung oder 
einem anderen (Graphik-) Programm umschauen, so gebe ich Ihnen 
den Tip, unbedingt darauf zu achten, daß dieses Programm auch Ihren 
Drucker bedienen kann, und falls Sie noch keinen Drucker besitzen, 
besonderes Augenmerk auf die Programme zu legen, die möglichst 
viele verschiedene Druckertypen ansteuern können. Denn Sie werden 
sich, auch wenn Sie zur Zeit vielleicht noch keinen Wert darauf legen, 
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garantiert nach einiger Zeit irgendeinen Drucker zulegen. Allein schon 
die Tatsache, daß etwas größere Programme ohne Druckerlisting völlig 
unüberschaubar werden, zwingt einen nach einiger Zeit zum Drucker. 
Falls Sie mit Graphik arbeiten, so ist unbedingt auf die Graphikfähig- 
keit eines solchen Gerätes zu achten (u.a. auch die Sauberkeit des 
Druckes, mit der ein Bild aufs Papier gebracht wird, die besonders bei 
Graphikausdrucken ins Auge fällt). Sie werden es sonst noch einmal 
bereuen! 


Wie oben bereits gesagt, ist es hier unmöglich, alle Druckertypen mit 
den entsprechenden Routinen vorzustellen. Aus diesem Grund werden 
wir uns hier mit dem wohl gängigsten Gerät, dem Seikosha GP 100 
VC beschäftigen, auf dem eine graphische Hardcopy aufgrund des 7- 
Nadelkopfes wohl am kompliziertesten ist. Routinen für andere 
Drucker können Sie sich dabei gut davon ableiten. Angenommen wird 
wieder eine Graphikseite bei $2000-$3F3F (8192-16191). 


11800 REM rhchre lee 


11810 REM ** GRAPHIK- ER 

11820 REM ** HARDCOPY - GP 100 Vc ** 

11830 REM ** we 

11840 REM rk 

11850 REM 

11860 SA = 8192 

11870 OPEN1,4 : REM DRUCKERKANAL OEFFNEN 

11880 Y=35:MK=255:22=28:SG=6:REM Y-KOORD. / MASKE / ZEILENZAHL / S 
PALTENGROESSE 

11890 FOR FLAG=1 TO 2 

11900 FOR ZE=1 TO 2Z : REM ZZ ZEILEN 

11910  PRINT#1,CHRSCBICHRSC2TICHRECISICHRSCOJCHRSCBEO); :REM MITTENZENTRIERT+GRA 
PHIK EIN 

11920 XK=0 

11930 FOR SP=1 TO 40 : YK=Y : REM SPALTENZAEHLER 

11940 FOR X=0 TO SG:GOSUB 12150:ZWCX)=PEEKCAD):YK=YK+1:NEXT X:REM 8*7 PUNKTE 
LADEN 

11950 FOR X=0 TO 7 : REM 8 BYTES ZUM DRUCKER 

11960 MS=2*(7-X):B2=0 

11970 FOR Z=0 TO SG:B1=-2*C(ZWCZ) AND MS)>0):B2=B2 OR (B1”“Z+(Z +B1=0)):NEXT 

z 

11980 B2=(B2 AND MK) OR 128:PRINT#1,CHR$(B2); 

11990 NEXT X : REM NAECHSTES DRUCKERBYTE 

12000 XK=XK+8 

12010 NEXT SP : REM NAECHSTE SPALTE 

12020 PRINT#1 : REM RETURN 

12030 Y=Y+7 : REM Y-KOORD. 

12040 NEXT ZE : REM NAECHSTE ZEILE 

12050 ZZ=1 : REM NUR LETZTE ZEILE 
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12060 MK = 16 : REM MASKE (OBERE 4 BITS ABSCHNEIDEN) 
12070 SG=4 : REM SPALTENGROESSE 

12080 NEXT FLAG : NOCH EINMAL FUER DIE LETZTE ZEILE 
12090 CLOSE 1:END 

12100 REM 


12110 REM Ürhchche lee 


12120 REM ** PUNKTBERECHNUNG ** 
12130 REM ker 


12140 REM 
12150 AD = SA + 320 * INTCYK/8) + (YK AND 7) + 8 * INTCXK/8) : RETURN 


Auch diese Routine können Sie wieder in Ihren Unterprogrammschatz 
aufnehmen. Sie brauchen dann nur noch per GOSUB aufgerufen wer- 
den. Sie können jedoch auch Ihre Graphik bei SA=8192 ($2000) er- 
stellen, dann dieses Programm hier einladen und laufen lassen. Da 
dabei die Graphik nicht zerstört wurde, erscheint eine originalgetreue 
Abbildung des Graphikspeichers auf dem Druckerpapier. Diese Rou- 
tine funktioniert natürlich auch auf allen kompatiblen Druckern, wie 
beispielsweise Epson mit DATA-BECKER-Interface. Doch so eine 
Routine in BASIC dauert sehr lange. Geben Sie also nicht gleich den 
Mut auf, wenn Sie etwas warten müssen. Schließlich gibt es ja noch 
die Supergraphik mit ihren diversen Drucker-Routinen in Assembler. 
Sicher kann dieses Programm, wie auch alle anderen "frisiert" werden 
(wie das zu machen ist, wird im Anhang geschildert), doch hier wurde 
der Übersichtlichkeit wegen geordnet vorgegangen. Wichtig zum 
Verständnis dieser Routine ist die Tatsache, daß stets 7 untereinander 
liegende Punkte in einem Byte an den Drucker übergeben werden 
(jedes gesetzte Bit resultiert in einem gesetzten Punkt auf dem Papier), 
wobei das High-Bit stets gesetzt sein muß (dies erfordert der 
Drucker). Dadurch taucht eine kleine Schwierigkeit am Graphikende 
auf: Es bleiben nämlich 4 Reihen übrig, da 200 (die Zahl der Punkte 
in y-Richtung) nicht durch 7 teilbar ist. Diese werden in einem 
weiteren Durchlauf mit ein paar veränderten Parameter übersandt. In 
dem Hauptteil der Routine (Zeilen 11940-11990) werden zunächst 7 
untereinander liegende Graphikbytes eingelesen (Z. 11940), die dann 
Spalte für Spalte an den Drucker gegeben werden (Z. 11950-11990). 
Die weiteren Einzelheiten zu besprechen, würde den Rahmen 
sprengen. Nur eine Kleinigkeit sollte hier noch erwähnt werden: Die 
Operation Z+Bl=0, wie Sie in Zeile 11970 durchgeführt wird, ergibt - 
l, wenn Z+Bl=0O ist und 0, wenn dies nicht der Fall ist. Aus 4=6 z.B. 
resultiert 0, aus 4=4 jedoch -I1. Probieren Sie es aus. Dieser Trick 
kann eine wertvolle Hilfe in vielen Anwendungen sein, in denen Ent- 
scheidungen gefordert werden, die Sie ungern mit IF oder ON... GOTO 
tätigen (z.B. aus Zeitgründen). In dem Fall hier wird damit die Tat- 
sache umgangen, daß der Commodore 64 aus 00 I herausbekommt, 
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was falsche Resultate bringen würde. In dem Graphik-Aid weiter 
unten und im Supergraphik-Listing wird diese Hardcopy-Routine in 
Assembler angegeben. 


5.6 IRQ-Handhabung 


Aus Abschnitt 4.7 kennen Sie bereits die verschiedenen Interrupt- 
(Unterbrechungs-) Möglichkeiten, die bei graphischen Anwendungen 
interessant sind. Dort wurde Ihnen diese Fähigkeit vorgestellt und alle 
theoretischen Grundlagen geliefert. Jetzt, da wir auch einigen prakti- 
schen Unterbau in Sachen Graphik besitzen, ist es an der Zeit, das 
wohl schwierigste aller Kapitel zu beginnen: Die Interruptprogram- 
mierung. Schon die Tatsache, daß Interrupts nur von Maschinenspra- 
che aus zu bedienen sind, macht das ganze für den Uneingeweihten 
nebulös und undurchsichtig. Aber auch erfahrene Assemblerprogram- 
mierer müssen sich mit den völlig neuen Programmiertechniken ver- 
traut machen. Doch haben Sie keine Angst. Sie können die angegebe- 
nen Beispiele ruhig ausprobieren. Sie werden Ihnen besonders hübsche 
Effekte zeitigen. 


Die Interrupttechnik soll Ihnen anhand des Rasterzeilen-IRQs und des 
Lightpens gezeigt werden. Danach können Sie die erfahrenen Kennt- 
nisse auf Ihre eigenen Programme mit z.B. Sprite-Kollisionen etc. an- 
wenden. Bevor Sie sich jedoch an diesen Abschnitt begeben, sollten 
Sie zunächst Paragraph 4.7 gut durchgelesen haben. 


Erinnern wir uns kurz an die wesentlichen Faktoren, die zur Bedie- 
nung von allgemeinen IRQs des VIC wissensnotwendig sind: 


Interrupts sind kontrollierte Unterbrechungen des Programmablaufs. 
Es gibt 4 verschiedene Ursachen, durch die der Videocontroller 
Interrupts auslösen kann: Rasterzeilen, Lightpen, Sprite-Sprite-, und 
Sprite-Hintergrundzeichen-Kollisionen. Diese sind durch Setzen der 
entsprechenden Bits im Interrupt Mask Register (IMR), also VIC-Re- 
gister 26, auszuwählen. Wird ein Interrupt ausgelöst, so erfolgt die 
Rückmeldung durch Setzen des korrespondierenden Bits in Register 25 
des VIC, das sogenannte Interrupt Request Register (IRR); das 7. Bit 
dieser Speicherstelle wird dabei als Kennzeichen ebenfalls gesetzt. 
Dieses Register ist nach jedem Interrupt durch Rückschreiben seines 
Inhalts zu löschen. Bei jedem IRQ wird eine sogenannte Interruptrou- 
tine aufgerufen, deren Adresse in den Speicherstellen $0314/$0315 
(788/789) steht. Ein IRQ kann in Maschinensprache durch das Setzen 
des Interruptflags unterbunden werden. 
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5.6.1 Rasterzeilen-IRQ 


Auch hier sollten wir uns zunächst an die notwendigen Dinge 
erinnern, die für Rasterzeilen-Interrupts nützlich sind: 


Für diese Art von Unterbrechung sind jeweils die Bits O0 der IRR und 
IMR zuständig. Aus den Registern 18 und 17/Bit 7 erfahren Sie die 
aktuelle Bildschirmzeile, die der VIC gerade aufbaut. Das vom VIC 
verwandte Koordinatensystem unterscheidet sich von dem normalen, 
uns bekannten (s. Kap. 4.7). Werden diese beiden Register beschrie- 
ben, so geben Sie damit an, bei welcher Rasterzeile ein Interrupt 
stattfinden soll. 


Mit diesen Informationen ist es uns jetzt möglich, eine eigene Inter- 
ruptroutine zu erzeugen und damit direkt in das Geschehen ein- 
zugreifen. Dazu sei diese als Assemblerlisting angegeben: 


100: C800 *=  $CB00 

110: C800 FARBEI = S$FB 

120: C800 FARBE2 = $FC 

130: C800 OBEN = $FD 

140: C800 UNTEN = $FE 

150: C800 IRQVECT = 80314 

160: C800 IRQALT = $EA31 

170: C800 RASTER = 80012 

180: C800 IRR = 80019 

190: C800 IMR = $D01A 

200: C800 RAHMEN = $D020 

210: C800 HGRUND = 80021 

220: ; 

230: C800 ;INITIALISIEREN: 

240: SERKRARURTRNURNNUEN 

250: ; 

260: C800 78 INIT SEI ;INTERRUPT VERHINDERN 
270: C801 AY IF LDA #< IRQNEU 

280: C803 80 14 03 STA IROVECT 

290: C806 A9 CB LDA #> IRQNEU 

300: C808 8D 15 03 STA IRQVECT+1 ;IRQ-VEKTOR UMLEGEN 
310: C80B A5 FD LDA OBEN 

320: C80D 8D 12 DO STA RASTER ;1.RASTERZ. FESTLEGEN 
330: C810 AD 11 DO LDA RASTER-1 

340: C813 29 7F AND #S7F 

350: C815 8D 11 DO STA RASTER-1 ;HIGH-BIT LOESCHEN 

360: C818 A9 81 LDA #%10000001 ;MASKE 

370: C81A 8D 1A DO STA IMR ;RASTERZ.-IRQ WAEHLEN 


380: C81D 58 CLI ;IRQ ERMOEGLICHEN 
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390: C81E 60 RTS 

400: 5 

410: CBIF ; INTERRUPTROUTINE: 

420: Pinteieheiieieieieieieie hihi 

430: 5 

440: C81IF AD 19 DO IRQNEU LDA IRR ; INTERRUPTREGISTER 
450: C822 8D 19 DO STA IRR ;LOESCHEN 

460: C825 30 07 BMI IRQRAS ;RASTERZ.-IRQPRINT 
470: ;NORMALER IRQ: 

480: C827 AD OD DC LDA $OCOD ;CIA 1-IRR LOESCHEN 
490: C82A 58 cLi ;INTERR. ERMOEGLICHEN 
500: C82B 4C 31 EA JMP IRQALT ;ZUR ALTEN ROUTINE 
510: C82E AD 12 DO IRQRAS LDA RASTER ;RASTERPOSITION 
520: C831 C5 FE CMP UNTEN ;UNTERER WERTPRINT 
530: C833 BO 10 BCS ZWEITER ;JA=>SPRUNG 

540: C835 A5 FB LDA FARBEI 

550: C837 8D 20 DO STA RAHMEN ;RAHMEN- UND 

560: C83A 8D 21 DO STA HGRUND ;HINTEGRUNDFARBE 
570: C83D A5 FE LDA UNTEN ;UNTEREN WERT IN 
580: C83F 8D 12 DO STA RASTER ;RASTERPOSITION 
590: C842 4C BC FE JMP $FEBC ;ABSCHLIESSEN 

600: C845 A5 FC ZWEITER LDA FARBE2 

610: C847 8D 20 DO STA RAHMEN ;RAHMEN- UND 

620: CB4A 8D 21 DO STA HGRUND ;HINTERGRUNDFARBE 
630: C84D A5 FD LDA OBEN ;OBEREN WERT IN 
640: C84F 8D 12 DO STA RASTER ;RASTERPOSITION 
650: C852 4C BC FE JMP $FEBC ;ABSCHLIESSEN 


Und hier das entsprechende BASIC-Ladeprogramm mit einer kleinen 
hübschen Anwendung: 


1000 FOR I = 51200 TO 51284 

1010 READ X : POKE I,X : S=S+X : NEXT 

1020 DATA 120,169, 31,141, 20, 3,169,200,141, 21, 3,165 

1030 DATA 253,141, 18,208,173, 17,208, 41,127,141, 17,208 

1040 DATA 169,129,141, 26,208, 88, 96,173, 25,208,141, 25 

1050 DATA 208, 48, 7,173, 13,220, 88, 76, 49,234,173, 18 

1060 DATA 208,197,254,176, 16,165,251,141, 32,208,141, 33 

1070 DATA 208,165,254,141, 18,208, 76,188,254, 165,252, 141 

1080 DATA 32,208,141, 33,208,165,253,141, 18,208, 76,188 

1090 DATA 254 

1100 IF S <> 11288 THEN PRINT "FEHLER IN DATAS !!ı 2 END 

1110 PRINT "OK" 

1120 FI = 7 : F2 = 6 : REM FARBEN 1 UND 2 (STREIFEN IN FARBE 1) 
1130 OB = 60 : UN = 150 : REM OBERE UND UNTERE KANTE DES STREIFENS 
1140 POKE 251, F1:POKE 252,F2:POKE 253,0B:POKE 254,UN : REM UEBERGEBEN 
1150 SYS 51200 : REM ROUTINE EINSCHALTEN 

1160 REM 
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1170 FOR X=1 TO 5000 : NEXT X : REM WARTESCHLEIFE 

1180 REM 

1190 REM BEWEGEN: 

1200 REM Kr 

1210 FOR X=40 TO 240 : POKE 253,X : POKE 254, X+10 = NEXT X 
1220 GET A$ : IF A$="" THEN 1190 : REM TASTE? 


Wie Sie sich vielleicht erinnern, wird auch in der Supergraphik reger 
Gebrauch von den verschiedensten Möglichkeiten der Interrupanwen- 
dung gemacht. Die Interrupt-Routinen der Supergraphik beginnen im 
Listing (groß hervorgehoben) beim Label IRQNEU und beinhalten die 
Routinen zum Bewegen der Sprites, zur Graphik-Text-Mischanzeige 
(mittels Rasterinterrupt) und zur Tonsteuerung. Besonders interessant, 
aber ebenso kompliziert ist die Spritebewegung, bei der Gebrauch von 
der HLINE-Routine zum Berechnen von Linien gemacht wird. Da nun 
gleichzeitig diese Routine einmal vom Hauptprogramm und von der 
IRQ-Routine verwendet werden kann, muß die IRQ-Routine vor dem 
Ansprung von HLINE sämtliche dort verwendeten Register retten. 
Vielleicht schauen Sie sich das einmal an. 


5.6.2 Lightpen 


Bitte lesen Sie ruhig weiter, auch wenn Sie keinen Lightpen besitzen, 
es springt auch etwas für Sie ab! 


Was ein Lightpen oder Lichtgriffel ist, wie er funktioniert und in den 
Rechnerablauf integriert wird, wissen Sie bereits aus dem Abschnitt 
4.7.2. Fassen wir hier das wichtigste noch einmal kurz zusammen: 


Der Lightpen ist ein Instrument, mit dem der Computer beliebige Po- 
sitionen des Bildschirms identifizieren kann, auf die der Stift gerade 
zeigt. Die jeweiligen x- und y-Koordinaten dieses Punktes können 
durch Lesen der VIC-Register 19 und 20 festgestellt werden. Das Ko- 
ordinatenraster entspricht dem der Rasterzeilen (s. Kap. 4.7). Auch 
der Lightpen kann einen Interrupt auslösen. In den IMR und IRR sind 
dafür jeweils die 3. Bits zuständig. Sein Eingang am Controlport | 
stimmt mit dem Eingang für den Feuerknopf eines Joysticks überein. 


Doch wie ist ein Lightpen anzuwenden, wie wird er programmiert? 
Die Lightpenabfrage kann auf zwei verschiedene Arten durchgeführt 
werden. Die einfachere ist die durch ein kleines BASIC-Programm, 
das lediglich die beiden Register ausliest, die die Bildschirmkoordina- 
ten enthalten. Ein Beispiel wäre etwa das Zeichnen eines Punktes an 
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die Stelle, auf die der Lightpen gerichtet ist. Diese Funktion über- 
nımmt das folgende kleine Demonstrationsprogramm, das nur zusam- 


men mit den Graphikroutinen aus dem Abschnitt 5.2 funktionstüchtig 
ist! 


100 REM Hrn 
110 REM ** “* 
120 REM ** LIGHTPEN ** 


130 REM ** hand 
140 REM Hr 


150 REM 
160 V = 53248 : REM VIC BASISADRESSE 
170 SA = 8192 : REM GRAPHIKSTARTADRESSE 


180 GOSUB 10000:G0SUB 10200:FA=7*16+2:G0OSUB 10400 : REM GRAPHIK INITIALI 
SIEREN 


190 XP = PEEK(V+19) : REM LIGHTPEN-X-KOORDINATE 
200 YP = PEEK(V+20) : REM LIGHTPEN-Y-KOORDINATE 
210 XK = 2 * (XP - 40) : REM ERRECHNE X-KOORD. 
220 YK = YP - 40 : REM ERRECHNE Y-KOORD. 


230 IF XK>319 OR XK<O OR YK>199 OR YK<O THEN 190 : REM AUF BEREICH TESTE 
N 


240 GOSUB 10700 : REM PUNKT ZEICHNEN 
250 GOTO 190 


10000 REM INITIALISIERUNGS+PUNKTSETZ-ROUTINEN 
10010 REM ...... 
10020 REM ... (S. KAPITEL 5.2) 


Wenn Sie sich hier den Umstand mit den BASIC-Routinen ersparen 
wollen, laden Sie die Supergraphik und ersetzen die folgenden Zeilen: 


180 GMODE 0,1 : GCLEAR : SCOL=0,2 : SCOL=1,7 
240 PLOT ‚XK,YK 


Die Zeilen 160 und 170, sowie ab 10000 wären dann überflüssig. 


In diesem kleinen Programm werden - nach dem Einschalten und 
Löschen der Graphik - in den Zeilen 190 und 200 lediglich die x- 
und y-Koordinaten des Punktes auf dem Bildschirm eingelesen, bei 
dem der Lightpen zuletzt auflag. Diese Bildschirmkoordinaten werden 
dann in unsere bekannten Graphikkoordinaten nach der Formel um- 
gerechnet, die in Abschnitt 4.7.2 angegeben wurde (Z. 210/220). Als- 
dann muß das Ergebnis darauf geprüft werden, ob der Punkt, den der 
Lightpen anzeigte nicht außerhalb des Bildschimfensters liegt, was ne- 
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gative oder zu große Werte resultieren ließ. Erst dann kann die Punkt- 
Setz-Routine aufgerufen werden, um an der jeweiligen Stelle eben 
einen Punkt zu setzen. Sie können dieses Programm beliebig erweitern 
mit vielen Funktionen, so daß evt. ein ganzes Zeichenprogramm ent- 
steht. Vielleicht legen Sie mit dem Lightpen die Eckpunkte von Linien 
oder den Mittelpunkt eines Kreises und seinen Radius fest, die auf 
Tastendruck dann gezeichnet werden, oder wählen per Lightpen be- 
stimmte Menüfunktionen aus, die am Bildrand angezeigt werden. 


Doch eine Sache stört dabei doch. Egal ob der Lightpen auf den 
Bildschirm zeigt oder nicht, an dieser Stelle wird ein Punkt gezeich- 
net. Hier mag das noch nicht so schlimme Folgen haben, bei anderen 
Anwendungen wird es sicher stören. Eine andere Möglichkeit der Be- 
dienung ist die per Interrupt. Jedesmal, wenn der Lightpen einen 
Impuls sendet, also nur dann, wenn er auch tatsächlich auf den Bild- 
schirm zeigt, könnte beispielsweise ein IRQ ausgelöst werden, der 
entweder einen Punkt zeichnet oder einfach in einer Speicherstelle ein 
kurzes Signal gibt, das nach einiger Zeit wieder gelöscht wird. 


Eine andere Möglichkeit ist beispielsweise die Konstruktion einer 
Alarmanlage: Der Lightpen wird an die Zimmerlampe montiert, oder 
einfach auf sie gerichtet. Sobald irgendjemand diese Lampe beim 
Eintreten einschaltet, sendet der Lightpen einen Impuls an den Com- 
puter, der sofort mit einem Heulgetöse beginnt, das sämtliche Nach- 
barn aus dem Bett wirft (man könnte den Audioausgang vielleicht an 
eine Stereoanlage anschließen (geht mit einem einfachen Überspielka- 
bel), die dem Ganzen noch etwas mehr "Power" gibt). Eine Variation 
dieser Alarmanlage wäre es z.B., wenn das Aufgehen der Türe einen 
Kontakt auslöste, der eine Lampe zum Leuchten brächte, was seiner- 
seits wieder über den Lightpen zu einer Reaktion des Computers 
führte. 


Wir wollen uns statt der Auslösung eines Alarms mit einem Farb- 
wechsel des Rahmens zufrieden geben: 
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100: C800 *=  $C800 

110: C800 FARBE = $FB 

120: C800 IRQVECT= $0314 

130: C800 IRQALT = $EA31 

140: C800 IRR = $D019 

150: C800 IMR = $D01A 

160: C800 RAHMEN = $D020 

170: = 

180: ;INITIALISIEREN: 

190: TRETEN 

200: > 

210: C800 78 INIT SEI :INTERRUPT VERHINDERN 
220: C801 AY 16 LDA #< IRQNEU 

230: C803 8D 14 03 STA IRQVECT 

240: C806 A9 C8 LDA #> IRQNEU 

250: C808 80 15 03 STA IRQVECT+1 ;IRQ-VEKTOR UMLEGEN 
260: C80B A9 00 LDA #800 

270: C80D 85 FB STA FARBE ‚FARBE SCHWARZ 

280: C8OF AY 88 LDA #%10001000 ;MASKE 

290: C811 8D 1A DO STA IMR ;LIGHTPEN-IRQ WAEHLEN 
300: C814 58 CcLI ;IRQ ERMOEGLICHEN 
310: C815 60 RTS 

320: 5 

330: ; INTERRUPTROUTINE: 

340: EERUWEERERTUNER REN 

350: : 

360: C816 AD 19 DO IRQNEU LDA IRR ; INTERRUPTREGISTER 
370: C819 8D 19 DO STA IRR ;LOESCHEN 

380: C81C 30 07 BMI IRQRAS ;RASTERZ.-IRQPRINT 
390: ;NORMALER IRQ 

400: C81E AD OD DC LDA $OCOD ;CIA 1-IRR LOESCHEN 
410: C821 58 cLl ;INTERRUPT ERMOEGLICHEN 
420: C822 4C 31 EA JMP IRQALT ;ZUR ALTEN ROUTINE 
430: C825 A5 FB IRQRAS LDA FARBE 

440: C827 8D 20 DO STA RAHMEN ;RAHMENFARBE 

450: CB2A E6 FB INC FARBE FARBE ERHOEHEN 

460: C82C 4C BC FE JMP $FEBC ;ABSCHLIESSEN 


Und hier das Ladeprogramm: 


100 FOR I = 51200 TO 51246 

110 READ X : POKE 1,X : S=S+X : NEXT 

120 DATA 120,169, 22,141, 20, 3,169,200,141, 21, 3,169 
130 DATA 0,133,251,169,136,141, 26,208, 88, 96,173, 25 
140 DATA 208,141, 25,208, 48, 7,173, 13,220, 88, 76, 49 
150 DATA 234,165,251,141, 32,208,230,251, 76,188,254 

160 IF S <> 5910 THEN PRINT "FEHLER IN DATAS !!! . END 
170 PRINT "OK" 
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Sie starten wie immer mit einem 


sYs 51200 


Alle im folgenden genannten Zeilennummern beziehen sich auf das 
Assemblerlisting. 


Die Initialisierungsroutine, die in Zeile 220 beginnt, sollte Ihnen 
inzwischen schon geläufig sein. Auch hier wird erst wieder der IRQ- 
Vektor umgelegt auf unsere eigene Routine und der entsprechende 
Interrupt diesmal durch Setzen des 3. Bits des IMR (Interrupt Mask 
Register) eingeschaltet. Nichts Besonderes bietet gleichfalls der Ein- 
stieg in unsere Interruptroutine (ab Zeile 360). Wieder wird auf die 
Art des Interrupts geprüft und entsprechend verzweigt. Dann aber 
kommt der Wechsel der Rahmenfarbe. Der Vorgang an sich ist leicht 
zu verstehen, wichtig hierbei ist allerdings, daß zum erstenmal eine 
reguläre Speicherstelle durch die Interruptroutine verändert wird. Dies 
bringt besondere Effekte, ist aber auch besonders gefährlich, wenn 
man nicht genau weiß, was mit dieser Stelle wann passiert, denn der 
Interrupt kann ja grundsätzlich zu jeder Zeit und in jeder Routine 
ausgelöst werden. Sie können aber von außen, also beispielsweise von 
BASIC aus, den momentanen Zustand der IRQ-Routine abfragen oder 
andere Steuerfunktionen übernehmen. Dies wird z.B. vom Betriebssys- 
tem genutzt, indem die interne Unterbrechungsroutine jedesmal die 
TI$-Uhr verstellt, die dann von BASIC aus abgefragt werden kann. 
Auch hier natürlich stehen Ihnen viele Möglichkeiten offen. 


Bitte erinnern Sie sich, daß sie dieses Bildschirmblinken auch durch 
Betätigen des Feuerknopfes Ihres in Port | gesteckten Joysticks erzeu- 
gen können. 


Sie sehen, der Interrupt ist ein schönes "Spielzeug", das enorme Welten 
entstehen läßt, wenn man es richtig zu nutzen weiß. Beschäftigen Sie 
sich ruhig ein wenig damit, es lohnt sich! 
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5.7 Ein kleines Graphik-Paket 


Wir haben eine ganze Menge über Graphik und Ihre Programmierung 
gehört und gelesen. Viele Routinen sollten uns das Leben erleichtern 
und ein wenig Einblick in die phantastische Welt der Bilder vermit- 
teln. Doch beim Ausprobieren all dieser Utilities und Basic-Pro- 
gramme, die wir gespannt eingetippt hatten, wurden wir zwar nicht 
durch das Ergebnis enttäuscht, dafür aber umso mehr durch den Weg 
dorthin. Bärte und graue Haare waren keine Seltenheit: Unsere 
Basicprogramme waren so langsam, auch wenn wir die gut gemeinten 
Tips im Anhang beherzigten, daß da kaum was von den Wogen der 
graphischen Dramatik hinüberschwappte. Kurz: Wir wissen zwar, wie 
es geht, doch die richtige Befriedigung machte sich kaum bemerkbar. 
Dem soll in diesem Abschnitt abgeholfen werden. Hier wird erst ein- 
mal anständig ausgepackt. Ein relativ umfangreiches Graphikpaket in 
Maschinensprache macht Ihre Graphik schnell und interessant. 


Dieses Graphikpaket soll vor allem dazu dienen, Ihnen die Realisie- 
rung der einzelnen Figuren in Maschinensprache zu demonstrieren. Sie 
können anhand der hier vorgestellten, umfangreich dokumentierten 
Routinen erkennen, wie Sie auf einfache Weise Maschinenprogramme 
von BASIC aus aufrufen und diverse Parameter übergeben können. 


Weiterhin soll Ihnen dieses Graphikpaket die Möglichkeit geben, ein- 
zelne Graphikroutinen leicht in eigene Programme einzubauen, ohne 
den großen Aufbau der Supergraphik mitnehmen zu müssen. 


Wenn Sie sich die nächsten Seiten betrachten, sollten Sie nicht kapitu- 
lieren. Es ist zwar viel Arbeit, die ganzen Maschinenroutinen abzu- 
schreiben und auf Fehler zu kontrollieren, doch es lohnt sich! Wer 
wirklich ernsthaft mit Graphik arbeiten will, der sollte vor diesem 
Zeit- und Mußeaufwand nicht zurückschrecken, der braucht einfach 
das entsprechende Handwerkszeug. 


Doch nun zum Thema: Zunächst wird Ihnen das Assemblerlisting des 
Graphik-Paketes mit vielen Kommentaren vorgestellt, für diejenigen, 
die sich für die einzelnen Routinen interessieren. Sie werden sehen, 
daß einige Dinge aus Geschwindigkeitsgründen etwas anders organi- 
siert sind, als wir es in den obigen Basicprogrammen getan haben. 
Dazu gehört z.B. die Routine, die beliebige Linien auf den Bildschirm 
zeichnet. Die theoretischen Grundlagen zu dieser Linienzeichnung in 
Assembler finden Sie ebenfalls in dem Abschnitt zum Zeichnen von 
Linien. 
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Hier noch einmal in Kürze: 

In dieser Routine werden nicht direkt die Koordinaten eines jeden 
Punktes ausgerechnet, aus denen ja dann wieder die Speicheradresse 
errechnet werden müßte, sondern wir berechnen quasi das Verhältnis 
der Anzahl der zu gehenden Schritte nach oben/unten zu der Anzahl 
von Schritten nach rechts/links, um vom Ausgangspunkt zum End- 
punkt zu gelangen, und gehen dann stets in einem bestimmten Ryth- 
mus, der diesem Verhältnis entspricht, eben in diese Richtungen. 
Dabei wird die Tatsache voll berücksichtigt, daß stets zwei Punkte 
über- bzw. nebeneinander liegen müssen, um eine zusammenhängende 
Linie zu erhalten. Sie werden staunen, wie schnell so etwas geht. 


Nach diesem sogenannten Source-Listing wird Ihnen wieder ein Basic- 


Lader für diejenigen, die keinen Monitor besitzen, angeboten, um das 
Programm sicher und gut eintippen zu können. Doch hier das Listing: 


c800 *=  $C800 


Ba a2 2 2 2a Sea 222222 
ur ur 


*%* HOCH AUFLOESENDES ** 


** GRAPHIK - PAKET ** 
“* “r 


ns 


Ba a 2 2 2 2a 2a 222222 


onen nen 


;ROM- SPRUNGADRESSEN: 
PRalala ala ai 3 E03 222 3 20572052727) 


’ 
B79E GETBYT = $B79E ;HOLT BYTEWERT 
AEFD CHKCOM = $AEFD ;PRUEFT AUF KOMMA 
B7F1 CHKGET = $B7F1 ;CHKCOM+GETBYT 
B7EB GETCOR = $B7EB ;HOLT KOORDINATEN 
8248 QERR = $B248 ;ILLEGAL QUANTITY 


DO00 v = $D000 ;VIDEOCONTROLLER 


IE. 1 P Das Supergraphikbuch zum C64 


;NULLSEITIGE REGISTER: 
Pholndeloiolaioioln io 2 1012. 2052.205.2.2 


0063 OFFX = $63 

00AB MSK = $AB ;MASKE 

0069 DIFO = $69 

006A DIFI = SA 

0068 DIF2 = $6B 

006C DIF3 = $6C 

006D DIF4 = $6D 

006E DIF5 = $6E 

006F ZWN = s6r ’XK/8 CHLINE) 
0070 zA = $70 ;ZAEHLER CHLINE) 
O0AC A = $SAC ;PUNKTADRESSE 
00AD B = SAC+ 

0014 XK = $14 ;X-KOORDINATE 
0097 FLG = $97 ;UNPLOT/PLOT-FLAG 
OOFD USE = $FD ;DIVERSES 


;FESTE WERTE: 
ze 


2000 GRAPH = $2000 ;GRAPHIKSTART 

0400 VIDEO = $0400 ;VIDEORAMSTART 

0021 GSTART = $21 ;GR-START+1-H-BYTE 

003E GEND = $3E ;GR-ENDE -1-H-BYTE 
;ANSTEUERADRESSEN: 


re 


none. 


C800 4C 24 C8 JMP INIT ;GRAPHIK EIN 

C803 4C 41 C8 JMP GOFF ;GRAPHIK AUS 

C806 4C 12 C9 JMP GCLEAR ;GRAPHIK LOESCHEN 
c809 4c 31 C9 JMP SCOLOR ;FARBE SETZEN (LOESCHEN) 
C80C 4C 2A C9 JMP PCOLOR ;PLOTFARBE 

C80F 4C 58 C8 JMP PLOT ;PUNKT SETZEN 

c812 4C 55 C8 JMP UNPLOT ;PUNKT LOESCHEN 
c815 4C 6B C8 JMP SLINE ;LINIE ZEICHNEN 
c818 4C 68 C8 JMP CLLINE ;LINIE LOESCHEN 
C81B 4C 43 CA JMP GLOAD ;GRAPHIK LADEN 
C81E 4C 52 CA JMP GSAVE ;GRAPHIK SPEICHERN 


C821 4C 69 CA JMP HARDC ;HARDCOPY (GP 100 VC ETC.) 
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c824 
c825 
c828 
c82B 
C82E 
c831 
c833 
c836 
c838 
C83B 
Cc83D 
C840 


C841 
C844 
c847 
CB4A 
C84D 
C84F 
c852 


c855 
c857 


c858 
C85A 
c85c 
c85f 
c862 
C865 


EA 
AD 


AD 


A9 


A9 
8D 
A9 
8D 
60 


A2 


A2 
86 
20 
20 
20 
4c 


11 
1E 
18 
1F 
3B 
11 


18 
60 
24 


80 
97 
FD 
79 
9 
E2 


AE 
c8 
c8 
c8 
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;GRAPHIK EINSCHALTEN: 


EERRFTENTCHRN FT 


’ 
INIT NOP ;KEINE BLOCKADE 
LDA v+17 
STA STOREI 
LDA V+24 
STA STORE2 ;ALTE INHALTE RETTEN 
LDA #%00111011 
STA V+17 ;GRAPHIK EIN 
LDA #%00011000 
STA Vr+24 ;NACH $2000 
LDA #860 ;CODE FUER RTS ALS BLOCKADE 
STA INIT ;INIT WIRD BLOCKIERT 
RTS 
v 
: 
;GRAPHIK AUSSCHALTEN: 
er 
’ 
GOFF LDA STORE1 
STA V+17 
LDA STORE2 
STA V+24 ;ALTE INHALTE RUECKHOLEN 
LDA #SEA ;CODE FUER NOP FUER 
STA INIT ;BLOCKADE AUFHEBEN 
JMP $E544  ;BILDSCHIRM LOESCHEN 
f 
r 
;PUNKT LOESCHEN: 
Pholaloleislolelalaio 1 20502. 
; 
UNPLOT LDX #800 ;LOESCH- FLAG 
.BYT $2C 


ne». 


;PUNKT SETZEN: 


ERRRERRERUNTERN 


‘ 


PLOT LDX 
PL1 STX 
JSR 
JSR 


JSR 
JMP 


om 


#880 ;SETZ- FLAG 

FLG 

CHKCOM 

TESCOR ;KOORDINATEN HOLEN 
HPOSN ;ADRESSE ERRECHNEN 

PLT ;PUNKT SETZEN/LOESCHEN 
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;LINIE LOESCHEN: 
Phlaleieiehoislolaieiieioiedn) 


’ 
C868 A2 00 CLLINE LDX #800 
C86A 2C .BYT $2C 

;LINIE ZEICHNEN: 

» Re 
C86B A2 80 SLINE LDX #880 
C86D 20 5A C8 JSR PLI 
C870 20 FD AE JSR  CHKCOM 
873 20 79 c8 JSR TESCOR 
C876 4C BB C9 JMP  HLINE 

; 

;KOORDINATEN TESTEN: 

; ee 
879 20 EB B7 TESCOR JSR GETCOR 
C87C 8A TXA 
C87D AB TAY 
C8TE A6 15 LDX XK+1 
880 CO 8 CPY #200 
882 BO OD BCS ILLFF 
C884 AS 14 LDA XK 
886 EO 01 CPX #>320 
888 90 06 cc T1 
C88A DO 05 BNE ILLFF 
C88C C9 40 CMP #<320 
C88E BO 01 BCS ILLFF 
C890 60 71 RTS 
C891 4C 48 B2 ILLFF MP QERR 

;ADRESSE ERRECHNEN: 

EURURRTERRERUERRUNEN 
C894 8C IC CB HPOSN STY YK 
897 8D 1A CB STA XKL 
C89A BE 1B CB STK XKH 
C89D 85 14 STA XK 
C89F 86 15 STX XK+1 
C8A1 98 TYA 
CBA2 4A LSR A 
CBA3 4A LSR A 
CBA4 4A LSR A 
CBAS AA TAX 
C8A6 BD 2F CB LDA MUL.H,X 
C8A9 85 AD STA B 
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;LOESCH- FLAG 


;SETZ- FLAG 
;ERSTEN PUNKT SETZEN 


;ZWEITE KOORD. HOLEN 
;LINIE ZEICHNEN 


;HOLEN 


:Y-KOORD. >= 200? 


JA! 


;X-KOORD. >= 
JA 
;A"EXK-LOW 
X" XK-HIGH 
sY"YK 


320? 


;ILLEGAL QUANTITY 


ıY-K 
iX-KL 
5X-KH CZWISCHENSPEICHERN) 


;INTCY/8) 


;320*INTCY/8) CHIGH-BYTE) 
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C8AB 
CBAC 
C8AE 
C8AF 
c8B2 
C8B4 
C8B5 
c8B7 
C8B8 
C8BA 
c8BC 
C8BE 
c8co 
c&c2 
Cc8Cc4 
c8C6 
c8c8 
c8c9 
C8cB 
C8CcD 
C&cF 
C8D1 
C8D3 
C8D5 
c8D7 
c809 
C8DB 
C8DC 
C8DF 
C8E1 


C8E2 
C8E4 
C8E5 
C8E7 
C8E9 
C8EB 
C8ED 
C8EF 
c8ro 
c8r2 
CöFf& 
C8F6 
c8r8 
C8FA 
C8FB 
C8FD 


8A 
29 
AA 
BD 
85 
98 
29 
18 
65 
85 
A5 
29 
85 
A9 
05 
85 


60 


AO 
08 
A5 
24 
30 
49 
31 


11 

91 
A5 
85 
A5 
4A 
66 
4A 


03 


49 


07 


AC 
AC 
14 
F8 
63 
20 
AD 
AD 


AC 
63 
AC 
AD 
15 
AD 
14 
07 
07 


4D 


TXA 
AND 
TAX 
LDA 
STA 
TYA 
AND 
CLC 
ADC 
STA 
LDA 
AND 
STA 
LDA 
ORA 
STA 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
LDA 
AND 
EOR 
TAX 
LDA 
STA 
RTS 


neu 
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#3 ;BITS O+1 ISOLIEREN 


MUL.L,X ;320*INT(Y/8) (LOW-BYTE) 


A 
;Y-KOORD . 
#7 ;CY AND 7) 
A sOFFY=320*INTCY/8)+CY AND 7) 
A ER TRERTRURIR URN KURNEN 
XK 
#SF8  ;OFFX=8*INTCX/8) 
OFFX SRURKTNTITERENE 
#>GRAPH ;GRAPHIKSEITE 
B 
B ;+SA 
A 
OFFX _ ;AD = OFFY + OFFX + SA 
A SERERKARTEENTERNER URN 
B 
xK+1 
B 
XxK 
#7 
#7 37-(X AND 7) 


MSKTAB,X ;MASKENTABELLE 
MSK ;2”(7-(X AND 7)) 


;PUNKT PLOTTEN: 
Fheiesteisteieisteleieieiehel 


’ 

PLT LDY 
PHP 
LDA 
BIT 
BMI 
EOR 
AND 
«BYT 

PL2 ORA 
STA 
LDA 
STA 
LDA 
LSR 
ROR 
LSR 


#0 
;CARRY-FLAG RETTEN 
MSK ;MASKE 
FLG ;PLOT/UNPLOT - FLAG 
PL2 ;PLOT 
HSFF ;UNPLOT 
(Aa,Y 
$2C ;UEBERSPRINGE NAECHSTEN BEFEHL 
(A),Y ;PLOT 
(Aa,Y 
A ;FARBE SETZEN 
USE 
B 
A 
USE 
A 
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C8FE 
c900 
c901 
c903 
c905 
c907 
c909 
c9OC 
C9OE 
C9OF 
c911 


c912 
c914 
c916 
c918 
C91A 
cyıIc 
c91D 
c91F 
c920 
c922 
c924 
c925 
c927 


C92A 
c92D 
c930 


c931 
c954 
c937 
c939 
C93B 
C93D 
c93F 
c941 
Cc943 


66 
4A 
66 
29 
09 
85 
AD 
91 
28 
Au 
60 


A9 
85 
AO 


A2 
98 
91 
c8 
DO 
E6 
CA 
DO 
4c 


20 
8E 
60 


20 
8E 
A2 
A9 
85 
AO 
84 
84 
AD 


FD 


FD 
03 
04 
FE 
1D 
FD 


6F 


20 
FE 
00 
FD 
20 


37 


Fi 


Fi 
1D 
03 


FE 
00 
FD 


1D 


CB 


c9 


B7 
CB 


ROR 
LSR 
ROR 
AND 
ORA 
STA 
LDA 
STA 
PLP 
LDY 
RTS 


USE 

A 

USE 
#303 
#504 
USE+1 
coLoR 
(USE),Y 


ZWN 


u 


;GRAPHIK LOESCHEN: 
FE E22 2 222 


’ 

GCLEAR LDA 
STA 
LDY 
STY 
LDX 
TYA 
STA 
INY 
BNE 
INC 
DEX 
BNE 
JMP 


#>GRAPH 
USE+1 
#<GRAPH 
USE 
#820 
6c1 (USE),Y 
6c1 
USE+1 


Gc1 
SCOL1I 


ne 


;ADRESSE/8 


;VIDEORAM AB $0400 


;FARBE IN 
;VIDEORAM 
;CARRY- FLAG 


;Y=0 
:GRAPHIK-STARTADRESSE 
;LAENGE 
;Y=0! 

;LOESCHEN 


;VIDEORAM LOESCHEN 


;PUNKTFARBE DEFINIEREN: 


PR 2.2 2 2.202020 2.2.202.20202 2.202 02.2020202 
‘ 


’ 


PCOLOR JSR 
STX 


RTS 


CHKGET 
COLOR 


nen 


;FARBE SETZEN: 


nahe 
‘ 


: 

SCOLOR JSR 
STX 
LDX 
LDA 
STA 
LDY 
STY 
STY 
LDA 


CHKGET 
COLOR 
#3 
#>VIDEO 
USE+1 
#<VIDEO 
USE 

FLG 
COLOR 


SCOL1I 


;KOMMA+FARBE 


;KOMMA+FARBE 


;ADRESSE VIDEORAM 
;Y=0! 
; FARBE 
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C946 91 FD GM9 STA (USE),Y ;SETZEN 
C948 C8 INY 
C949 Ch 97 CPY FLG 
C94B DO F9 BNE GM9 
C94D E6 FE INC USE+1 
CILF CA DEX 
C950 FO 03 BEQ GM9. 
952 10 F2 BPL GM9 
954 60 RTS 
C955 AQ ES GM9. LDX  #SE8 
957 86 97 STX _ FLG ;SPRITEVEKTOREN SCHUETZEN 
C959 DO EB BNE GM9 ;UNBEDINGT 
; VEKTORROUTINEN: 
y wre 
C95B AS AO UNTEN LDA A ;PUNKTADRESSE- LOW 
C9SD 29 07 AND #7 
C9SF C9 07 cMP #7 
C961 FO 05 BEQ UNI ;PACKENRAND! 
963 38 SEC 
C964 A9 00 LDA #0 
966 BO 04 BCS UN2 ;ADDIERE 1 (C=1!) 
0968 A9 38 UNI LDA #838 ;ADDIERE 320-7=313 
CI6A E6 AD INC B ;c=1 
C96C 65 AC  UNZ ADC A 
CI6E 85 AC STAA 
970 A9 00 LDA #0 
972 65 AD ADC B 
C974 85 AD STA B 
(976 60 RTS 
(977 3082 U.0 BMI UNTEN 
0979 AS AC OBEN LDA A ; ADRESSE 
978 29 07 AND #7 
C97D FO 05 BEQ 0B1 ;PACKENRAND (OBEN) 
CITF 18 CLC 
C980 A9 FF LDA #SFF 
c982 90 04 BCC OB2 ;SUBTRAHIERE 1 
C984 A9 cC7_ 0Bl LDA #$C7 _;SUBTAHIERE 320+7=327 
C986 C6 AD DEC B ;c=!! 
C988 65 AO 082 ADC A 
C98A 85 AC STAA 
C98C AS AD LDA B 
C9BE E9 00 ssc #0 
C990 85 AD STA B 


c992 60 RTS 


sen. 
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c993 46 AB RECHTS LSR MSK ;MASKE VERSCHIEBEN 


c995 90 OE BCC RE2 ;NOCH INNERHALB BYTE 
Cc997 66 AB ROR MSK ;AUSSERHALB BYTE 
C999 AS AC LDA A 
Cc99B C& INY 
c99Cc 18 CLC 
C99MD 69 08 ADC #8 
C9Y9F 85 AC STA A 
C9A1 90 02 BCC RE2 
CYA3 E6 AD INC B ;8 ADDIEREN 
C9A5 60 RE2 RTS 
C9A6 10 EB R.L BPL RECHTS 
C9YAB 06 AB LINKS ASL MSK 
CYAA 90 DE BCC LI 
CYAC 26 AB ROL MSK 
CYAE AS AC LDA A 
C9BO 88 DEY 
c9B1 38 SEC 
c9B2 E9 08 L13 SBC #8 
C9YB4 85 AC STAA 
C9B6 BO 02 BCS LI 
C9BB C6 AD DEC B ;8 SUBTRAHIEREN 
CI9BA 60 L11 RTS 
’ 


;LINIE ZEICHNEN: 
Pholalabaä 20103 20203.2.22 20 


C9BB 48 HLINE  PHA ;A "2 X2-LOW-BYTE 
C9BC AD 1B CB LDA XKH ;X "2 X2-HIGH-BYTE 
CIBF 4A LSR A sy Y2 

C9CO AD 1A CB LDA XKL XKL": X1-LOW-BYTE 
C9C3 6A ROR A SXKHN: X1-LOW-BYTE 
CICH 4A LSR A ;YKu: y1 

C9C5 4A LSR A 

C9C6 85 6F STA ZWN ;X1 / 8 ZWISCHENSP. 
C9C8 68 PLA 

C9C9 48 PHA 

CICA 38 SEC 

C9CB ED 1A CB SBC XKL 

CICE 48 PHA 

CICF 8A TKXA 

C9D0 ED 1B CB SBC XKH 

C903 85 6C STA DIF3 ;X2-x1 

C9D5 BO OA BCS L3 ;NEGATIV? 

C907 68 PLA sa 

C9D8 49 FF EOR #SFF 

C9DA 69 01 ADC #1 


CIDC 48 PHA 
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C9DD A9 00 LDA #0 

CI9DF ES 6C SBC DIF3 ;VORZEICHENWECHSEL 
C9E1 85 6A L3 STA DIF1 

Cc9E3 85 6E STA DIF5 ;(X2-X1)-HIGH 

C9E5S 68 PLA 

C9E6 85 69 STA DIFO 

C9E8 85 6D STA DIF4 ;(X2-X1)-LOW 

CYEA 68 PLA 

C9EB 8D 1A CB STA XKL 

C9EE 8E 1B CB STX XKH 

c9F1 98 TYA 

c9F2 18 CLC 

c9F3 ED IC CB SBC YK ;v2-Y1 

c9F6& 90 04 BCC L4 ;NEGATIV? 

Cc9F8 49 FF EOR #SFF 

C9FA 69 FE ADC H#S$FE ;VORZEICHENWECHSEL 
CcI9FC 85 6B L& STA DIF2 ;(cY2-Y1) 

CI9FE 8C IC CB STY YK 

CA01 66 6C ROR DIF3 ;(xX2-X1)/2 

cA03 38 SEC 

CAO4 ES 69 SBC DIFO ;(cY2-Y1)-(X2-X1) 
CAO6 AA TAX ;LOW-BYTE NACH X-REG. 
CAO7 A9 FF LDA #SFF 

CA0O9 ES 6A SBC DIF1 

CAOB 85 70 STA ZA ;HIGH-BYTE NACH ZA 
CAOD A4 6F LDY ZWN 

CAOF BO 05 BCS L5 ;UNBEDINGT 

CA11 0A L1 ASL A 

CA12 20 A6 C9 JSR R.L ;RECHTS/LINKS 

CA15 38 SEC 

CA16 A5 6D L5 LDA DIF4 

CA18 65 6B ADC DIF2 

CAlA 85 6D STA DIF4 

CAIC AS 6E LDA DIF5 

CAIE E9 00 sBc #0 ;(X2-X1)- CY2-YI)NACH(X2-X1) 
CA2O 85 6E L2 STA DIF5 

cA22 84 6F STY ZWN 

CA24 20 E2 C8 JSR PLT ;PUNKT ZEICHNEN 
cA27 E8 INX 

cA28 DO 05 BNE L6 

CA2A E6 70 INC ZA 

CA2C DO 01 BNE L6 ;DEC ZAEHLER 

CAZE 60 RTS 

CA2F AS 6C L6 LDA DIF3 

CA31 BO DE BcS L1 

cA33 20 77 C9 JSR U.O ;UNTEN/OBEN 

CA36 18 CLC 

CA37 AS 6D LDA DIF4 

CA39 65 69 ADC DIFO 

CA3B 85 6D STA DIF4 


CASD AS 6E LDA DIF5 
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CA3F 65 
CA41 50 


CA43 20 
CA46 20 
CA49 AO 
CA4B A2 
CA4D A9 
CA4F 4C 


cA52 
cA52 20 
cA55 20 


CA58 A2 
CASA AO 
CASC A9 
CASE 85 
CA60 A9 
CA62 85 
CA64 A9 
CA66 4C 


CA69 
CA6C 
CA6E 
ca71 
CA7&4 
CA76 
cA79 
CA7B 
CA7D 
CATF 85 
CA81 A9 
CA83 85 
CA85 A9 
CA87 80 
CABA A9 
CA8C 80 
CA8F A2 


20 
86 
20 
20 
A6 
20 
A9 
85 
A9 


6A 
DD 


FD 
D4 
20 
00 
00 
D5 


FD 
D4 


3F 
40 
00 
FD 
20 
FE 


D8 


Fi 
67 
Or 
IF 
67 


FF 
61 
07 
FD 
1c 
97 
00 
20 
28 
21 
04 


AE 
E1 


FF 


E1 


B7 


F3 
F3 


FF 


CB 


CB 
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ADC DIF1 
BVC L2 ;UNBEDINGT 
’ 
: 
;GRAPHIK LADEN: 
Plain 1 0520572752 
i 
GLOAD JSR CHKCOM ;KOMMA? 
JSR $E1D4 ;PARAMETER HOLEN 
LDY #>GRAPH 
LDX #<GRAPH ;STARTADRESSE 
LDA #800 ;LOAD-FLAG 
JMP $FFDS ;LADEN 
’ 
’ 
;GRAPHIK SPEICHERN: 
er 
; 
GSAVE JSR CHKCOM ;KOMMA? 
JSR $E1D4 
;ENDADRESSE 
LDX #>GRAPH+8000 
LDY #<GRAPH+8000 
LDA #<GRAPH 
STA $FD 
LDA #>GRAPH 
STA SFE ;STARTADRESSE 
LDA #$FD ;POINTER 
JMP $FFD8 ;SPEICHERN 
: 
: 
;HARDCOPY SEIKOSHA GP 100 VC: 


ERITREA TRUE KENENE 


: 

HARDC JSR 
STX 
JSR 
JSR 
LDX 
JSR 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDX 


CHKGET 
$67 
SF30F 
SF31F 
$67 
SFFc9 
HSFF 
$61 
#7 
USE 
#28 
FLG 
#0 
ZWIS 
#40 
FLG2 
# 


HA1 


;HOLE LOG. FILENR. 


;SUCHT LOG. FILENR. 
;SETZT FILEPARAM. 


;KANAL OEFFNEN 


;MASKE 


;PACKENGROESSE 


;ZEILENZAEHLER 


;YK-MERKER 


;PACKENZAEHLER 
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cA91 
CA94 
CA97 
CA98 
CAYA 
CA9C 
CA9E 
CAAO 
CAA3 85 
CAA5 A9 
CAA7 85 
CAA9 AS 
CAAB A6 
CAAD A4 
CAAF 20 
CAB2 AO 
CAB4 B1 
CAB6 A6 
CAB& 9D 
CABB E6 
CABD Ed 
CABE 86 
CACO E4 
CAC2 DO 
CAC4 A9 
CAC6 AO 
CAC8 A6 
CACA 
CACD 
CACE 
CACF 
CAD1 
CAD3 
CADS 
CAD8 
CAD9 
CADB 
CADD 
CADE 
CAEO 
CAE2 
CAE4 
CAE6 
CAE9 
CAEB 
CAED 
CAFO 
CAF3 18 

CAF4 69 07 
CAF6 8D 20 CB 
CAF9 C6 97 


BD 
20 
CA 
10 
A9 
85 
85 
AD 


2A CB HA. 
D2 FF 


F7 
00 
63 
64 
20 
65 
00 
FE 
63 
64 
65 
9% 
00 
AC 
FE 
22 
65 


CB HA2 


HA3 


FE 
FD 
E5 
00 
07 
FD 
22 


HA4 
CB HAS 


61 
80 
20 D2 
10 
AS 
18 
69 
85 
90 
E6 
CE 
DO 
A9 
20 
AD 


CB HA6 


OD 
D2 
20 


FF 
CB 


LDA 
JSR 
DEX 
BPL 
LDA 
STA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
LDX 


JSR 
LDY 
LDA 
LDX 
STA 
INC 
INX 
STX 
CPX 
BNE 
LDA 
LDY 
LDX 
ASL 
ROL 
DEX 
BPL 
AND 
ORA 
JSR 
DEY 
BPL 
LDA 
CLC 
ADC 
STA 
BCC 
INC 
DEC 
BNE 
LDA 
JSR 
LDA 
CLC 
ADC 
STA 
DEC 


481 
HATAB,X ;MITTENZENTRIERT 
$FFD2 ;AUSGABE 
HA1. 
#0 
$63 
564 »IK=0 
ZWIS 
$65 ıYK 
#0 
USE+1 ;BUFFERZEIGER 
$63 IXK-L 
$64 3XK-H 
$65 iYK 
HPOSN ;POSITION BERECHNEN 
#0 
(A),Y  ;BYTE HOLEN 
USE+1 ;BUFFERZEIGER 
BUFF,X ;IN BUFFER 
$65 iYK 
USE+1 
USE 
HA3 
#0 
#7 
USE 
BUFF,X ;EIN BIT HOLEN 


A ;UND IN AKU SCHIEBEN 
;BUFFERZEIGER ERHOEHEN 


HAS 
$61 ;BEI LETZTER ZEILE=#$OF 
#580 ;HIGH-BYTE 
$FFD2 ;SENDEN 
;8 BYTES SENDEN 
HA4 
563 IXK-L 
#8 
$63 IXK+8 
HA6 
$64 SXK-H 
FLG2 
HA2 
#S0D ;CARRIGE RETURN 
$FFD2 ;SENDEN 
ZWIS 
#7 
ZWIS  ;YK+7 
FLG 
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CAFB FO 03 BEQ HAB. 

CAFD 4C 8A CA HAB JMP HA1 

CBOO A9 04 HAB. LDA #4 

CB02 C5 FD CMP USE 

CBO4 FO OC BEQ HA7 

CBO6 85 FD STA USE ;LETZTE ZEILE 
CB08 A9 01 LDA #1 

CBOA 85 97 STA FLG ;FLAG 

CBOC A9 OF LDA #8$F 

CBOE 85 61 STA $61 ;MASKE 

CB10 DO EB BNE HA8 

CB12 A9 OF HA7 LDA #15 ;NORMAL MODUS 
CB14 20 D2 FF JSR $FFD2 

CB17 4C CC FF JMP $FFCC ;SCHLIESST KANAL 


;INTERNE SPEICHER: 
Phalaäaolalalaind0i 1005 2.205.20 


r 
CBIA 00 XKL .BYT 0 XK- LOW-ZWISCHENSPEICHER 
CB1B 00 XKH .BYT O SXK-HIGH-ZWISCHENSPEICHER 
cBIc 00 YK .BYT O ;YK-ZWISCHENSPEICHER 
CB1D 00 COLOR  .BYT O ;FARBE 
CBIE 00 STOREI .BYT O ;V+17-REG. -ZWISCHENSP. 
CBIF 00 STORE2 .BYT 0 ;V+24-REG.- ZWISCHENSP. 
CB20 00 ZWIS .BYT O ;ZWISCHENSPEICHER 
cB21 01 FLG2 .BYT 1 ;ZWISCHENSPEICHER 
CB22 00 00 00 BUFF .WOR 0,0,0,0 ;BUFFER FUER HARDCOPY 

z 

: 

;TABELLEN: 


eine 

i 
;DRUCKERZEICHEN: 
; (RUECKWAERTS) 


’ 


;MITTENZENTRIERT/GRAPHIK EIN 


i 
CB2A 50 00 10 HATAB .BYT 80,0,16,27,8 


onen 


MULTIPLIKATIONSTABELLE: 
;(N*320 FUER N=0 BIS N=24) 


® 


;HIGH-BYTES 
cB2F 00 01 02 MUL.H «BYT 0,1,2,3,5,6,7,8,10,11,12,13,15,16 
cB3D 11 12 14 .BYT 17,18,20,21,22,23,25,26,27,28,30,31 


-. 
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;LOW- BYTES 


’ 
CB49 00 40 80 MUL.L .BYT $00,340,$80,$C0 


‘ 
CB4D 01 02 04 MSKTAB 
CcB51 10 20 40 


‘ 


Ä 
;MASKENTABELLE: 


Symboltabelle: 

A 00AC B 00AD BUFF 
CHKCOM AEFD CHKGET B7F1 CLLINE 
COLOR CB1D DIFO 0069 DIF1 
DIF2 006B DIF3 006C DIF4 
DIFS 006E FLG 0097 FLG2 
Gc1 C91D GCLEAR c912 GEND 
GETBYT B79E GETCOR B7EB GLOAD 
GM9 C946 GM9. C955 GOFF 
GRAPH 2000 GSAVE CA52 GSTART 
HA1 CABA HAI. CA91 HA2 
HA3 CAA9 HA4 CAC8 HA5 
HA6 CAE6 HA7 CB12 HA8& 
HAB. CBOO HARDC CA69 HATAB 
HLINE C9BB HPOSN C894 ILLFF 
INIT c824 11 cA11 L2 

L3 CI9EI L4 C9FC L5 

L6 CcA2F LII C9BA LI3 
LINKS C9AB MSK 00AB MSKTAB 
MUL.H CB2F MUL.L CB49 O0B1 
O0B2 C988 OBEN c979 OFFX 
PCOLOR C92A PLI C85A PL2 
PLOT c858 PLT C8E2 QERR 
R.L C9A6 RE2 C9A5S RECHTS 
SCOL1 c937 SCOLOR c931 SLINE 
STOREI CBIE STORE2 cBiF T1 
TESCOR c879 U.O c977 UNI 
UN2 C96C UNPLOT C855 UNTEN 
USE 00FD V DO00 VIDEO 
XK 0014 XKH CBIB XKL 

YK CBIC ZA 0070 ZWIS 


.BYT %00000001,%00000010,%00000100,%00001000 
.BYT %00010000,%00100000,%01000000 ,%10000000 


cB22 
c868 
006A 
006D 
cB21 
003E 
CA43 
c841 
0021 
CAAO 
CACA 
CAFD 
CB2A 
c891 
CA20 
CA16 
c9B2 
CB4D 
c984 
0063 
C8FO 
B248 
c993 
C86B 
c890 
C968 
C95B 
0400 
CB1A 
CB20 
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Kommen wir zum Basiclader: 


100 FOR I = 51200 TO 52054 

110 READ X : POKE 1,X : S=S+X : NEXT 

120 DATA 76, 36,200, 76, 65,200, 76, 18,201, 76, 49,201 
130 DATA 76, 42,201, 76, 88,200, 76, 85,200, 76,107,200 
140 DATA 76,104,200, 76, 67,202, 76, 82,202, 76,105,202 
150 DATA 234,173, 17,208,141, 30,203,173, 24,208,141, 31 
160 DATA 203,169, 59,141, 17,208,169, 24,141, 24,208, 169 
170 DATA 96,141, 36,200, 96,173, 30,203,141, 17,208,173 
180 DATA 31,203,141, 24,208,169,234,141, 36,200, 76, 68 
190 DATA 229,162, 0, 44,162,128,134,151, 32,253,174, 32 
200 DATA 121,200, 32,148,200, 76,226,200,162, 0, 44,162 
210 DATA 128, 32, 90,200, 32,253,174, 32,121,200, 76,187 
220 DATA 201, 32,235,183,138,168,166, 21,192,200,176, 13 
230 DATA 165, 20,224, 1,144, 6,208, 5,201, 64,176, 1 
240 DATA 96, 76, 72,178,140, 28,203,141, 26,203,142, 27 
250 DATA 203,133, 20,134, 21,152, 74, 74, 74,170,189, 47 
260 DATA 203,133,173,138, 41, 3,170,189, 73,203,133,172 
270 DATA 152, 41, 7, 24,101,172,133,172,165, 20, 41,248 
280 DATA 133, 99,169, 32, 5,173,133,173, 24,165,172,101 
290 DATA 99,133,172,165,173,101, 21,133,173,165, 20, 41 
300 DATA 7, 73, 7,170,189, 77,203,133,171, 96,160, O0 
310 DATA 8,165,171, 36,151, 48, 5, 73,255, 49,172, 44 
320 DATA 17,172,145,172,165,172,133,253,165,173, 74,102 
330 DATA 253, 74,102,253, 74,102,253, 41, 3, 9, 4,133 
340 DATA 254,173, 29,203,145,253, 40,164,111, 96,169, 32 
350 DATA 133,254,160, 0,132,253,162, 32,152,145,253,200 
360 DATA 208,251,230,254,202,208,246, 76, 55,201, 32,241 
370 DATA 183,142, 29,203, 96, 32,241,183,142, 29,203,162 
380 DATA 3,169, 4,133,254,160, 0,132,253,132,151,173 
390 DATA 29,203,145,253,200,196,151,208,249,230, 254,202 
400 DATA 240, 3, 16,242, 96,162,232,134,151,208,235,165 
410 DATA 172, 41, 7,201, 7,240, 5, 56,169, 0,176, 4 
420 DATA 169, 56,230,173,101,172,133,172,169, 0,101,173 
430 DATA 133,173, 96, 48,226,165,172, 41, 7,240, 5, 24 
440 DATA 169,255,144, 4,169,199,198,173,101,172,133,172 
450 DATA 165,173,233, 0,133,173, 96, 70,171,144, 14,102 
460 DATA 171,165,172,200, 24,105, 8,133,172,144, 2,230 
470 DATA 173, 96, 16,235, 6,171,144, 14, 38,171,165,172 
480 DATA 136, 56,233, 8,133,172,176, 2,198,173, 96, 72 
490 DATA 173, 27,203, 74,173, 26,203,106, 74, 74,133,111 
500 DATA 104, 72, 56,237, 26,203, 72,138,237, 27,203,133 
510 DATA 108,176, 10,104, 73,255,105, 1, 72,169, 0,229 
520 DATA 108, 133,106,133,110,104,133,105, 133,109, 104, 141 
530 DATA 26,203,142, 27,203,152, 24,237, 28,203,144, 4 
540 DATA 73,255,105,254,133,107,140, 28,203,102,108, 56 
550 DATA 229,105,170,169,255,229,106,133,112,164,111,176 
560 DATA 5, 10, 32,166,201, 56, 165,109, 101,107,133, 109 
570 DATA 165,110,233, 0,133,110,132,111, 32, 226,200, 232 
580 DATA 208, 5,230,112,208, 1, 96,165,108,176,222, 32 
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590 DATA 119,201, 24,165,109,101,105,133,109,165,110,101 
600 DATA 106, 80,221, 32,253,174, 32,212,225,160, 32,162 
610 DATA 0,169, 0, 76,213,255, 32,253,174, 32,212,225 
620 DATA 162, 63,160, 64,169, 0,133,253,169, 32,133, 254 
630 DATA 169,253, 76,216,255, 32,241,183,134,103, 32, 15 
640 DATA 243, 32, 31,243,166,103, 32,201,255,169,255 ,133 
650 DATA 97,169, 7,133,253,169, 28,133,151,169, 0,141 
660 DATA 32,203,169, 40,141, 33,203,162, 4,189, 42,203 
670 DATA 32,210,255,202, 16,247,169, 0,133, 99,133,100 
680 DATA 173, 32,203,133,101,169, 0,133,254,165, 99,166 
690 DATA 100,164,101, 32,148,200,160, 0,177,172,166,254 
700 DATA 157, 34,203,230,101,232,134 ‚254, 228,253, 208,229 
710 DATA 169, 0,160, 7,166,253, 30, 34,203, 42,202, 16 
720 DATA 249, 37, 97, 9,128, 32,210,255,136, 16,237,165 
730 DATA 99, 24,105, 8,133, 99,144, 2,230,100,206, 33 
740 DATA 203,208,181,169, 13, 32,210,255,173, 32,203, 24 
750 DATA 105, 7,141, 32,203,198,151,240, 3, 76,138,202 
760 DATA 169, 4,197,253,240, 12,133,253,169, 1,133,151 
770 DATA 169, 15,133, 97,208,235,169, 15, 32,210,255, 76 
780 DATA 204,255, 48, 48, 48, 32, 58, 32,130, 32, 88, 32 
790 DATA 58, 32,143, 32, 87, 65, 80, 0, 16, 27, 8, 0 
800 DATA 1, 2, 3, 5,6 7% 810, 11,1,13, 195 
810 DATA 16, 17, 18, 20, 21, 22, 23, 25, 26, 27, 28, 30 
820 DATA 31, 0, 64,128,192, 1, 2, 4, 8, 16, 32, 64 
830 DATA 128, 76, 79 

840 IF S <> 104883 THEN PRINT "FEHLER IN DATAS !ıı ; END 
850 PRINT "OK" 


Wie ist nun dieses Graphik-Hilfsprogramm anzuwenden? Der Aufruf 
sämtlicher 12 Befehle erfolgt über eine SYS-Anweisung, die in einigen 
Fällen noch durch einige Parameter ergänzt wird. Das erscheint im 
ersten Moment etwas ungewöhnlich, da die Syntax des eigentlichen 
SYS-Befehls keine weiteren Parameter außer der Adresse zuläßt, Sie 
werden sich aber schnell daran gewöhnen. Am besten verfährt man, 
wie dies im Anwendungsbeispiel vorgeführt wird: Man definiert 
zunächst am Programmanfang zwölf Variablen mit den Sprungadressen 
zu den einzelnen Befehlen. Im Verlauf des übrigen Programms ge- 
schieht der Aufruf dann stets über diese Variablen, wobei bei Bedarf 
die notwendigen Parameter ergänzt werden. Eine kleine Tabelle in- 
formiert Sie über die Sprungadressen und die Syntax der verschie- 
denen Befehle: 
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SYS 51200 - Graphik einschalten 
SYS 51203 - Graphik ausschalten 
SYS 51206 - Graphik löschen 
SYS 51209,PF*16+HF - Farbe setzen 

SYS 51212,PF*16+HF - Plotfarbe ändern 
SYS 51215,X,Y - Punkt setzen 

SYS 51218,X,Y - Punkt löschen 

SYS 51221,X1,Y1,X2,Y2 - Linie zeichnen 

SYS 51224,X1,Y1,X2,Y2 - Linie löschen 

SYS 51227,"name",GA - Graphik laden 

SYS 51230,"name",GA - Graphik speichern 
SYS 51233,LF - Hardcopy S.GP-100VC 


Dabei bedeuten: 


PF - Farbe eines Graphikpunktes v. 0-15 
HF - Hintergrundfarbe von O bis 15 

x - X-Koordinate eines Punktes (0-319) 
Y - Y-Koordinate eines Punktes (0-199) 
x1/2 - X-Koordinate des Start-/Endpunktes 
Y1/2 - Y-Koordinate des Start-/Endpunktes 
"name" - Filename (auch als Stringspeicher) 
GA - Geräteadresse (I oder 8) 

LF - logische Filenummer v. OPEN LF,GA 


Bevor wir direkt in unser Demonstrationsprogramm einsteigen, sollten 
wir kurz die wesentlichsten Dinge besprechen, wobei Sie die Details 
am besten durch testen und probieren herausbekommen: 


Die ersten drei Befehle dürften klar sein, wobei beachtet werden 
sollte, daß beim Einschalten der Graphik diese nicht gelöscht werden, 
beim Ausschalten jedoch der Bildschirm gelöscht wird. 


Beim Setzen der Farbe wird die Farbe aller Graphikpunkte und des 
Hintergrundes für das gesamte Graphikbild festgelegt. Wählen Sie also 
den Hintergrund grün (Farbcode: 5) und die Farbe der Punkte violett 
(Farbcode: 4), so setzen Sie PF=5 und HF=4. Bei jedem gezeichneten 
Punkt aber wird gleichfalls das entsprechende Farbbyte des Video- 
RAM gesetzt. Die jeweilige Farbe wird erstens durch den gerade be- 
sprochenen Befehl gesetzt (damit ändert sich die Farbe beim Zeichnen 
nicht), und zweitens durch das folgende Kommando, das lediglich 
besagt, daß ab jetzt alle neu gezeichneten Figuren in dieser neuen 
Farbe gezeichnet werden. 
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Ihnen stehen zwei Befehle zur Verfügung, um einen Punkt zu zeich- 
nen und um einen Punkt zu löschen. Gleichzeitig wird im Farbram die 
aktuelle Farbe gesetzt. 


Wollen Sie eine Linie von den Koordinaten X1,Yl nach X2,Y2 zeich- 
nen bzw. löschen, so verwenden Sie die beiden nächsten Befehle. Was 
eben zu der Farbsetzung gesagt wurde, gilt hier natürlich genauso. 


Die zwei Kommandos zum Laden und Speichern von Graphik ver- 
wenden Sie bitte genauso, wie Sie Basicprogramme laden/speichern - 
unter Angabe des Filenamens und der Geräteadresse (GA=| für 
Kassettenbetrieb, GA=8 für Diskette). 


Bevor Sie eine Hardcopy auf dem Drucker Seikosha GP-100VC (oder 
Epson mit DATA BECKER-Interface) starten, mÜssen Sie z.B. mit 
OPEN 1,4 entsprechend den Druckerkanal öffnen. Anschließend folgt 
ein SYS HC,l (da wir LF, die logische Filenummer als I gewählt 
haben) und ein CLOSE 1 (s. Demoprogramm). 


Damit sollten die größten Unklarheiten beseitigt sein, und wir können 
loslegen: 


10 REM rare 


20 REM ** “ 
30 REM ** GRAPHIK-PAKET ** 
40 REM ** ”% 
50 REM ** -DEMO- Br 
60 REM ** “x 
70 REM Hera 
80 REM 


90 REM MASCHINENROUTINEN: 

100 IN=51200 : OF=51203 :REM INIT /GRAPHIK OFF 
110 GC=51206 : SC=51209 :REM GCLEAR /SET COLOR 
120 Pc=51212 : PL=51215 :REM PCOLOR /PLOT 

130 UP=51218 : SL=51221 :REM UNPLOT /SET LINE 
140 CL=51224 : GL=51227 :REM CLR LINE /GLOAD 

150 GS=51230 : HC=51233 :REM GSAVE /HARDCOPY 
200 REM 

210 REM BEISPIELE: 

220 REM re 

230 REM 

300 SYS IN : REM GRAPHIK EIN 

310 SYS GC : REM GRAPHIK LOESCHEN 

320 SYS SC,1*16+2 : REM FARBE SETZEN 

330 SYS PC,7*16+2 : REM PLOTFARBE SETZEN 

340 REM 
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350 REM FIGUR 1: 

360 REM vrkkuaa 

370 REM 

380 FOR X=1 TO 319 STEP 4 

390 SYS SL,X,50,70,X/1.6 : REM LINIEN 

400 NEXT X 

410 REM 

420 FOR X=1 TO 5000 : NEXT X : REM WARTESCHLEIFE 
430 GOSUB 2000 : SYS GC : REM GRAPHIK LOESCHEN 
440 REM 

450 REM FIGUR 2: 

460 REM Ark 

470 REM 

480 FOR X=1 TO 319 STEP 3 

490 SYS SL,X,40,50*SIN(X/30)+100,X/1.6 

500 NEXT X 

510 REM 

520 FOR X=1 TO 5000 : NEXT X : REM WARTESCHLEIFE 
530 GOSUB 2000 : SYS GC : REM GRAPHIK LOESCHEN 
540 REM 

550 REM FIGUR 3: 

560 REM Ark 

570 REM 

580 FOR X=1 TO 319 STEP 2 

590 SYS SL,X,40*COS(X/20)+100 ,50*SINCX/30)+100,X/1.6 
600 NEXT X 

610 REM 

620 FOR X=1 TO 5000 : NEXT X : REM WARTESCHLEIFE 
630 GOSUB 2000 : SYS GC : REM GRAPHIK LOESCHEN 
640 REM 

1000 WAIT 198,255 : REM AUF TASTE WARTEN 

1100 SYS OF : END 

2000 SYS OF : REM GRAPHIK AUS 

2010 PRINT "WOLLEN SIE:":PRINT 

2020 PRINT "(1) - GRAPHIK LADEN" 

2030 PRINT "(2) - GRAPHIK SPEICHERN" 

2040 PRINT "(3) - HARDCOPY'! 

2050 PRINT "(4) - WEITER" : PRINT 

2060 POKE 198,0 : REM TASTEN LOESCHEN 

2070 WAIT 198,255 : REM AUF TASTE WARTEN 

2080 GET AS 

2090 ON VAL(AS) GOTO 2200, 2300, 2400,2500 

2100 GOTO 2000 

2200 REM 

2210 REM GRAPHIK LADEN: 

2220 REM a 202 202 2 222222 zz 

2230 REM 

2240 INPUT "FILENAME ,GA";FIS,GA 

2250 SYS GL,FIS,GA : REM LADEN 

2260 SYS IN : REM GRAPHIK EIN 

2270 SYS SC,16*3+9 
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2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2495 
2500 
2510 
2520 
2530 
2540 


FOR X=1 TO 5000 : NEXT X : REM WARTEN 
GOTO 2000 

REM 

REM GRAPHIK SPEICHERN: 

REM Ba 2 2 2 2 22 22 2 2 2 2 20222 

REM 

INPUT "FILENAME ‚GA";FI$,GA 

SYS GS,FI$,GA : REM SPEICHERN 

GOTO 2000 

REM 

REM HARDCOPY: 

REM Kirk 

REM 

PRINT "DRUCKER EINSCHALTEN UND TASTE DRUECKEN!" 
POKE 198,0 : WAIT 198,255 : GET A$ 
PRINT : PRINT "BITTE WARTEN!" 

OPEN 1,4 : REM DRUCKERKANAL OEFFNEN 
SYS HC,1 : REM HARDCOPY 

CLOSE 1 : REM SCHLIESSEN 

GOTO 2000 

REM 

REM WEITER: 

REM Ark 

REM 

SYS IN : SYS SC,16*2+7 : RETURN 


In diesem kleinen Demoprogramm wurden Ihnen einige Anwendungs- 
beispiele dargelegt. Sie können ohne weiteres Ihre eigenen Routinen 
mit einfügen. Viel Spaß beim Programmieren! 
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6. Kommentiertes Source-Listing der 
Supergraphik - für den Graphikfreak 


Das folgende Listing ist das originale und vollständige Source-Listing 
der Supergraphik. Es ist durchgehend dokumentiert und gegliedert 
und wurde mit dem Assembler Profi-Ass von DATA BECKER er- 
stellt. 


Um Benutzern anderer Assembler das Lesen zu ermöglichen, hier 
einige Syntax-Besonderheiten des Profi-Ass: 


.‚BYT - Definieren eines Byte-Wertes 
.WOR - Definieren eines 2-Byte-Wertes 
.ASC - Definieren eines Strings 


*_ 


- Definieren der Startadresse 
= - Wertzuweisung an Label 


>label - High-Byte des Wertes 
<label - Low-Byte des Wertes 
$ - Hexadezimalzahl 

% - Dualzahl 


Zu Beginn des Programmes werden einige Werte und Speicherstellen 
definiert, die im Laufe des Programms verwendet werden. Hier stehen 
Zwischenspeicher, Rechenspeicher und auch Ansprungadressen im 
ROM etc. Die einzelnen Adressen werden jedoch auch im Programm 
noch einmal an Ort und Stelle erläutert. 


In jedem Fall erfahren Sie hier die Nullseitenbelegung und die Bele- 
gung der C-Seite. Für eine Übersicht über die wichtigsten Spei- 
cheradressen schauen Sie bitte in den Anhang (Kap. 7.3.3). 


Nach der Initialisierung (INIT), bei der Vektoren verlegt, Farben ge- 
setzt, die Graphik gelöscht, Parameter initialisiert und der Meldetext 
ausgegeben werden, finden wir die Routinen, auf die die neuen Be- 
triebssystemvektoren zeigen: 
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- Zeilenübernahmeroutine 

- LIST-Routine 

- Befehlsauswertungsroutine 
- Break/NMI 

- Tastaturroutine 

- Warmstart 


Die ersten drei Routinen sorgen dafür, daP die neuen Supergraphik- 
befehle, die ebenfalls in diesem Programmteil aufgelistet sind 
(BEFTAB), in den BASIC-Befehlsschatz übernommen werden. Befehle 
werden genauso wie die originalen Befehle in Tokens übersetzt. 


Wollen Sie die Startadresse eines Befehls herausfinden, müssen Sie ihn 
zunächst unter BEFTAB suchen und an der entsprechenden Stelle 
unter ADRTAB die Adresse nachschlagen. 


STFLG ist die universale Routine zur Übernahme der Sekundärbefehle 
und des Graphikmodus für die normalen Zeichenbefehle. Hier werden 
die Flags FLG und FLG2 gesetzt. 


TRANS führt den Seitenwechsel beider Graphikseiten aus. 


Im folgenden finden Sie nach und nach alle Supergraphikbefehle 
wieder. Sie sind jeweils besonders gekennzeichnet. Wenn Sie also ein 
Graphikphänomen verstehen wollen, so beginnen Sie am besten 
zunächst bei dem entsprechenden Befehlsanfang und arbeiten sich so 
in die tiefer liegenden Routinen ein. 


Unter IRQNEU steht die neue IRQ-Routine, die verantwortlich ist 
für den 16-Sprite-Modus, die Text/Graphik-Mischanzeige, die Ton- 
steuerung und die Spritebewegung. 


Besonders interessant ist die Spritebewegung, da hier dieselbe Routine 
verwendet wird, die zum Zeichnen einer Linie programmiert wurde. 
Da also das Zeichnen einer Linie und das Bewegen von Sprites zur 
selben Zeit stattfinden kann, die Register der Routine also für zwei 
verschiedene Aufgaben gleichzeitig herhalten müssen, werden sie in 
der IRQ-Routine zunächst zwischengespeichert, um nach der Sprite- 
bewegung wieder an die originalen Stellen zurückgebracht zu werden. 
Nur so stören sich die beiden Vorgänge nicht gegenseitig. 
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Im AnschluP an den Source-Code der Supergraphik wurden noch die 
Listings der Hardcopy-Routinen angehängt, die bekanntlich von 
$C400-$C5SFF liegen und durch den Befehl HCOPY# aufgerufen wer- 
den. Darauf muP mit JSR GETBYT die Filenummer geholt werden, 
um an das richtige Gerät auszugeben. Sie können auf diese Weise Ihre 
eigene Hardcopy-Routine schreiben, an die Stelle $C400 laden und 
dann mit dem Befehl HCOPY# Ihre eigene Hardcopy starten. 


en nes 


RR a a a a a a 
’ 


RR a a a a 
’ 


SUR ar% 
Dr SUPERGRAPHIK *** 
Er” ar% 
» s“rr% 6 4 ar% 

5 si% si%* 

oo em VERSION 1986 u. 

s “r% si%* 

- Ba a a a a a 

’ 

; 


RR a a a a a 
’ 


RR a a a 
’ 


EEE ak 
ZERR AUTOR ar% 
zent AXEL PLENGE xrr 
SER (C) 1986 ar 
Sun“ ak 
zent DATA BECKER GMBH xrr 
ik ar% 


RR a a a a a a ir 
’ 


RR a a a a a a 


nen 


7700 *=  $7700 ;STARTADRESSE 


une“ 
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00A4 
0091 
OOAB 
0057 
00EO 
00c0 
0008 
00AO 
00c8 
00cC 
0002 


006D 
00AB 
0057 
0058 
0059 
005A 
0058 
005C 
005D 
005E 
0093 
005F 
OOAC 
OOAD 
OOAE 
0014 
0002 
0097 
0096 
OOFD 
002D 
00B8 
0089 
007A 
002B 
0090 
0093 
000F 
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;ALLGEMEINE LABEL-VEREINBARUNGEN: 


RR a a a a a a a a 
‘ 


, 


;FIXE WERTE: 


; 

TO 

AT 
MINUS 
FSTBEF 
PA1G 
PAIC 
PAIF 
PA2G 
PA2C 
PA2F 
SPRDEF 
‘ 


‚ 


SA4 ;TOKEN 

891 ;TOKEN (ON) 

SAB ;BASICCODE FUER "-1 
857 ERSTER BEF. 

SEO ;GRAPHIKSEITE 1 

<co ;FARBSEITE 1 

<D8 ;FARBRAM 1 

Sao ;GRAPHIKSEITE 2 

<c8 ;FARBSEITE 2 

Scc ;FARBRAM 2 

<D2 ;SPRITEDEF $D200-$D5SFF 


;NULLSEITIGE REGISTER: 


’ 

OFFX 
MSK 

DO 

D1 

D2 

D3 

D4 

D5 

D6 

D7 

E5 

ZA 

ADL 
ADH 
SHP 

XK 
GFLAG 
FLG 
FLG2 
USE 
VARSTA 
FILENR 
SECADR 
PRGZG 
BASSTA 
STATUS 
L.VFLG 
HKFLG1 


u 


$6D sX-OFFSET 

$AB ;BITMASKE BEI PUNKTSETZUNG U.A. 
$57 ;DIVERSE RECHENREGISTER 

$58 

$59 

5A 

$5B 

$5C 

$5D 

$5E 

$93 ;XK/8 CHLINE)CFLAG F. LOAD/VERIFY) 
$5F ;ZAEHLER CHLINE), U.A. 


SAC ;GRAPHIKADRESSE + DIVERSES 
ADL+1 

$AE ;VERWENDUNG BEI DRAW + DIVERSES 
$14 ;X-KOORDINATE U.A. (2 BYTE) 

2 ;GRAPHIKFLAG 


$97 ;NO/UN/D/PLOT- FLAG 
$96 ;COL/UNCOLOR- FLAG 
$FD ;DIVERSES 

$2D ;VARIABLENSTARTADR. 
$B8 ;FILENUMMER 

$B9 ;SEC. ADR. 

$7A ;PROGRAMMZEIGER 
$2B ;PROGRAMMSTART 

$90 

$93 ;LOAD/VERIFY- FLAG 
$0r ;HOCHKOMMAFLAG 1 
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0008 HKFLG2 
0058 STKPOI 


$08 ;HOCHKOMMAFLAG 2 
$58 ;STACKPOINTER FUER PAINT 


’ 


;NULLSEITIGE REGISTER FUER FENSTER-BEFEHLE: 
;REIHENFOLGE FESTGELEGT! 


0057 WXIL = $57 

0058 WX1H = $58 

0059 wy1 = $59 ;OBERE LINKE KOORDINATE 
005A WX2L = $5A 

005B WX2H = $5B 

005C wY2 = $s5Cc ;UNTERE RECHTE KOORDINATE 
005D WXAL = $5D 

005E WXAH = $5E 

005F WYA = $s5F ;AKTUELLE KOORDINATE 

0060 GRADIL = $60 

0061 GRADIH = $61 ;AKTUELLE GRAPHIKADRESSE 
0062 VRADIL = $62 

0063 VRADIH = $63 ;AKTUELLE VIDEORAMADRESSE 
0064 FRADIL = $64 

0065 FRADIH = $65 ;AKTUELLE FARBRAMADRESSE 


‘ 
;REIHENFOLGE NICHT FESTGELEGT: 


0069 GRADZL = $69 

006A GRADZH = S6A ;AKT. GRAPHIKADRESSE 2. SEITE 
0068 VRADZL = $6B 

006C VRAD2ZH = $6C ;AKT. VIDEORAMADRESSE 2. SEITE 
006D FRADZL = $6D 

006E FRADZH = $6E ;AKT. FARBRAMADRESSE 2. SEITE 
OOAE GCFLAG = $AE ;GCOMB - FLAG 


en. 


‚ABSOLUTE REGISTER: 


i 
C610 ABS = $C610 ;BASISWERT 

C610 EO = ABS sXK-LOW 

C611 E1 = ABS+1 sXK-HIGH 

C612 E2 = ABS+2 ;YK GRAPHIKCURSOR 

C613 E7 = ABS+3 ;SCALE 

C614 RT = ABS+t4  ;ROTATIONSWINKEL 

C615 E5. ZW = ABS+5  ;ES-ZWISCHENSP. 

C616 BGRDZW = ABS+t6 ;H-GRUNDZW-SP. 

c617 GEND = ABS+7  ;GRAPHIK-END/START-ADRESSE 
C618 GSTART = ABS+t8 ;FUER VEKTORROUTINEN 

C619 BCOL = ABS+9  ;H-GRUNDFARBE 

C655 COLOR = ABS+69 ;PLOTCOLOR F.VR 

C61A coL1 = ABS+10 ;COLOR 1 

C61B coL2 = ABS+11 ;COLOR 2 (MC) 

C6Ic coL3 = ABS+12 ;COLOR 3 (MC) 

C675 coL3ZW = ABS+101 ;COLOR 3 ZWISCHENSP. 
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C61D TCOL = ABS+13 ;TEXTFARBE 

C61E GFLAG2 = ABS+14 ;SEITENFLAG 

C61F LCOLO = ABS+15 ;PLOTFARBE (MC) 

(688 SPRITI = ABS+120 ;SPRITE ENABLE 

(689 SPRIT2 = ABS+121 ;SPRITE ENABLE 

C64E NR = ABS+62 ;AKT. SPRITENR. 

C620 VKTSAV = ABS+16 ;SPRUNGVEKTOREN 

C62A IROQSAV = VKTSAV+10 ;IRQ-VEKTOR 

C62C BRKSAV = IROQSAV+2 ;BRK-VEKTOR 

C631 TIMEL = ABS+33 ; SOUNDTIMER 

0634 TIMEH = TIMEL+3 

(639 SXL = ABS+41 ;X-SPRITEK.LOW 

C63A SXH = ABS+42 ;X-SPRITEK.HIGH 

C63B sY = ABS+43 ;Y-SPRITEK. 

C63C Y1 = ABS+44 ;DIVERSE KOORDINATENREGISTER: 
C63E XL = ABS+46 

C63F X1H = ABS+47 

C640 Y2 = ABS+48 

(642 x2L = ABS+50 

(643 X2H = ABS+51 

C644 Y3 = ABS+52 

0646 X3L = ABS+54 

(647 X3H = ABS+55 

0648 ZWIS = ABS+56 ; ZWISCHENSPEICHER FUER DIV AUFGABEN 
(649 LZW = ABS+57 ;LGR-KOORD.-ZW. 

C64B ADRZW = ABS+59 ;ADL+ADH+MSK-ZWISCHENSPEICHER (3 BYTE) 
(656 c1 = ABS+70 ;DIVERSE REGISTER 

0657 c2 = ABS+71 

C658 c3 = ABS+72 

C659 C4 = ABS+73 

C65A c5 = ABS+74 

C65B C6 = ABS+75 

C65C c7 = ABS+76 

C65D SAD = ABS+77  ;16 BYTE 

(686 ZAHL = ABS+118 ;PUNKTEZAEHLER (2 BYTE) 

C6AD VARADR = ABS+157 ;VARIABLENFLAG 

(676 X.SREG = ABS+102 ;X-SPRITEZW.CI6BYTE) 

C6F9 PFLAGS = ABS+233 ;PROZESSORZW.CI6BYTES)(BIS 248) 
C6AC zWISsIa = ABS+156 ;ZWISCHENSP. NUR F. IRQ! 
C68C ZLNR = ABS+124 ;ZEILENNR. DES BASIC-IRQ 
C68E PRGZGR = ABS+126 ;PROGRAMMZ. D. BASIC-IRQ 
c709 SSCHT = ABS+249 ;SCHRITTZAEHLER SPRITE-IRQ-16BYTES 
C699 DCOLTB = ABS+137 ;16 BYTE FARBDRUCKER 

C630 SLOW = ABS+32 ;ZAEHLER F. SIRQ 

c637 RASTI = ABS+39 ;RASTERZEILEN F. 

(638 RAST2 = ABS+40 ;TEXT IN GRAPHIK 

C690 PINSEL = ABS+128 ;PINSEL 

C691 RUECK = ABS+129 

(692 FLAGPI = ABS+130 

(693 FLAGP2 = ABS+131 


C6C4 SKORDI = ABS+180 ;SPRITESATZ1 KOORD. (BIS 196) 
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C6D5 SKORD2 = ABS+197 ;SPRITESATZ2 KOORD. (BIS 212) 
C6E5 SCLMC1I = ABS+213 ;MC-FARBEN (2 BYTES)-SPRITES 1 
C6E7 SCLHGI = ABS+215 ;HGR-FARBEN (BIS 222)-SPRITES 1 
C6EF SCLMC2 = ABS+223 ;SATZ 2 
C6F1 SCLHG2 = ABS+225 ;BIS 232 
;REIHENFOLGE FEST: 
c719 SPVEK = ABS+265 ;SPRITEVEKTOREN 
c729 SPONI = ABS+281 ;ENABLE 
C72A SPON2 = ABS+282 
c72B SPMCI = ABS+283 ;MC 
c72C SPMC2 = ABS+284 
c72D SPPRII = ABS+285 ;PRIORITAET 
C72E SPPRI2 = ABS+286 
c72F SPYEXI = ABS+287 ;Y-EXPAND 
c730 SPYEX2 = ABS+288 
c731 SPXEXI = ABS+289 ;X-EXPAND 
c732 SPXEX2 = ABS+290 


C6AE STKSAV = ABS+158 ;STACK-ZWIS (158-173) 


’ 
;VORZUBELEGENDE ABS. REGISTER 


‘ 
C64F GRMEM = ABS+63  ;AKT.HGR-SEITE 
C650 COLMEM = ABS+64  ;AKT.COLOR-SEITE 
C651 FABMEM = ABS+65 ;AKT.FARBRAM 
C652 GRMM2 = ABS+66 
0653 COLMM = ABS+67 
0654 FABMM = ABS+68 
C66E SRUNS1 = ABS+94  ;SPRITELAUFMERKER 
C66F SRUNS? = ABS+95 ;SPRITELAUFMERKER 
c670 FILON = ABS+96 ;FILTERREG.(S+23) 
C671 WELLFO = ABS+97 ;WELLENFORMREG.(S+4,S) 
0674 VOLUM = ABS+100 ;VOLUMEREG.(S+24) 
D000 SREG = $D000 ;SPRITELAUFREG. 
C68A IRRSAV = ABS+122 ;COLLISIONMERKER 
C68B CFLAG = ABS+123 ;COLLISIONFLAG 
C6AB SPRII6 = ABS+155 
C6AA FENSTR = ABS+154 
c78F FUNKTI = ABS+383 ;FUNKTIONSTASTENINHALT (383-511) 
C694 RASFLG = ABS+132 ;RASTER-IRQ 
C695 RSFLGI = ABS+133 ;OBEN/UNTEN-RASTER- FLAG 


FREI -> ABS+134 - ABS+136 <- 
-> ABS+174 - ABS+179 <- 
-> ABS+291 - ABS+382 <- 


nn nen 
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;SPRUNGADRESSEN+EXTERNE REGISTER: 


’ 
D000 v = $D000 ;VIDEOCONTROLER 
D400 Ss = $D400 ;SOUNDCHIP 
DDOO W = $DD00 ;CIA2 
0073 CHRGET = $73 ;NAECHSTE ZEICHEN AUS PROGRAMM 
0079 CHRGOT = $79 ;LETZTES ZEICHEN AUS PROGRAMM 
0300 VKTOLD = $300 ;ALTE VEKTOREN 
0314 IRQ = $314 ; IRQ-VEKTOR 
B7EB GETCOR = $B7TEB ;16-BIT-ZAHL->814/$15 + GETBYT 
AEFD CHKCOM = $AEFD ;PRUEFT AUF KOMMA 
B7F1 CHKGET = $B7F1 ; CHKCOM+GETBYT 
B79E GETBYT = $B79E ;HOLT BYTEWERT->X 
E1D4 GETPAR = $E1D4 ;FILENAMEN+GERAETENR. HOLEN 
ADIE FRMEVL = $ADIE ;NAECHSTEN AUSDRUCK AUSWERTEN 
AD8F CHKSTR = $ADBF ;AUF STRING TESTEN 
B248 QERR = $B248 ;ILLIGAL QUANTITY 
AFO8 SERR = $AF0O8 ;SYNTAX ERROR 
8658 STRERR = $8B658 ;STRING TOO LONG 
B6A3 FRESTR = $B6A3 ;STRINGVERWALTUNG 
AD8A FRMNUM = $ADBA ;NUMERISCHEN WERT HOLEN -> FAC 
B7F7 FACINT = $B7F7 __ ;FAC->INTEGER 
ABA3 GOTO = $ABA3 ;BASIC-BEFEHL GOTO 
D600 TABTAB = $D600 ;TABELLE UNTER ROM (RENUMBER) 
D600 STADL = $D600 ;STACK FUER PAINT: 
D700 STADH = $D700 
D800 STMSK = $D800 
D900 STES = $D900 
0302 EINGAB = $0302  ;EINGABE-WARTESCHLEIFEN-VEKTOR 
0400 TEXRAM = $0400 ;TEXT-VIDEORAM 
E112 BASIN = $E112  ;ZEICHEN-EINGABE 
E1OC BASOUT = $EI0C ;ZEICHEN-AUSGABE 
EICC CLOSE = $EICC ;DATEI SCHLIESSEN 
E118 CHKOUT = $E118 ;AUSGABEKANAL OEFFNEN 
FFCC CLRCH = $FFCC  ;KANAELE SCHLIESSEN 
EIIE CHKIN = $EIIE ;EINGABEKANAL OEFFNEN 
B9TE OERR = $B97E ;OVERFLOW-ERROR 
E1C1 OPEN = $EIC1 ;DATEI OEFFNEN 
F6BF SAVOUT = $F68F ;"SAVING' AUSGEBEN 
FSAF SRCHOU = $FS5SAF ;"SEARCHING FOR ...! AUSGEBEN 
F5D2 LODUT = $F5D2  ; "LOADING! AUSGEBEN 
c400 HARD = $C400 ;POSITION DER HARDCOPY-ROUTINE 
BDCD INTOUT = $BDCD ;POS. INTEGERZAHL IN A/X AUSGEBEN 


FFE1 CHKSTP = $FFEI ;STOP-TASTE ABFRAGEN 


’ 


‘ 
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;$D-SEITENBELEGUNG (RAM): 


;$D000-$DIFF: SPRITE-REG. 
;$0200-$D5FF: SPRITE-DEFINITIONEN 
;$0600-$D8FD: STACK F. RENUMBER 


RR 


onen nn 


ar “x 
**  SUPERGRAPHIK 64 1986 ** 
aid ar 
5#* === PROGRAMMSTART --- ** 
Fand ar 


Re 
’ 


' 


7700 A2 OA INIT LDX #10 ;DIVERSE VEKTOREN VERBIEGEN: 
7702 BD FF 02 11. LDA VKTOLD-1,X ;ALTEN VEKTOR 
7705 9D IF Cc6 STA VKTSAV-1,%X ;MERKEN 
7708 BD FB 77 LDA VKTNEW-1,X ;NEUEN VEKTOR 
77OB 9D FF 02 STA VKTOLD-1,X ;EINSETZEN 
77OE CA DEX ;(S. TABELLE) 
770OF DO Fi BNE 11. 
‘ 
77ı1 E8 INX ;X=1 
7rı2 BD 14 03 10.. LDA IRQ,X ; IRQ/NMI - VEKTOREN 
7715 9 2A C6 STA IRQSAV,X 
7718 BD 18 03 LDA IRQ+4,X 
771B 9, 2C C6 STA IRQSAV+2,X ;EBENFALLS VERBIEGEN 
77IE CA DEX 
77ıF 10 A BPL 10.. 


‚ 
; FUNKTIONSTASTEN VORBELEGEN: 


7721 AO 08 LDY #8 ;8 FUNKTIONSTASTEN 


7723 84 FD STY USE 

7785 E8 INX ;X=0! 

7726 AO 00 LDY #0 

7728 A9 10 100 LDA #16 ;16 BYTES PRO FUNKTIONSTASTE 
7TeA 85 FE STA USE+1 

772C B9 OA 78 10... LDA FUNVOR,Y ;VORBELEGUNG 
772F FO OB BEQ 100.. ;NAECHSTE TASTE 
7731 90 8F c7 STA FUNKTI,X ;KEYS VORBELEGEN 
7734 E8 INX 

7735 C8 INY 

7736 C6 FE DEC USE+1 

7738 D0 F2 BNE 10... ;BEI 16 KEINE 0! 


773A FO OB BEQ 1000 ;UNBEDINGT 


500 


773C 
773E 
773F 
7742 
7743 
7745 
7747 
7749 


7748 
774D 
7750 


7753 
7755 
7757 
775A 
7758 


775D 
775E 
7761 


7762 
7764 
7767 
7769 
776C 
7T6F 
7771 
7774 
7777 
7779 
77T7C 
7TTF 
7782 
7785 
7788 
7788 
778E 
7790 


7793 
7795 
7798 
7798 
779C 


A9 
c8 
9D 
E8 


DO 
C6 
DO 


A9 


8D 


A9 
A2 
9D 


A9 
8D 
A9 
8D 
8D 
A9 
8D 
8D 
A9 
8D 


8D 
8D 
8D 
8D 
A9 
8D 


AO 


8r 


D2 


1E 
00 
19 


01 
1F 
1B 
00 
9 
30 
20 
21 
1D 
BA 
88 
FF 
8A 


EB 
4F 


c7 


78 


c6 
c6 
DO 
DO 
c6 
C6 
c6 


02 


78 
c6 


100.. 


100... 


1000 


son. 


=. 


10 


- 


10. 


LDA 
INY 
STA 
INX 
DEC 
BNE 
DEC 
BNE 


LDA 
STA 
STA 


LDA 
LDX 
STA 
DEX 
BPL 


SEI 
JSR 
cLI 


LDA 
STA 
LDA 
STA 
STA 
LDA 
STA 
STA 
LDA 
STA 
STA 
STA 
STA 
STA 
STA 
STA 
LDA 
STA 


LDX 
LDA 
STA 
DEX 
BPL 
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HSAO ;REST MIT $AO AUFFUELLEN 
;0 LEBERSPRINGEN 
FUNKTI,X 


USE+1 
100... 
USE 
100 


#5 ;GRUEN 
coL3 
cOL3ZW 


#0 
#6 
SRUNS1,X ;SOUNDREG+SPRITELAUF 


10 


BRKGET 


#588  ;SEITE 1 

GFLAG2 ;NACH SEITENFLAG 
#0 ;SCHWARZ 

BCOL ;ALS HINTERGRUND 
BGRDZW ;ALS HINTERGRUND SEITE 2 
# 

LCOLO ;PUNKTFARBE = 1 
coL2 

#0 

RASFLG ;IRQ-FLAG LOESCHEN 
SLOW 

V+32 _ ;RAHMEN 

v+#33 _ ;HINTERGRUND 

TCOL _ ;TEXTFARBE 

IRRSAV 

CFLAG ;COLLISIONSFLAG 
ASFF 

650 ;ALLE TASTEN REPEAT 


#5 
PAGE1G,X 
GRMEM,X ;BEFEHLSRICHTUNGSREGISTER 


10. 
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779E AY 00 LDA #<INIT 
77RO AO 77 LDY #>1INIT ;PROGRAMMSTARTADRESSE 
7Ta2 85 33 STA $33 
7TAL 84 34 STY 334 ;">START STRINGS 
77A6 85 35 STA $35 
77A8 84 36 STY $36 ;->HILFZ. STRINGS 
77AA 85 37 STA $37 
7TAC 84 38 STY $38 ;->BASIC-RAM ENDE 
7TRE AS 2D LDA $%2D 
7780 A4 2E LDY $2E ;START VARIABLEN 
7782 85 2F STA $2F 
7784 84 30 STY $30 ;">START ARRAYS 
7786 85 31 STA $31 
7788 84 32 sTY $32 ;">ENDE ARRAYS 

‘ 
77BA A9 00 LDA #0 
77BC 80 15 DO STA V+21 ;SPRITE ENABLE 
77BF 8D 88 C6 STA SPRITI 
77c2 80 89 C6 STA SPRIT2 
77C5 A9 OE LDA #14 ;HELLBLAU 
77C7 8D 1A C6 STA COL1 
77CA 20 BC 88 JSR PCOLHG 
77CD 20 4F 88 JSR TEXTM 

’ 
7700 A9 01 LDA #1 
7702 85 02 STA GFLAG ;LGR+TEXTMODUS 
7704 20 9c 7D JSR TRSBEF 
7707 20 9C 70 JSR TRSBEF ;FUER GEND/GSTART! 
77DA 38 SEC 
77DB 20 78 83 JSR GC2 ;GRAPHIK LOESCHEN 
77DE A2 OF LDX #15 
77EO BD 47 78 111 LDA DFABTB,X ;DRUCKFARBVORWAHL 
77E3 9D 99 C6 STA DCOLTB,X ;FUER FARBDRUCKER 
77E6 CA DEX 
77E7T 10 F7 BPL Ill 


‘ 
;KOPF AUSGEBEN: 


77E9 A2 00 LDX #0 

77EB BD 57 78 11 LDA KOPF,X 

7TEE FO 06 BEQ 12 

77TFO 20 D2 FF JSR $FFD2 ;BASOUT 
77F3 E8 INX 

77F& DO F5 BNE 11 

77TF6 20 44 A6 12 JSR $A644  ;NEW-BEFEHL 


77F9 4C AE A7 JMP $ATAE ;INTERPRETER-SCHLEIFE 


502 


T7TFC 
7TFE 
7800 
7802 
7804 
7806 
7808 


780A 
780C 
780E 
780F 
7811 
7813 
7815 
7817 
7823 
7825 
7829 
782B 
7837 
7839 
783D 
783F 
7846 


7847 
784 F 


44 


47 


47 
0D 
47 
0D 
52 
00 


00 
03 


7C 
78 
78 


7A 
93 


c9 
00 


00 
c9 


CD 
00 
CD 


CD 
00 
CD 
00 
c5 


07 
02 


2C 


2C 


02 
03 
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;TABELLE DER NEUEN VEKTORADRESSEN: 


Fänisieisieisintsieieinisioteiskeisieicheieinksteisknheiniekeieinke) 


‘ 

VKTNEW .WOR WARMST 
-WOR GETZEI 
-WOR INTPRT 
„WOR LIST 
„WOR BEFEHL 
„WOR IRQNEU 
„WOR NEWBRK 


un 


; FUNKTIONSTASTEN - VORBELEGUNG: 


III 
’ 


FUNVOR  .ASC "LI" 
.BYT 13,0 
.BYT 147 
.ASC "Lo" 
.BYT 13,0 
.ASC "di" 
.BYT 13,0 
.ASC "gM,7, 161,250" 
.BYT 13,0 
.ASC "gM,0" 
.BYT 13,0 
.ASC "gM,8, 161,250" 
.BYT 13,0 
.ASC "gM, 11" 
.BYT 13,0 
.ASC "rE10, 10" 
.BYT 0 


wunon 


;DRUCKERFARBEN-VORBELEGUNG: 


IR 
‘ 


‘ 
DFABTB .BYT 0,7,2, 
.BYT 3,2, 


on. ne 
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;STARTMELDUNG: 
SERRRRERTERURKE 
7857 92 9E 93 KOPF .BYT 146,158, 147 
785A 3E 3E 3E „ASC ">>>>>> SUPERGRAFIK CBM 64 - 1986 <<<<<<ci 
7882 96 0D .BYT 150,13 
7884 20 20 20 „ASC DATA BECKER" 
7890 OD .BYT 13 
789E 20 20 20 „ASC "" ENTWICKELT VON AXEL PLENGE" 
78BF 0D .BYT 13 
78c0 Ic .BYT 28 
78c1 2A 20 2A .ASC uk A A A a a a a a a oa 
78E8 9A OD 00 .BYT 154,13,0 


on 


;HIGH-BYTES DER 
;VIDEOSPEICHER-STARTADRESSEN: 


RR a a a a a a a a 
’ 


78EB EO PAGEIG .BYT PAIG 
78EC CO PAGEIC .BYT PAIC 
78ED D8 PAGEIF «BYT PAIF 
78EE AO PAGE2G .BYT PA2G 
78EF C8& PAGE2C .BYT PA2C 
78F0 CC PAGE2F .BYT PA2F 


onen 


;UMWANDLUNG EINER ZEILE IN INTERPRETER-CODE: 


Pad SE 23 2 202 23 23 nn 202270 
5 

;QUELLZEILE IN ASCII AB: $200 

;ZIELPUFFER AB: $200 


;PASS 1: EIGENE BEFEHLE-> ZWISCHENTOKEN 
;PASS 2: BASIC 2.0-BEFEHLE TOKENISIEREN 
;PASS 3: ZWISCHENTOKENS-> TOKENS 


’ 

; 

;PASS 1: 

;EIGENE BEFEHLE ERKENNEN: 

;EIGENE BEFEHLE WERDEN ALS TOKEN 
;VON $01 BIS $1F UND VON $60 BIS ... 
;UEBERSETZT. ALLE ANDEREN ZEICHEN 
;BLEIBEN UNBEARBEITET FUER PASS 2. 


s 
’ 


504 


78F1 
78F3 
78F5 


78F7 
78FA 
7BFC 
78FE 


7900 
7902 
7904 
7906 
7908 


790A 
790C 
790E 
7910 


7912 
7914 
7916 
7918 
7919 
7918 
791C 
791D 
791E 
7921 
7922 
7925 


7927 
7929 


7928 
792D 
792F 
7931 


A6 
AO 
84 


BD 
30 
c9 
FO 


85 
c9 
FO 
24 
70 


RBERSR 


CA 
c8 
E8 
BD 
38 
F9 


c9 
DO 


A5 
c9 
90 
69 


7A 
04 
2 


00 
39 
20 
35 


08 
22 
54 
OF 
2B 


30 
04 
3C 
23 


71 
01 
0B 


7A 


00 


92 
F5 


80 
36 


0B 
20 
02 
3F 


02 


02 


7A 


18 LDA 


INTPRT LDX 
LDY 
STY 


. 
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PRGZG ;QUELLPOINTER->X 
Hu ;ZIELPOINTER AUF 4 
sor ;FLAG FUER HOCHKOMMA: "" 


;HAUPTSCHLEIFE: 


. 

13 LDA 
BMI 
CMP 
BEQ 


STA 
CMP 
BEQ 
BIT 
BVS 


CMP 
BCC 
CMP 
BCC 


$200,X ;ZEICHEN AUS PUFFER (QUELLE) 


14 ;BASIC-CODE->OHNE BEARBEITUNG IN PUFFER 
g" n 
14 ;EBENSO LEERZEICHEN 


$08 ;ZEICHEN MERKEN 
#822 ;HOCHKOMMA "1117 


15 ;JA->HOCHKOMMAMODUS 

SOF 

14 ; HOCHKOMMAMODUS 

zuıon zo? 

13.A ;JA 

#$3C _ ;ZIFFERN, DOPPELPUNKT... 
14 ;UNBEARBEITET IN PUFFER 


;BEFEHL IN BEFEHLSTABELLE SUCHEN: 


13.A STY 
LDY 
sIY 
DEY 
STX 
DEX 

13.B INY 
INX 


SEC 
SBC 
BEQ 


CMP 
BNE 


er 


LDA 
CMP 
BCC 
ADC 


- 


$71 :zIELPOINTER RETTEN 
#1 
$0B ;TOKENSPEICHER 

;Y=0 


PRGZG ;X NACH QUELLPOINTERSPEICHER 


;TABELLENPOINTER INC 
sQUELLPOINTER INC 
$200,X ;ZEICHEN AUS PUFFER 


BEFTAB-1,Y ;MIT ZEICHEN IN TAB VERGL. 
13.B ;GLEICH 


#580 ;$80 ABZIEHEN FUER ENDE/KUERZEL 
16 ;NICHT GLEICH->NAECHSTEN BEFEHL TESTEN 


$0B ;TOKEN OHNE 7. BIT 

#820 

14.2 

#S3F  ;LEGALE ZEICHEN UEBERSPRINGEN. (C=1!) 
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;TOKEN/ZEICHEN SPEICHERN: 


’ 


7933 A4 71 14.2 LDY $71 ;ZIELPOINTER->Y 

7935 E8 14 INX ;INC QUELLPOINTER 

7936 C8 INY ;INC ZIELPOINTER 

7937 99 FB 01 STA $1FB,Y ;TOKEN/ZEICHEN NACH ZIELPUFFER 
793A B9 FB 01 LDA $1FB,Y ;FLAGS SETZEN 

793D FO 36 BEQ 17 ;ZEILENENDE 

793F 38 SEC 

7940 EI 3A sBce #:" ;DOPPELPUNKT? 

7942 FO 04 BEQ 14.A ;JA->BEFEHLSENDE 

7944 C9 49 CMP #$49 ;BEFEHL DATA? 

7946 DO 02 BNE 14.B ;NEIN 

7948 85 OF I4.A STA $OF ; HOCHKOMMAFLAG 

794A 38 14.B SEC 

794B E9 55 sBC #855 ;REM? 

794D DO AB BNE 13 ;NEIN->NAECHSTES ZEICHEN 


; 
;REM/HOCHKOMMA - SCHLEIFE 
794 


794 F 85 08 STA $08 ;0 NACH REM-FLAG 


7951 BD 00 02 I4.C LDA $200,X ;ZEICHEN HOLEN 


7954 FO DF BEQ 14 ;ZEILENENDE->WIEDER IN HAUPTSCHLEIFE 
7956 C5 08 CMP $08 

7958 FO DB BEQ 14 sEVT. AUF DOPPELPUNKT TESTEN 

795A C8 15 INY 

795B 99 FB 01 STA $1FB,Y ;NACH ZIELPUFFER 

795E E8 INX 

795F DO FO BNE I4.C ;NAECHSTES ZEICHEN (UNBEDINGT) 


NAECHSTEN BEFEHL IN TABELLE SUCHEN: 


nenn 


7961 A6 7A 6 LDX PRGZG ;QUELLPOINTER 

7963 E6 OB INC $0B ;INC TOKENSPEICHER 

7965 C8 16.A INY ;INC TABELLENPOINTER 

7966 B9 91 7A LDA BEFTAB-2,Y 

7969 10 FA BPL 16.A ;BIS BEFEHLSENDE SUCHEN 

796B BY 92 7A LDA BEFTAB-1,Y ;NAECHSTES ZEICHEN 

796E DO AE BNE 18 ;NOCH NICHT TABELLENENDE->WEITERSUCHEN 
i 

7970 BD 00 02 LDA $200,X 


7973 10 BE BPL 14.2 ;UNBEDINGT 
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;ENDE PASS 1: 


7975 99 FD 01 17 STA $1FD,Y 


mn 


;PASS 2: 

;BASIC 2.0 - BEFEHLE ERKENNEN 
;UND REGULAER TOKENISIEREN. 
;DABEI BLEIBEN DIE SUPERGRAPHIK- 
;ZWISCHENTOKENS UNVERAENDERT. 


7978 A9 00 LDA #0 
TOTA 85 7A STA PRGZG ;QUELLPOINTER WIEDER ZURUECK 
797C 20 c1 9 JSR INTPO ;ZUM ALTEN INTERPRETER 

E 

; 

PASS 3: 


;SUPERGRAPHIK - ZWISCHENTOKENS 
;IN REGULAERE TOKENS UMWANDELN (7.BIT=1) 
ö 


, 


797F A2 00 LDX #0 ;QUELLPOINTER 

7981 AO 04 LDY #4 ;ZIELPOINTER 

7983 84 OF STY $OF ;HOCHKOMMAFLAG 

7985 BD 00 02 19 LDA $200,X ;ZEICHEN HOLEN 

7988 30 17 BMI 110 ;BASIC 2.0 - TOKEN 

798A FO 15 BEQ 110 ;ZEILENENDE 

798C C9 22 CMP #%22 ; HOCHKOMMA 

798E FO 2A BEQ 111 ;JA 

7990 24 OF BIT $OF ;HOCHKOMMAFLAG 

7992 70 0D BVS 110 ;GESETZT 

7994 C9 20 CMP #820 ;UNTER $20 -> ZWISCHENTOKEN 
7996 90 07 Bcc 110. ;UMWANDELN 

7998 C9 60 CMP #860 

799A 90 05 Bcc 110 ;UEBER $20, UNTER $60 -> WEITER 


’ 
;ZWISCHENTOKEN UMWANDELN: 


r 


799C E9 40 SBC #840 ;c=1! 
799E 18 CcLC 
799F 69 D6 110. ADC H#FSTBEF+$7F ;C=0! 


’ 
;NACH ZIELPUFFER SPEICHERN: 


79A1 E8 110 INX 

79A2 CB INY 

79A3 99 FB 01 STA $1FB,Y 

79A6 B9 FB 01 LDA $1FB,Y ;FLAGS SETZEN 


79A9 DO DA BNE 19 ;KEIN ZEILENENDE->WEITER 


Kommentiertes Source-Listing 





79AB 99 


79AE 


7981 
79B4 
7986 
7988 
79BA 
79BB 
7IBE 
79BF 


79C1 


79C4 


79C6 


79c9 
79CB 
79CD 
79CF 
7901 
7903 


7905 
7906 
7908 
7909 
79DB 


4c 


BD 
FO 
c9 
FO 


9 
E8 


6C 


6C 


c9 
FO 


90 
24 
30 


38 
E9 
AA 


AO 


FD 
0E 


00 
EB 
22 
E7 


FB 


24 


26 


FF 
F9 
D7 
F5 
OF 
Fl 


D6 


49 
FF 


01 
A6 


02 


c6 


c6 


STA $1FD,Y ;LETZTES ZEICHEN NACH PUFFER 
JMP $A6OE ;ZEILE INS PROGRAMM EINSETZEN 


;HOCHKOMMASCHLEIFE: 


‘ 
112 LDA $200,X 
BEQ 110 ;ZEILENENDE 
CMP #%22 
BEQ 110 ;HOCHKOMMA->WIEDER ZURUECK 
111 INY 
STA $1FB,Y ;ZEICHEN NACH PUFFER 
INX 
BNE 112 ;UNBEDINGT 
; 


’ 


;ALTER INTERPRETER: 


Dad 2 2 2 2 2 2 2 2 2 2 2 ad 2 zz 
‘ 


INTPO JMP  (VKTSAV+4) 


EINEN BEFEHL/ZEICHEN AUFLISTEN: 
* 


Aa a 0 2 2 2 a 2 2 a a a 2 2 a a 2 2 2 A 2 2 2 2 2 2 2 22 


un ne nenn 


‘ 
LIST BMI LIS5 ;ZEICHEN/BEFEHL IN A 


’ 
;ALTER LIST-VEKTOR: 


’ 
LSTO JMP  (VKTSAV+6) 


‘ 


’ 
LIS5 CMP #SFF ;p1? 
BEQ LSTO 
CMP H#S80+FSTBEF ;< ERSTER BEFEHL? 
BCC LSTO ;JA->ALTER BEFEHL 
BIT $OF ; HOCHKOMMA 
BMI LSTO 


‘ 
;EIGENE BEFEHLE LISTEN: 


’ 

LISO SEC ;TOKEN ZU 
SBC #S87F+FSTBEF ;POINTER UMRECHNEN 
TAX ;POINTER AUF TABELLE ->X 
STY 349 


LDY #SFF ;BEFEHLSTABELLENPOINTER 


- 
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;SUCHE BEFEHL: 
’ 
79DD CA LIS1 DEX 
79DE FO 08 BEQ LIS3 ;GEFUNDEN 


’ 


;SUCHE BEFEHLSENDE: 


79E0 C8 LIS2 INY 

79E1 BY 93 7A LDA BEFTAB,Y 

79E4 10 FA BPL LIS2 

79E6 30 F5 BMI LIS1 ;UNBEDINGT 


;GEFUNDENEN BEFEHL AUSGEBEN: 


79E8 C8 L1s3 INY 
79E9 B9 93 7A LDA BEFTAB,Y 
79EC 30 05 BMI LIS4 
79EE 20 47 AB JSR $AB47 
79F1 00 F5 BNE LIS3 
79F3 4C EF A6 LIS4 MP $AGEF 

Lana 

Ser “x 

;*® BEFEHL: IRETURN ** 

se “x 

; Kia 2 2 2 2 2 2 202 2 2 2 22 2 22 2 22 202 
79F6 20 EI 92 RETIRQ SR CLRCOL ;COLLISION LOESCHEN 
79F9 AD 8B C6 LDA CFLAG 
T9FC 29 BF AND #%10111111 
79FE 8D 8B C6 STA CFLAG ;INTERRUPTFLAG LOESCHEN 
TAO1 A9 FF LDA #SFF 
7A03 85 4A STA $4A 
7A05 20 8A A3 JSR $A3BA ;GOSUB-SATZ AUF STACK SUCHEN 
TAO8 9A TXS ;STACK AUSRICHTEN 
7A09 C9 8E CMP #SBE ;IRQ-GOSUB-ERKENNUNG? 
7AOB FO 03 BEQ RETI  ;JA->OK. 


7AOD 4C EO AB JMP $A8BEO ;RETURN WITHOUT GOSUB 
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7A10 68 RET1 PLA ;CODE FUER IRQ-GOSUB 
7A11 68 PLA 
7a12 85 39 STA $39 
7A14 68 PLA 
7A15 85 3A STA $3A ;ZEILENNUMMER 
7A17 68 PLA 
7A18 85 7A STA PRGZG 
7A1A 68 PLA 
7A1B 85 7B STA PRGZG+1 ;PROGRAMMZE IGER 
7A1D 4C 6A 7A JMP B3 ;PROGRAMM WEITER AUSFUEHREN 
‘ 
‘ 
‚ 
;BEFEHLSAUSFUEHRUNG: 
Jens 
’ 
7A20 A5 9 BEFEHL LDA $9D ;MODUS- FLAG 
7a22 10 05 BPL BO ;PROGRAMM- MODUS 
7A24 A9 00 LDA #0 ;COLLISIONSFLAG 
7A26 8D 8B C6 STA CFLAG ;IM DIREKTM. LOESCHEN 
‘ 
7A29 2C 8B C6 BO BIT CFLAG ;COLLISION PRUEFEN? 
7A2c 10 3C BPL B3 ;NEIN 
7A2E 70 3A BVS B3 ;INTERRUPT FLAG 
‘ 
7A30 AD 8A C6 LDA IRRSAV ;COLLISION ERFOLGT? 
733 FO 35 BEQ B3 ;NEIN->NORMAL WEITER 


.. 


;COLLISIONS-GOSUB AUSFUEHREN: 


735 A9 00 LDA #0 

7a37 8D 8A C6 STA IRRSAV ;COLLISIONSFLAG WIEDER LOESCHEN 
7A3A A9 03 LDA #3 ;6 BYTES 

7ASC 20 FB A3 JSR $A3FB ;PLATZ IM STACK? 

7A3F AS 7B LDA PRGZG+1 

7A41 48 PHA 

7AG2 AS 7A LDA PRGZG ;AKTUELLEN 

7A4LL 48 PHA ;PROGRAMMZEIGER AUF STACK 
7A45 AS 3A LDA $3A 

7A47 48 PHA 

7A48 AS 39 LDA $%39 ;AKTUELLE 

7AGA 48 PHA ;ZEILENNUMMER AUF STACK 
7A4B A9 BE LDA #$8E ; IRQ-GOSUB-ERKENNUNG 


7A4D 48 PHA ;AUF STACK 
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TAGE 
7A51 
7A53 
7A56 
7A58 
7ASB 
7A5D 
7A60 
7A62 
7A65 
7A67 


TA6A 
7A6D 
TA6F 
7a7ı 
7A73 
7A75 
7A78 


7A7B 
TATC 
7A7D 
7A80 
7A81 
7A84 
7A85 


7A88 
7ABA 
7A8C 
7ABE 
7A90 


AD 8E 
85 7A 
AD &F 
85 7B 
AD 8C 
85 39 
AD 8D 
85 3A 
AD 8B 
09 40 
8D 8B 


20 73 


FO 17 
E9 D6 
90 13 


4C AE 


0A 
AB 
B9 60 
48 
B9 5F 
48 
4c 73 


AS 7A 
DO 02 
C6 7B 
c6 7A 
6C 28 


c6 


c6 


c6 


c6 


c6 


c6 


00 


7A 


7B 


7B 


00 


c6 
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‚PROGRAMM SOLL NUN HINTER DEM IF# CC THEN 
;WEITERGEFUEHRT WERDEN: 


‘ 
LDA PRGZGR 
STA PRGZG 
LDA PRGZGR+1 ;PROGRAMMZEIGER DER 
STA PRGZG+1 ;Ir#... "DEFINITION 
LDA ZLNR 
STA $39 
LDA ZLNR+1 ;ZEILENNUMMER DER 
STA $3A ;Ir#... "DEFINITION SETZEN 
LDA CFLAG 
ORA #8%40 
STA CFLAG ;INTERRUPT FLAG SETZEN 
‚ 
r 
;BEFEHL AUSFUEHREN: 


’ 
B3 JSR CHRGET ;ZEICHEN AUS PROGRAMM 
CMP HSFF 
BEQ BEFO ;pI 
SBC ASTF+FSTBEF ;C=0! 
BCC BEFO ;ALTER BEFEHL 
JSR Bi ;SUPERGRAPHIKBEFEHL AUSFUEHREN 
JMP $ATAE ;ZURUECK ZUR HAUPTSCHLEIFE 


‘ 
‘ 


;SUPERGRAPAHIK-BEFEHL AUSFUEHREN: 


;EINGANG: 
» A: TOKEN 
’ 
B1 ASL A ;*2 UND 7. BIT WEG 
TAY ;ALS POINTER AUF ADRESSENTABELLE->Y 
LDA ADRTAB+1,Y 
PHA 
LDA ADRTAB,Y ;BEFEHLSADRESSE ALS 
PHA ;RUECKSPRUNGADRESSE ->STACK 


JMP CHRGET ;NXT ZEICHEN UND SPRUNG AUF BEFEHL 
v 
’ 
;BASIC 2.0 - BEFEHL AUSFUEHREN: 
; 
BEFO LDA PRGZG 
BNE BEFO1 
DEC PRGZG+1 
BEFO1 DEC PRGZG ;PRGZG DEC 
JMP (VKTSAV+8) ;ALTEN BEFEHL AUSFUEHREN 


7A93 
7A9C 
7AA2 
7AA7 
7AAD 
7AB2 
7AB7 
7ABA 
7ABF 
7Ac2 
7AC3 
7Ac7 
TACC 
7AD2 
7AD3 
7AD9 
7ADE 
7AES 
7AEI 
7AEE 
TAF3 
TAF8 
7AFE 
7803 
7807 
7BOB 
7BOF 
7814 
7B1A 
7B1E 
7824 
7B2A 
7B2F 
7830 
7835 
7836 
7B3A 
783B 
7B3F 
7840 
7845 
7B4A 
7B4F 
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4 


47 
4 
4D 
52 
48 
54 
50 


54 
53 


53 


49 
50 
43 
54 
45 
45 
45 
52 
4F 


55 
Gr 
Gr 


52 
Gr 
Gr 
41 
52 
4E 
D9 
41 
53 


4E 
55 
4c 


4F 


4F 


41 
Gr 
4F 
45 


;ASCII-BEFEHLSTABELLE: 


rosa 
r 
;BEIM LETZTEN ZEICHEN EINES BEFEHLS 


;IST JEWEILS ALS ENDE -MARKIERUNG 
;DAS 7.BIT GESETZT 


: 

’ 

BEFTAB „ASC "directorY" 
.ASC "spoweR"" 
„ASC "gcomB" 
.ASC "dtaseT" 
.„ASC "mergE" 
„ASC "renuM!" 
„ASC "key" 
„ASC "trans" 
„ASC ""pos!! 
.BYT "=14+$80 
.ASC "tune" 
„ASC "sound"! 
„ASC "volume!" 
.BYT "=14$80 
„ASC "filter" 
.„ASC "sreaD" 
.ASC "sdefinE" 
„ASC "sseT" 
„ASC "swaiTt" 
„ASC "smodE" 
„ASC "gmode" 
.ASC "gclear" 
„ASC "gmoveE!' 
„ASC "ploT" 
„ASC "draw!" 
.ASC "fill" 
„ASC "frame!" 
„ASC "invers" 
„ASC "texT" 
.ASC "circlE" 
„ASC "paddle" 
.ASC "scale" 
.BYT "=14+$80 
.ASC "color" 
.BYT "=14+$80 
.ASC "scol" 
.BYT "=14+$80 
.ASC "pcol" 
.BYT "=14+$80 
„ASC "gsavE" 
.ASC "gloaD" 
.ASC "hcopY" 
„ASC "ireturN"" 
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7856 49 46 .ASc "if" 

7858 A3 .BYT "#"+$80 

7859 50 41 49 .ASC "paint" 

7B5E 00 .BYT 0 ;TABELLENENDE 


TABELLE ALLER BEFEHLSADRESSEN 
MINUS 1 (WEGEN RTS-ANSPRUNG): 
* 


Ed a 2 a 2 2 202 zZ E22 2 2 272220202 72727277 


Dun none ne nenn 


7B5F 82 9D DRTAB .WOR DIREKT-1 
7861 FO 90 «WOR SPRPOW- 1 
7863 1D 84 «WOR GCOMB- 1 
7865 1B 9B «WOR DATAST-1 
7867 04 9B «WOR MERGE - 1 
7869 38 9B .WOR RENUM-1 
7B6B 48 9D .WOR KEY-1 
7B6D CF 82 «WOR TRANSS-1 
7B6F 2F 9D «WOR POSITI-1 
7871 01 96 „WOR TUNE-1 
7873 4D 95 «WOR SOUND - 1 
7875 37 95 «WOR VOLUME - 1 
7877 8F 96 «WOR FILTER-1 
7879 92 8F .WOR SREAD-1 
7B7B OF 8F .WOR DEFINE-1 
787D 57 92 .WOR SSET-1 
7B7F 65 93 «WOR SWAIT-1 
7881 47 90 .WOR SMODE- 1 
7883 8A 8A .WOR GMODE- 1 
7885 61 83 «WOR GCLEAR-1 
7887 73 88 «WOR GMOVE - 1 
7889 D8 7F «WOR PLOT-1 
7B8B 7D 8C «WOR DRAW- 1 
7B8D 9A 80 «WOR FILL-1 
7B8F C5 80 .WOR FRAME - 1 
7891 D9 83 .WOR INVERS-1 
7893 07 97 «WOR TEXT-1 
7895 36 98 .WOR CIRC-1 
7897 19 91 .WOR PDL-1 
7899 78 8D .WOR SCALE-1 
7B9B DE 8B .WOR BCOLOR - 1 
7B9D 68 8B .WOR SCOLOR - 1 
7BIF 98 8B .WOR PCOLOR - 1 
7BA1 27 8E .WOR GSAVE-1 
7BA3 4A 8E „WOR GLOAD-1 
7BAS FF C3 «WOR HARD- 1 
7BA7 F5 79 .WOR RETIRQ-1 
7BA9 C7 91 «WOR IFZ-1 
7BAB DB 9D «WOR PAINT-1 


7BAD 00 .BYT 0 ;TABELLENENDE 
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onen. 


‚NEUE BRK/NMI -ROUTINE: 


III RE 
’ 


v 
TBAE 48 NEWBRK PHA 
TBAF 8A TXA 
7BBO 48 PHA 
7BB1 98 TYA 
7BB2 48 PHA ;REGISTER RETTEN 
‘ 
7883 A9 7F LDA #$7F 
7885 80 OD DD STA $DDOD ;NMI-MOEGLICHKEITEN LOESCHEN 
78B8 AC OD DD LDY $DDOD ;FLAGS LESEN UND LOESCHEN 
7BBB 20 BC F6 JSR $F6BC ;FLAG FUER STOP-TASTE SETZEN 
7BBE 20 EI FF JSR $FFEI ;sTop? 
7BC1 FO 03 BEQ BRKO iJA 
7803 4c 72 FE JMP $FE7T2 ;NMI FUER RS232 


’ 
i 
;BREAK-ROUTINE: 


’ 
7BC6 20 D2 7B BRKO JSR BRKGET ;INTERRUPT-VEKTOREN 
78C9 20 59 7C JSR GROFF ;GRAPHIK AUS 
7BCC 20 A3 FD JSR $FDA3 ;INTERRUPT INIT 
7BCF 6C 02 AO JMP ($A002) ;BASIC-WARMSTART 


ne. 


; INTERRUPT-VEKTOREN SETZEN: 


78D2 A2 01 BRKGET LDX #1 


78D4 BD 08 78 BRKI LDA VKTNEW+12,X 

7807 90 18 03 STA IRQ+4,X ;NMI-ADRESSE 
7BDA BD 06 78 LDA VKTNEW+10,X 

7BDD 9D 14 03 STA IRQ,X ; IRQ-ADRESSE 
7BEO CA DEX 

7BE1 10 Fi BPL BRKI 

7BE3 60 RTS 


;ZEICHEN-GET-ROUTINE: 


III a a a 
‘ 


i 
7BE4 A5 C6 GETZEI LDA $C6 ;ZAHL DER GEDRUECKTEN TASTEN 
7BE6 85 CC STA $CC ;CURSOR: O=EIN/<>O=AUS 

7BE8 FO FA BEQ GETZEI ;EIN 

7BEA 48 PHA 
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7BEB 78 SEI 

7BEC AS CF LDA $CF ;CURSOR IN BLINK-PHASE? 

7BEE FO OC BEQ GETZA ;NEIN! 

7BFO AS CE LDA $CE ;ZEICHEN UNTER CURSOR 

7BF2 AE 87 02 LDX $%0287 ;FARBE UNTER CURSOR 

7BF5 AO 00 LDY #0 

7BF7 84 CF STY SCF ;CURSOR NICHT IN BLINKPHASE 

7BF9 20 13 EA JSR $EA13 ;ZEICHEN+FARBE SETZEN 

7BFC 68 GETZA PLA ;ANZAHL ZEICHEN 

7BFD AA TAX 

TBFE CA DEX ;MINUS 1 

7BFF BD 77 02 LDA %0277,X ;ZEICHEN DES TASTATURBUFF. 

7co2 38 SEC 

7C03 E9 85 sBcC #133 ; FUNKTIONSTASTE? 

7C05 90 3A BCC GETZ1 ;NEIN 

7c07 C9 08 CMP_ #8 

7C09 BO 36 BCS GETZ1I ;NEIN 
;FUNKTIONSTASTE: 

7coB 18 CcLC 

7Coc 2C E5 FD BIT $FDES ;=$04 

7COF FO 03 BEQ GETZ6 

7C11 29 03 AND #3 

7C13 38 SEC 

7C14 2A GETZ6 ROL A ;ASCII-WERT KORRIGIEREN 

7C15 OA GETZ2 ASL A 

7C16 DA ASL A 

7C17 0A ASL A 

7C18 OA ASL A ;*16 

7C19 A8 TAY ;ALS POINTER 

7C1A A2 00 LDX #0 

7CIC 86 C6 STX $C6 ‚ANZAHL ZEICHEN 

7CIE BY 8F C7 GETZ3 LDA FUNKTI,Y ;BEFEHL 

7c21 C9 AO CMP_ #$AO ;LEERSTELLE? 

7c23 FO 10 BEQ GETZ7 ;JA->FERTIG 

7c25 20 0C EI JSR BASOUT ;AUSGEBEN 

7c28 C9 OD CMP #$0D 

7C2A FO OF BEQ GETZ9 ;CR 

7c2c 9D 00 02 STA $%200,X ;IN EINGABEBUFFER 

7c2F C8 INY 

7Cc30 E8 INX 

7c31 EO 10 CPX #16 


7c33 DO E9 BNE GETZ3 ;NAECHSTES ZEICHEN 
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7c35 20 62 A5 GETZ7 JSR $A562 ;WEITER 
7C38 4C 3E 7C JMP GETZB 


7C3B 20 CA AA GETZ9Y JSR $AACA ;MIT O ABSCHLIESSEN + CR 
7C3E 4C 86 A4 GETZB JMP $A4B6 ;WEITER 


' 
7C41 6C 22 C6 GETZI JMP K(VKTSAV+2) ;ALTE EINGABESCHLEIFE 


’ 
‚NEUER WARMSTART: 


are 
’ 


7C44 A9 37 WARMST LDA #837 


7C46 85 01 STA 1 ;ROM EIN 

7C48 58 CLI 

7C49 8A TXA ‚FEHLERMELDUNG MERKEN 
TC4A 48 PHA 

7C4B 10 04 BPL WARM2 ;FEHLER! 

7C4D 24 9D BIT $9D ;DIREKTMODUS? 

7C4F 30 03 BMI WARMI ;JA=> NICHT UMSCHALTEN 


7c51 20 59 7C WARM2 JSR GROFF ;GRAPHIK AUS 


7054 68 WARM1 PLA 
7055 AA TAX 
7056 6C 20 C6 JMP K(VKTSAV) ;ALTER WARMSTART 


i 
i 
;GRAPHIK AUSSCHALTEN: 


ER 2 2 2.8.2.2 2.2.2.20202.2202 02.2.2023 
‘ 


’ 
7C59 20 6C 8A GROFF JSR GMODEI ;GMODE INIT 


7C5c A2 00 LDX #0 

7C5E 8E 94 C6 STX RASFLG ;RASTER-IRQ-FLAG 
7C61 8E 1A DO STX V+26 ;IMR 

7C64 4C AB 8A JMP GM ;GMODE,O AUSFUEHREN 


.enn 


;ZEICHENFLAGS FUER ZEICHENBEFEHLE 
;LVEBERNEHMEN: 


Da SS a Na Na 127 122 en a a a 

; 

;EINGANG: 

s A: LETZTES BEFEHLSZEICHEN 

‚ 
7C67 A2 00 STFLG LDX #0 
7C69 86 97 STX FLG ;FLAG ZURUECKSETZEN 
7C6B C9 43 cmPp Huch ;COLOR -SECUNDAERBEFEHL? 
7c6D DO 05 BNE STF3 ;NEIN 
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7C6F 
7c71 
7C74 


7C76 
7C78 


TC7A 
7C7C 
7C7E 
7Cc80 
7C83 
7C86 
7c89 


7C8C 
7C8E 


7Cc90 
7c92 
7C94 
7C96 
7C99 
7C9C 
T7C9F 
7CA2 
7CA4 
7CA6 
7CA8 
7CAB 
7CAD 
TCAF 


7CB2 
7CB5 
7cB7 


7CB9 
7CBB 


7CBD 
7CcO 
7cc1 
7Cc3 
7CC5 
7cc7 


A2 
20 
86 


c9 
DO 


c9 
DO 


A9 
85 
A9 
8D 
8D 
20 
20 
85 
84 
A5 
8D 
A5 
FO 
4c 


c9 


DO 


A9 


20 
8A 


90 
E9 
BO 


80 
73 
96 


42 
12 


96 
40 
96 
73 
3 
90 
FD 


54 
25 


30 
97 
00 
86 
87 
73 
8B 
49 
4A 
0E 
AD 
0D 


AA 


00 


c6 
c6 
00 
BO 


8r 


00 


B7 


STF3 


’ 
STFO 


z 
STF5 
STF1 


’ 
STF1. 


STF2 


n. 


LDX 
JSR 
STX 


CMP 
BNE 


LDA 
ORA 
STA 
JSR 
JSR 
STX 
JSR 


CMP 
BNE 


LDA 
STA 
LDA 
STA 
STA 
JSR 
JSR 
STA 
STY 
LDA 
STA 
LDA 
BEQ 
JMP 


JSR 
CMP 
BNE 


LDA 


BEQ 


JSR 
TXA 
CMP 
BCC 
SBC 
BCS 
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#%10000000 ;7.BIT SETZEN (FLG2) 
CHRGET ;NAECHSTES ZEICHEN HOLEN 
FLG2 ;FLAG 2 


gu ;BRUSH-PINSEL-SECUNDAERBEF. 
STFO ;NEIN 

FLG2 

#%01000000 ;BIT 6 SETZEN (FLG2) 
FLG2 


CHRGET ;NAECHSTES ZEICHEN HOLEN 
GETBYT ;PINSELART -> X 

PINSEL ;SPEICHERN 

CHKCOM ;AUF KOMMA TESTEN 


AT" ;TEST-SECUNDAERBEFEHL? 
STF1 ;NEIN 


#%00110000 ;TEST-FLG SETZEN 

FLG 

#0 

ZAHL 

ZAHL+1 ;PUNKTEZAEHLER AUF NULL 
CHRGET ;NAECHSTES ZEICHEN HOLEN 
$8088 ;VARIABLE SUCHEN 

$49 ;VARIABLENADRESSE ZWISCHENSP. 


$4A 

$0E ;FLAG FUER INTEGER/REAL 
VARADR ;RETTEN 

$0D ;VARIABLENTYP 


STF5 ;NUMERISCH->OK. 
SR1-5  ;STRING->TYP MISMATCH 


CHRGET ;NAECHSTES ZEICHEN 
A) ;KOMMA? => VEREINFACHUNG 
STF1. ;NEIN 


#0 ;ZEICHENMODUS O = PLOT BEI 
;FEHLENDEM PAR. 
STF6 ;UNBEDINGT 


GETBYT ;ZEICHENMODUS ->X 


sa 

#5 

STF4 

# ;KORREKTUR BEI FEHLEINGABE 


STF2 ;UNBEDINGT 
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7CC9 AA STF4 TAX 

7CCA BD 55 7D LDA PLOTMD,X ;HOLE PLOTMODUSFLAG 

7ccD 05 97 ORA FLG 

7TCcF 85 97 STA FLG ;MIT FLG VERKNUEPFEN 
i 

7CD1 20 FD AE STF6 JSR CHKCOM ; KOMMA? 


’ 
;HOLE ZWISCHENSPEICHER NACH ADL/ADH+MSK: 
; CGRAPHIKCURSOR) 


RR a a a a a a a a 
’ 


’ 
7CD4 48 TAZ PHA ;AKU RETTEN 
7CD5 AD 4B C6 LDA ADRZW 
7CD8 85 AC STA ADL 
7CDA AD 4C C6 LDA ADRZW+1 
7coD 29 IF AND #8$1F 
7CDF OD 4F C6 ORA GRMEM ;ADRESSE AKTUELLE BILDSEITE 
7CE2 85 AD STA ADH ;NACH ADL/ADH 
7CE4 AD 4D C6 LDA ADRZW+2 
7CE7 85 AB STA MSK 
7CE9 AD 49 C6 LDA LZW 
7CEC 8D 3E C6 STA XL 
7CEF AD 4A C6 LDA LZW+1 
7CF2 8D 3C C6 str Yı ;LGR-KOORDINATEN 
7CF5 68 PLA ;AKU WIEDERHOLEN 
7CF6 60 RTS 


;ADL/ADH+MSK NACH ZWISCHENSPEICHER: 
; (GRAPHIKCURSOR ) 


RR a a a a a a a a 
’ 


7CF7 A6 AC TZA LDX ADL 
7CF9 8E 4B C6 STX ADRZW 
7CFC A6 AD LDX ADH 
7CFE 8E 4C C6 STX ADRZW+1 
7001 A6 AB LDX MSK 
7003 8E 4D C6 STX ADRZW+2 
7006 AE 3E C6 LDX xXiL 
7009 8E 49 C6 STX LZW 
7D0OC AE 3C C6 LDX Y1 

7DOF 8E 4A C6 STX LZW+1 ;LGR-KOORDINATEN 
7012 60 RTS 


sense 


;USE MIT GRAPHIK-ADRESSEN LADEN: 


Paabal dos E 20502 02 220 2 a 2 
i 
7013 AD 50 C6 STUCOL LDA COLMEM 
7016 DO 08 BNE STU ;UNBEDINGT 
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7018 
7D1B 


AD 
DO 
7D1D AD 
7020 
7022 


7024 
7026 


AO 
84 
85 
60 


7027 
7028 
7029 
7D2A 
7D2B 
7D2C 
7D02D 
7D2E 


7027 


7D2F 
7030 
7031 
7032 
7033 
7034 30 
7035 CO 
7036 CO 


03 
03 
oc 
oc 
30 


51 C6 STUD8 
03 
‚ 
4F C6 STUGR 
; 
00 STU 
FD 
FE 


un 


LDA 
BNE 


LDA 


LDY 
sy 
STA 
RTS 


FABMEM 
STU 


GRMEM 
#0 


USE 
USE+1 


:Y 


0 
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;UNBEDINGT 


;REFERENZTABELLE ZUR UMWANDLUNG 


;EINFACHER WERTE VON 0-7 IN 
;1-BIT-MUSTER: 


TTTTTTTe 
' 


’ 
MSKTB1 


„BYT 
.BYT 
.BYT 
.BYT 
„BYT 
„BYT 
.BYT 
„BYT 


%00000001 
%00000010 
%00000100 
%00001000 
%00010000 
%00 100000 
%01000000 
%10000000 


MSKTB1 


;REFERENZTABELLE ZUR UMWANDLUNG 


;EINFACHER WERTE VON 0-3 IN 
;2-BIT-MUSTER: 


Fhnieistoistotstetsteisteinieiieieieieieieieie did 0 5.2.2 


; 
MSKTB2 


.enn 


-BYT 
.BYT 
.BYT 
.BYT 
.BYT 
«BYT 
.BYT 
.BYT 


%0000001 1 
%00000011 
%00001100 
%00001100 
%00 110000 
%00 110000 
%11000000 
%11000000 
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7037 00 01 02 
7D3C 06 07 08 
7041 OC OD OF 
7046 12 14 15 
7048 19 1A 1B 
7050 IF 


7051 00 40 80 


7051 


7055 02 
7056 80 
7057 01 
7058 CO 
7059 20 


;MULTIPLIKATIONSTABELLE 

;FUER N*320: 

ie Wr 

;HIGH-BYTES: 

MUL-H .BYT $00,301,302,303,$05 
.BYT $06,307,$08,$0A,$0B 
.BYT $OC,$0D,$0F,$10,$11 
.BYT $12,814,815,816,817 
.BYT $19,$1A,$1B,$1C,$1E 
.BYT $IF 

;LOW-BYTES: 


MUL.L .BYT $00,840,380,$C0 


‘ 

STAB2 = MUL.L 
i 

‚ 

v 

: 

; ZEICHENMODUSFLAG: 

en 


r 
;REFERENZTABELLE: 


PLOTMD .BYT %00000010 ;MODUS O (ZEICHNEN) 
«BYT %10000000 ;MODUS 1 (LOESCHEN) 
.BYT %00000001 ;MODUS 2 (INVERS) 
.BYT %11000000 ;MODUS 3 (PUNKTIERT) 
.BYT %00100000 ;MODUS 4 (GRAPHIKCURSOR) 


; FLG- FLAGBELEGUNG: 


; 
;7.BIT: 1=LOESCHEN 

3 O=ZEICHNEN 

;6.BIT: 1=PUNKTIERT 

5 O=NICHT PUNKTIERT 
;5.BIT: 1=NUR GRAPHIKCURSOR 

5 O=NICHT NUR GC. 

;4.BIT: 1=TEST-MODUS 

; O=KEIN TEST -MODUS 
»3.BIT: % 

;2.BIT: % 

;1.BIT: 1=ZEICHNEN 

’ O=NICHT ZEICHNEN 
;0.BIT: 1=INVERS ZEICHNEN 

5 O=NICHT INVERS ZEICHNEN 


5 


1 


9 
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7D5A 
7058 
705D 
7D5E 
7060 


7062 
7064 
7066 


7D6B 
7D6D 


7D6F 
7071 
7072 
7074 
7076 
7077 
7079 
7D7A 
7D7C 
7D7E 
7080 
7081 


7083 
7084 


78 
5 
48 


85 


A2 
A9 
20 
A9 
84 
85 


B1 
48 
B1 
91 


91 
c8 
DO 
E6 
E6 
CA 
DO 


85 


20 
EO 
20 


AC 
AD 


AC 
FD 


AC 


-ennn 


sonen 
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FLG2-FLAGBELEGUNG: 


;7.BIT: 1=COLOR - SECUNDAERBEFEHL 


sonen. 


;6.BIT: 1=PINSEL-SECUNDAERBEFEHL 


;GRAPHIK-SEITENWECHSEL: 


III a a a a a a 
‘ 


‘ 

TRANS SEI 
LDA 
PHA 
AND 
STA 


LDX 
LDA 
JSR 
LDA 
sTY 
STA 


SFC 
1 ;ROM AUS 


#820 

#PAIG ;GR-SEITE 1 
STU ;NACH USE 
#PA2G ;GR-SEITE 2 
ADL 

ADH ;NACH ADL/ADH 


; GRAPHIKAUSTAUSCH: 


4 

TR1 LDA 
PHA 
LDA 
STA 
PLA 
STA 
INY 
BNE 
INC 
INC 
DEX 
BNE 


PLA 
STA 


(USE),Y ;HOLE BYTE 
;MERKEN 

(ADL),Y 

(USE),Y 


(ADL),Y ; TAUSCHEN 
TR1 

USE+1 

ADH 


TR1 


1 ;ROM EIN 
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;FARBSEITEN WECHSELN: 


7086 A9 CO LDA #PAIC ;FARBSEITE 1 
7088 AO C& LDY #PA2C ;FARBSEITE 2 
7D8A 20 D5 7D JSR TRCOL ;WECHSELN 
7D8D 58 CLI 


i 
;EVT. MULTICOLORFARBE WECHSELN: 


“ 
‘ 


7D8E A5 02 LDA GFLAG 

7090 10 22 BPL TRSB1 ;KEIN MC 

7092 29 08 AND #8 

7094 FO 1E BEQ TRSB1 ;TEXT AN 

7096 8E 21 DO STX Vv+33 ;HINTERGRUNDFARBE 
7099 20 36 8B JSR FRFILL ;FARBRAM FUELLEN 


; 
;BEFEHLSRICHTUNGSTAUSCH: 


‘ 
7D9C AE 75 C6 TRSBEF LDX COL3ZW 


7D9F AD IC C6 LDA COL3 

7D0A2 8D 75 C6 STA COL3ZW 

7DA5 8E IC C6 STX COL3 ;ADRESSE FARBE 3 WECHSELN 
7DAB AD 19 C6 LDA BCOL 

7DAB AE 16 C6 LDX BGRDZW ;HGRUNDZWISCHENSP. 

7DAE 8D 16 C6 STA BGRDZW 

7081 8E 19 C6 STX BCOL ;HINTERGRUNDFARBADR. WECHSELN 


’ 
70B4 A2 02 TRSB1 LDX #2 


70B6 BD 4F C6 TR4 LDA GRMEM,X 

70B9 BC 52 C6 LDY GRMM2,X 

7DBC M 52 C6 STA GRMM2,X 

7DBF 98 TYA 

70CO 90 4F C6 STA GRMEM,X 

70C3 CA DEX 

70C4 10 FO BPL TR4 ;RESTLICHE GRAPHIKADRESSEN 
‚ 

70C6 AE 4F C6 LDX GRMEM 

70C9 E8 INX 

7DCA 8E 18 C6 STX GSTART ;FUER HLINE-VEKTORROUTINEN 
‘ 

7DCD 8A TXA 

7DCE 18 CcLC 

7DCF 69 1D ADC #$1D 

7op1 8D 17 C6 STA GEND ;REG.FUER HLINE+DRAW 


7DD4 60 RTS 


522 


70D5 
7007 
7009 


7DDB 
7DDD 
7DDF 
7DEO 
7DE2 
7DE4 
7DES 
7DE7 
7DE8 
7DEA 
7DEC 
7DEE 
7DEF 
7DF1 


7Dr2 
7DF2 
7DF4 
7DF7 
7DF9 
7DFB 
7DFE 
7E01 


7E03 
7E05 
7E07 
7EOA 
7EOD 
7E10 
7E12 
7E14 


A2 
85 
84 


A9 


85 
85 
AD 
8D 
85 


c9 
90 


AD 
c9 


90 
EE 


04 


AD 


00 
FD 


AC 
FD 


AC 


48 
AB 
AD 
3C 
4A 
AC 


c6 
c6 


c6 
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;FARBE WECHSELN: 


F 


TRCOL LDX #4 
STA USE+1 
STY ADH ;ADRESSEN 


LoY #0 

TR2 LDA (USE),Y 
PHA 
LDA (ADL),Y 
STA (USE),Y 
PLA 
STA CADL),Y ;WECHSELN 
INY 
BNE TR2 
INC USE+1 
INC ADH 
DEX 
BNE TR2 
RTS 


one nen 


;PUNKT IN LGR ZEICHNEN: 


Jesssnnsaaa 
; 
;VEBERGABE: XiL: X-KOORDINATE (LOW-BYTE) 


X1H: X-KOORDINATE (HIGH-BYTE) 
Y1 : Y-KOORDINATE 


une... 


LPLTHP LDA #0 
LPLT = LPLTHP 
STA ZWIS ‚FLAG FUER AUSSERHALB 
STA MSK 
STA ADH 
LDA Y1 
STA LZW+1 
STA ADL ;Y NACH ADL/ADH 


’ 
;KOORDINATEN UEBERPRUEFEN: 


’ 


CMP #50 

BCC L7 

INC ZWIS ;FLAG SETZEN 
L7 LDA XiL 

STA LZW 

CMP #160 

BCC L8 

INC  ZWIS ;FLAG SETZEN 


-. 
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7E1IT AD 48 C6 LB LDA ZWIS 

7E1A DO 50 BNE L9 ;KEIN ZEICHNEN WENN AUSSERHALB 
; 
;PUNKTADRESSE BERECHNEN: 


’ 


7EIC 4E 3E C6 LSR XIL ;X/2 = SPALTENNUMMER 

7EIF 26 AB ROL MSK ;LOW-BIT NACH MSK 

7E21 46 AC LSR ADL ;Y/2 = ZEILENNUMMER 

7E23 26 AB ROL MSK ;LOW-BIT NACH MSK (JEDES ZEICHEN ENTHAELT 4 

PUNKTE) 

7E25 06 AC ASL ADL 

7E27 06 AC ASL ADL 

7E29 06 AC ASL ADL ;ZEILENNUMMER*8 

7E2B A5 AC LDA ADL 

7E2D 48 PHA ;MERKEN 

TE2E A5 AD LDA ADH 

7E30 A8 TAY 
’ 

7E31 06 AC ASL ADL 

7E33 26 AD ROL ADH 

7E35 06 AC ASL ADL 

7E37 26 AD ROL ADH ;ZEILENNUMMER*32 

7E39 18 CLC 

TE3SA 68 PLA ;ZEILENNUMMER*8 HOLEN 

7E3B 65 AC ADC ADL 

7E3D 85 AC STA ADL 

TE3F 98 TYA 

7E4O 65 AD ADC ADH ;ZEILENNUMMER*8+ZEILENNUMMER*32 = 

ZEILENNUMMER*4O 

7E42 18 CcLC 

7E43 69 04 ADC #>$0400 ;PLUS BASISADRESSE BILDSCHIRMSPEICHER 

7E45 85 AD STA ADH ;GLEICH: ZEILENSTARTADRESSE 
‘ 

7E47 A4 AB LDY MSK ;4-PUNKTE-BITMUSTER 

7E49 A9 01 LDA #1 

7E4B 85 AB STA MSK 

7E4D CO 00 L11 cPY #0 

7E4F FO 05 BEQ L10 

7E51 06 AB ASL MSK ;TABELLENOFFSET HERSTELLEN: 

7E53 88 DEY ;0001,0010,0100,1000 


7E54 90 F7 BCC L11 
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7E56 
7E59 
TESB 
7ESD 
7E60 
7E62 
7E63 
7E65 
7E67 
7E69 
TE6C 


TE6E 
7E70 
7E72 


7E74 
7E76 


7E78 
TETA 


TE7C 
7E7E 


7E80 
7E82 
7E84 
7E86 
7E87 
7E89 
7EBA 
7E8B 


7E8D 
7E8F 
7E9O 


7E92 
7E93 
7E9S5 
7E96 
7E99 
7EIB 
7EID 
7EAO 
TEA3 


‚PUNKT SETZEN: 


AC 3E C6 L10 


B1 
AO 
D9 
FO 
c8 
co 
90 
A9 
8D 
DO 


A5 
24 
50 


49 
85 


29 
DO 


24 
10 


A5 
49 
85 
98 
25 
A8 
18 
90 


A5 
4A 
BO 


98 
05 
AB 
B9 
24 
50 
AD 
AC 
91 


AC 
00 
FO 
oc 


10 
F6 
04 
48 
50 


97 
97 
04 


82 
97 


30 
4F 


97 
0D 


AB 
FF 
AB 


AB 


09 


FO 
96 
03 
90 
3E 
AC 


TE L13 


L9 


L12 


- 


3 
LPL4 


LPL5 


LPL2 


7E L12D 


c6 
C6 LI2F 


- 


LDY 
LDA 
LDY 
CMP 
BEQ 
INY 
CPY 
BCC 
LDA 
STA 
BNE 


LDA 
BIT 
BVC 


EOR 
STA 


AND 
BNE 


BIT 
BPL 


LDA 
EOR 
STA 
TYA 
AND 
TAY 
cLC 
BCC 


LDA 
LSR 
BCS 


TYA 
ORA 
TAY 
LDA 
BIT 
BVC 
LDA 
LDY 
STA 
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xıL ; SPALTENNUMMER 
(ADL),Y ;BYTE AUS BILDSCHIRMSPEICHER 
#0 


L16,Y  ;BEREITS EINE PUNKTKOMBINATION? 
L12 zJA 


#810 

L13 

#4 ;NEIN->KEINEN PUNKT ZEICHNEN (NOPLOT) 
ZWIS 

NLPL ;UNBEDINGT! 


FLG ;ZEICHENFLAG TESTEN: 
FLG 
LPL4 


#882 ;PUNKTIERT PLOTTEN 
FLG 


#330 
TLPL ;NOPLOT/TESTPLOT 


FLG 
LPL2 ;PLOT 


MSK ;LOESCHPLOT 

HSFF 

MSK 

MSK ;TABELLENOFFSET HERSTELLEN 


L12D ;UNBEDINGT 


FLG 
A 
LIPLOT ;INVPLOT 


;PLOT 
MSK ;TABELLENOFFSET HERSTELLEN 


L16,Y  ;HOLE ZEICHEN AUS TAB. 
FLG2 ;ZEICHENFLAG 2 

L12F 

PINSEL ;PINSEL 

XL 

(ADL),Y ;IN BILDSCHIRM SPEICHERN 
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7EAS 
7EA7 
TEAY 
TEAC 
7EAE 
7EBO 
7EB2 
7EBS 
7EB7 
7EBY 
7EBC 


7EBE 
7EC1 
7EC4 
7EC7 
7ECA 


7ECB 
7ECD 


TECF 
7EDO 
7ED2 
7ED4 
7ED7 


AS 
29 
0D 
85 
A5 
85 
AD 
24 
10 
AD 
91 


AD 
AC 
8D 
8c 
60 


29 
FO 


98 
25 
FO 
AD 
18 


AD 
03 
51 c6 
FE 
AC 
FD 
86 02 
96 
03 
1A C6 
FD 


49 C6 
4A C6 
3E C6 
30 c6 


10 
EF 


AB 
OE 
86 C6 


7ED& 69 01 


7EDA 
7EDD 
7EDF 
7EE2 
7EE4 
TEE6 
7EE8 


TEEA 
7EEB 
7EED 
7EEE 


7EFO 
7EF8 


8D 
90 
EE 
AS 
29 
DO 
FO 


98 
45 
A8 
BO 


20 
6C 


86 C6 
03 
87 Cc6 
97 
cf 
94 
D4 


AB 


TE 78 
7F 62 


LDA 
AND 
ORA 
STA 
LDA 
STA 
LDA 
BIT 
BPL 
LDA 
L12E STA 


’ 

NLPL LDA 
LDY 
STA 
sTY 
RTS 


TLPL AND 
BEQ 


TYA 
AND 
BEQ 
LDA 
CLC 
ADC 
STA 
BCC 
INC 

LPLTT LDA 
AND 
BNE 
BEQ 

’ 

LIPLOT TYA 
EOR 
TAY 
BCS 


en 


ADH 

#3 

FABMEM ;AKT. FARBRAM 
USE+1 ; FARBRAM 


ADL 

USE 

646 ;MOMENTANE TEXTFARBE 
FLG2 ; FARBFLAG 

L12E 


coL1 ;PLOTFARBE 1 
(USE),Y ;FARBE SETZEN 


LZW ;NOPLOT (NUR CURSOR SETZEN): 
LZW+1 

XL 

Y1 


#510 
NLPL ;NOPLOT 


;TESTPLOT 
MSK 
LPLTT 
ZAHL 


#1 

ZAHL ;ANZAHL DER PUNKTE ERHOEHEN 
LPLTT 

ZAHL+1 

FLG 

#%11001111 

LPL5 

NLPL ;UNBED. 


;INVERTIEREN 
MSK 


L12D ;UNBED. 


;TABELLE DER ZEICHEN MIT PUNKTCHARAKTER: 


; RITTER a  a  a 


L16 .BYT $20,$7E,378,$61,$7C,$E2,$FF,$EC 
.BYT $6C,$7F ,362,$FC,$E1,$FB,$FE,$AO 


en 
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;ZEICHNEN EINER LGR-LINIE: 


IR 
. 


‘ 
7Foo A5 02 LLINE LDA GFLAG ;GRAPHIKFLAG 


7FO2 09 40 ORA #$40 ;AUSSTEIGERMODE LGR 

7FO4 85 02 STA GFLAG 

7FO6 8A TXA 

7F07 A2 00 LDX #0 

7F0O9 8E 11 C6 STX EI 

7FOC 20 E4 87 JSR HLINE ;LINIE ZEICHNEN 

7FOF AS 02 LDA GFLAG 

7F11 29 BD AND #%10111101 

7F13 85 02 STA GFLAG ;AUSSTEIGERMODE WIEDER LOESCHEN 
7F15 AD 10 C6 LDA EO 

7F18 AC 12 C6 LDY E2 

7F1B 80 49 C6 STA LZW 

7FIE 8C 4A C6 STY LZW+1 

7F21 68 PLA 

7F22 8D 12 C6 STA E2 

7F25 68 PLA 

7F26 8D 11 C6 STA EI 

7F29 68 PLA 

7F2A 80 10 C6 STA EO ;HGR-KOORD.WIEDERHOLEN (GRAPHIKCURSOR) 
7F2D 60 RTS 


une 


;LGR -VEKTORROUTINEN: 


III a 


sonen 


;HINUNTER: 


: 
7F2E AC 3C C6 LUNTEN LDY Y1 


7F31 C8 INY 

7F32 CO 32 CPY #50 

7F34 90 02 BCC LU1 

7F36 AO 00 LDY #0 

7F38 8C 3C C6 LU1 sm Yı 

7F3B 60 RTS 
HOCH: 


7F3C AC 3C C6 LOBEN LDY Y1 


TF3F 88 DEY 
7F40 10 02 BPL LO 
7F42 AO 31 LDY #49 
7F44 8C 3C C6 LO1 sm Yı 


7F47 60 RTS 
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7F48 
7F4B 
7F4C 
7F4E 
7F50 
7F52 
7F55 


7F56 
7F59 
TF5A 
7FSC 
7FSE 
7F61 


7F62 
7F64 
7F66 
7F68 
7F6B 


7F&C 
7F6E 
7F7O 
7F72 
7F75 


7F76 
7F78 
TFTA 
7FTC 
TFTF 
7F80 
7F82 
7F85 


AC 
c8 
co 
90 
AO 
8c 
60 


AC 


10 
AO 
8c 
60 


A5 
29 
FO 
CE 
60 


AD 
18 
69 
8D 
AD 


3E 


50 
02 
00 
3E 


3E 


02 
4F 


02 
02 


3B 


02 
02 
CA 
3B 


01 
39 
3A 


c6 


c6 


c6 


c6 


c6 
c6 


RECHTS: 


’ 

LRECHT LDY 
INY 
CPY 
BCC 
LDY 

LRI STY 
RTS 


;LINKS: 


’ 

LLINKS LDY 
DEY 
BPL 
LDY 

LLK1 STY 
RTS 


nn 


XL 


#80 
LR1 
#0 

XL 


XL 


LLK1 
#79 
XL 


;SPRITE-VEKTORROUTINEN: 


RR a a a a 
‘ 


‘ 

;HINUNTER: 

; 

SUNTEN LDA 
AND 
BEQ 
INC 
RTS 


4: 
;HOCH: 


‘ 

SOBEN LDA 
AND 
BEQ 
DEC 
RTS 


’ 
RECHTS: 


‘ 

SRECHT LDA 
AND 
BEQ 
LDA 
cLC 
ADC 
STA 
LDA 


GFLAG 
#2 
LUNTEN ;LGR 
sY 
;BEWEGE SPRITE 


GFLAG 
#2 
LOBEN ;LGR 
sY 
;BEWEGEN 


GFLAG 

#2 

LRECHT ;LGR 
SXL 


#1 
SXL 
SXH 


527 
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7F88 69 00 


7FBA 
7F&C 
7F8E 
7F90 
7F93 


7F94 
7F96 
7F98 
7F9A 
7F9D 
7FYE 
7FAO 
TFA3 
TFA6 
TFA 
TFAA 
7FAC 
TFAF 


7FBO 
7FB1 
7FB3 
7FB6 
7FB& 
7FBA 
7FBB 
7FBE 
7Fc1 
7FC3 


c9 
90 
A9 
8D 
60 


AD 
E9 
BO 
A9 
8D 
60 


48 
A5 
8D 
A9 
85 


20 
AD 
85 
60 


39 C6 


97 
48 C6 
20 
97 


47 80 
48 C6 


ADC 
CMP 
BCC 
LDA 
SR9 STA 
RTS 


’ 

;LINKS: 

ö 

SLINKS LDA 
AND 
BEQ 
LDA 
SEC 
SBC 
STA 
LDA 
SBC 
BCS 
LDA 

sL9 STA 
RTS 


zen nam 
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#0 
#2 
SR9 
#0 
SXH 
;BEW. 


GFLAG ;SPRITE-LINKS 
#2 

LLINKS ;LGR 

SXL 


#1 
SXL 
SXH 
#0 
sL9 
#1 
SXH 


;GRAPHIKCURSOR SETZEN: 


IR a 


en. 


SETCUR PHA 
LDA 
STA 
LDA 
STA 
PLA 
JSR 
LDA 
STA 
RTS 


FLG ;ALTES FLAG RETTEN 
ZWIS 

#320 _;NOPLOT 

FLG 


PLOT. ;NOPLOT AUSFUEHREN 
ZWIS 
FLG ;ALTES FLG WIEDERHOLEN 
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7FC4 
7FC6 
7FC8 
TFCA 
7FCD 
7FDO 
7FD3 
7FD6 


7FDY 
7FDC 
7FDE 
7FEO 
7FE3 


7FE6 
7FEY 
7FEC 
7FEE 


7FFO 
7FF3 
TFF6 
7FF9 
TFFC 


TFFF 
8002 
8003 
8004 
8006 
8008 
800B 
800D 


AS 
29 
FO 
AD 
AC 
20 
AD 
4c 


20 
20 
8c 
4c 


20 
8A 
A8 
A6 
AS 
2C 
DO 
4A 


FF 
SE 
15 
E6 


15 


3A 
1B 


7C 


7F 
80 


7C 


00 
7F 
80 
c6 
7F 


B7 


E5 


;WERTZUWEISUNG AN TESTVARIABLE: 


III 
’ 


PLTVAR 
PLTVA. 
r 


’ 


LDA 
AND 
BEQ 
LDA 
LDY 
JSR 
LDA 
JMP 


FLG 

#810 

71 ;KEIN TEST 

ZAHL+1 

ZAHL ;ANZAHL KOLLISIONEN 
$8391 ;NACH FIESSKOMMA 
VARADR ;INT/REAL-FLAG 
$A9C2 ;WERTZUWEISUNG 


rer a a a 
’ 


.c% 
‘ 


x%r 


;*  PLOT-BEFEHL ** 


.r% 
‘ 


r% 


hr a a 
‘ 


‘ 


PLOT 


PLOT ... 


p2 


’ 


JSR 
CMP 
BEQ 
JSR 
JSR 


JSR 
JSR 
CMP 
BNE 


TO 


JSR 
JSR 
JSR 
STY 
JMP 


STFLG ;SET FLG+FLG2(COL) 

#TO 

p2 ;TO-TOKEN (LINIE VOM GRAPHIKCURSOR) 
TESCOR ;KOORDINATEN HOLEN 

PLOT. ;PLOT AUSFUEHREN 


CHRGOT 

TZA ;KOORDINATEN ZWISCHENSPEICHERN 
#TO 

PLTVAR ;TESTVARIABLENZUORDNUNG 


CHRGET 

TESCOR ;ZWEITKOORDINATEN HOLEN 
LINE. ;LINIE ZEICHNEN 

E5.ZW 

p1 ;NAECHSTES "TO" ABFRAGEN 


;KOORDINATEN HOLEN UND UEBERPRUEFEN: 


III 
’ 


‘ 
TESCOR 


JSR 
TXA 
TAY 
LDX 
LDA 
BIT 
BNE 
LSR 


GETCOR 


XK+1 

GFLAG 

$ES3A ;INHALT: $04 

T1 ;KEINE KONTR. BEI BIT2=1 
A 


529 
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800E 
8010 
8012 
8014 
8016 
8018 
801A 


801C 
801E 
8020 
8022 
8024 
8026 
8028 


8029 
802B 
802D 
802F 
8031 
8033 
8035 
8037 


8038 
803A 
803C 
803E 
8040 
8042 
8044 
8046 


BO 
co 
90 
AO 
AS 
24 


A6 
DO 
c9 


A2 
A9 
60 


EO 
90 
DO 
c9 
90 
A2 
A9 
60 


co 
90 
AO 
AS 
c9 
90 
A9 
60 


28 
c8 
02 
c7 
14 
02 
OD 


15 
04 
AO 


00 
9F 


FB 
04 
40 
F5 
01 
40 


32 
02 
31 
14 


E4 
4F 


T2 


BCS 
CPY 
BCC 
LDY 
LDA 
BIT 
BPL 


TESGR 
#200 
T2 
#199 
XK 
GFLAG 


TESHGR 
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;LGR 


;FEHLEINGABE KORRIGIEREN 


;MC-KOORDINATEN TESTEN: 


T3 


71 


LDX 
BNE 
CMP 
BCC 
LDX 
LDA 
RTS 


XK+1 
T3 
#<160 
11 

#0 
#<159 


;MC 


;KORREKTUR 


;HGR-KOORDINATEN TESTEN: 


: 
TESHGR 


T4 


CPX 
BCC 
BNE 
CMP 
BCC 
LDX 
LDA 
RTS 


#>320 
71 
T4 
#<320 
71 
#>320 
#<320 


XK-LOW 
5X: XK-HIGH 
;Yz YK 
;KORREKTUR 


;LGR-KOORDINATEN TESTEN: 


’ 
TESGR 


T5 


-... 


CPY 
BCC 
LDY 
LDA 
CMP 
BCC 
LDA 
RTS 


#50 
T5 
#49 
xK 
#<80 
71 
#79 


;KORREKTUR 


; KORREKTUR 
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;EINEN PUNKT IN HGR/MC ZEICHNEN: 
PR aä nn 3 252 2272 a a 2 2 


. 
‘ 


;VEBERGABE: A: X-KOORDINATE (LOW-BYTE) 


e X: X-KOORDINATE CHIGH-BYTE) 
n Y: Y-KOORDINATE 
8047 48 PLOT. PHA 
8048 A5 02 LDA GFLAG 
804A 4A LSR A 
8048 BO 07 BCS LPLOT. 
804D 68 PLA 
804E 20 AA 81 JSR HPOSN ;PUNKTADRESSE BERECHNEN 
8051 4Cc 18 82 JMP PLT ;PUNKT ZEICHNEN 


’ 


;EINEN PUNKT IN LGR ZEICHNEN: 


ee 
‘ 


;VEBERGABE: WIE OBEN 


‘ 
8054 68 LPLOT. PLA ; LOWGR - PUNKT 
8055 8C 3C C6 sy 1 
8058 8D 3E C6 STA XAL 
805B 4C F2 7D JMP LPLTHP ;LGR-PLOT MIT LPOSN 


‚ 
v 
;EINE LINIE VOM GRAPHIKCURSOR ZEICHNEN: 


En a a a a 2 2 a a a a a a A 2 2 2 a a 2 a 2 a 2 2 2 0 2 2 2 2 2 2 2 2 2 2 20 
‘ 


;VEBERGABE: A: X2-KOORDINATE (LOW-BYTE) 


n X: X2-KOORDINATE CHIGH-BYTE) 
h Y: Y2-KOORDINATE 
805E 48 LINE. PHA 
805F AS 97 LDA FLG 
8061 4A LSR A 
8062 29 08 AND #8 ;TEST? 
8064 FO OF BEQ L3 ;NEIN 
8066 90 OD BCC L3 ;KEIN PLOT 
8068 AD 86 C6 LDA ZAHL ;c=1! 
806B E9 01 sBc #1 
806D 8D 86 C6 STA ZAHL 
8070 BO 03 BCS L3 


8072 CE 87 C6 DEC ZAHL+1 ;1 DEC F. 1. PUNKT! (DOPPELT GEZEICHNET) 
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8075 
8077 
8078 
807A 
8078 


807E 
807F 
8080 
8083 
8084 
8087 
8088 
808B 
808C 
808F 
8092 
8095 
8098 


809B 


809E 
80A1 
80A4 


80A6 
80A9 
8OAC 
80AF 
80B2 
8085 
8088 
80BB 
80BE 
80C1 


8003 


A5 
4A 
BO 


4c 


AA 
AD 
48 
AD 
48 
AD 


AD 


AD 


4c 


20 


AD 
CD 
90 


AD 
AE 
AC 
20 
AD 
AE 
AC 
20 
EE 
DO 


4c 


04 


E4 


3E 
10 
5c 
12 
00 


87 


c6 


c6 


c6 
c6 
c6 
7F 
c6 
c6 
c6 
80 
c6 


7F 


L3 LDA GFLAG 
LSR A 
BCS LLINE. 
PLA 
JMP HLINE 


LLINE. PLA 
TAX 
LDA EO 
PHA 
LDA E1 
PHA 
LDA E2 
PHA 
LDA XiL 
STA EO 
LDA Y1 
STA E2 
JMP LLINE 


[3 
; 
’ 
x 
a NEN NN Na 2 en Sen 1212 1272 1 
‘ 

.r% “r 
‘ 
' 


;** BEFEHL: FILL ** 
.r% “r 


‘ 
EURER TRETEN 


- 
r 
r 


v 
i 
F JSR FINIT 
v 
F 


- 
o 


LDA Y3 
cMmpP Y2 
BCC FI3 


LDA X2L 
LDX xX2H 
LDY Y2 

JSR SETCUR 
LDA X3L 
LDX xX3H 
LDY Y2 

JSR LINE. 
INC Y2 

BNE FIO 


- 
w 


JMP PLTVAR 


msn 
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;LGR-LINIE 


;KOORDINATEN HGR RETTEN 
iX-KL 


ıY-K 


;PARAMETER+SYNTAX+NORMIEREN 


;FERTIG 


;KOORD. ALS STARTPUNKT ABSPEICHERN 
;ZIELPUNKT 


;LINIE ZEICHNEN 
;NAECHSTE ZEILE 
JUNBED. 
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80C6 
80C9 
80cc 
80CF 
80D2 
8005 
80D8 


80DA 
80DD 
80E0 
80E3 
80E6 
80E9 
80EC 
80EF 
80F2 
80F5 
80F8 
80FB 
80FE 
8101 
8104 
8107 
810A 
810D 
8110 
8113 


8116 
8119 
811A 
811c 
811F 
8121 


8124 
8127 
812A 
812B 
812E 
8130 
8133 
8135 


20 
20 
8E 
20 
20 
AD 


AD 
AE 
AC 
20 
AD 
AE 
AC 
20 
AD 
AE 
AC 


AD 
AE 
AC 


AD 
AE 
AC 
20 


AD 
38 
E9 
8D 
BO 
3 


AD 
69 
8D 
90 


67 
JE 
41 


58 
41 
78 


43 
40 
BO 
42 
43 
44 
SE 
46 
47 
44 
5E 
46 
47 
40 
SE 
42 
43 


SE 


01 
46 
03 


44 


40 


42 
01 


03 
43 


7C 
B7 
c6 
AE 
81 
c6 


ETUI 
.% “r 
‘ 


.% a% 
’ 


BEFEHL: FRAME 


.% ar 
‘ 


iR 
' 

v 

FRAME JSR 
JSR 
STX 
JSR 
JSR 
LDA 
BEO 


STFLG 
GETBYT 
Y2+1 
CHKCOM 
FINIT+3 
Y2+1 
FR3 

; 
FRO LDA 
LDX 
LDY 
JSR 
LDA 
LDX 
LDY 
JSR 
LDA 
LDX 
LDY 
JSR 
LDA 
LDX 
LDY 
JSR 
LDA 
LDX 
LDY 
JSR 


x2L 
X2H 
Y2 
SETCUR 
x2L 
x2H 
Y3 
LINE. 
X3L 
X3H 
Y3 
LINE. 
X3L 
X3H 
Y2 
LINE. 
X2L 
X2H 
Y2 
LINE. 


LDA 
SEC 
SBC 
STA 
BCS 
DEC 


X3L 


#1 

X3L 
FRI 
X3H 


DEC 
INC 
cLCc 
LDA 
ADC 
STA 
BCC 
INC 


Y3 
Y2 


x2L 
#1 

X2L 
FR& 
X2H 


;BREITE HOLEN 
;S.0. 


;FERTIG 


;STARTPUNKT 


;ZIELPUNKT 1 
;LINIE ZEICHNEN 


;NAECHST INNEREN RAHMEN: 


;X3-KOORD. INNEN 


;Y3-KOORD. 
;Y2-KOORD. 


INNEN 
INNEN 


;X2-KOORD. INNEN 
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8138 CD 46 C6 FRB CMP X3L 

8138 90 08 BCC FR7 

813D AD 43 C6 LDA xX2H 

8140 CD 47 C6 CMP X3H 

8143 BO OD BCS FR3 ;FERTIG FALLS GESCHLOSSENES FELD 
8145 AD 40 C6 FR7 LDA Y2 

8148 CD 44 C6 CMP_ Y3 

814B BO 05 BCS FR3 ;FERTIG FALLS GESCHLOSSENES FELD 
814D CE 41 C6 DEC Y2+1 ;BREITE DECREMIEREN 

8150 DO 88 BNE FRO ;NAECHST INNEREN RAHMEN ZEICHNEN 
8152 4C C4 7F FR3 JMP PLTVAR ;TERMINIERUNG 


;GEMEINSAME INITIALISIERUNG FILL/FRAME: 


: 
8155 20 67 7C FINIT JSR STFLG ;SET FLG+FLG2CCOL) 
8158 20 FF 7F FINITO JSR TESCOR ;KOORDINATEN HOLEN 


815B 8D 42 C6 STA X2L 

815E 8E 43 C6 STX X2H 

8161 8C 40 C6 sty y2 ;1. KOORD.-PAAR -> X2/Y2 
8164 20 79 00 JSR CHRGOT 

8167 C9 A4 CMP #TO ;TO-TOKEN ERWARTEN 

8169 DO 3C BNE SERR1 ;SYNTAX ERROR 

816B 20 73 00 JSR CHRGET 

816E 20 FF 7F JSR TESCOR ;KOORDINATEN HOLEN 

8171 8D 46 C6 STA X3L 

8174 8E 47 C6 STX X3H 

8177 8C 44 C6 STY Y3 ;2. KOORD.-PAAR -> X3/Y3 
817A CD 42 C6 CMP X2L 


;KLEINE KOORDINATEN ALS STARTKOORDINATEN: 


8170 8A TXA 

817E ED 43 C6 SBC X2H ıX3-X2 

8181 BO 15 BCS FI ;>=0 => X3>=X2 (RICHTIG) 
8183 AD 43 C6 LDA X2H 

8186 8E 43 C6 STX X2H 

8189 8D 47 C6 STA X3H 

818C AD 46 C6 LDA X3L 

818F AE 42 C6 LDX xX2L 

8192 8E 46 C6 STX X3L 

8195 8D 42 C6 STA X2L ;AUSTAUSCH: X2 <-> X3 
8198 CC 40 C6 FI cpy Y2 ;Y3-Y2 

819B BO 09 BCS FI2 ;‚>=0'=> Y3>=Y2 (RICHTIG) 
819D AD 40 C6 LDA Y2 

81AO 8C 40 C6 stm y2 

81A3 8D 44 C6 STA Y3 ;AUSTAUSCH: Y2 <-> Y3 


81A6 60 FI2 RTS ;Y=Y2 - X=X3L - A=Y3 
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81A7 4C 08 AF SERRI JMP SERR 


BERECHNUNG DER PUNKTADRESSE AUS DEN KOORDINATEN: 
* 


WETTE III a a ar 


PR Pa Ve 


' 


;UVEBERGABE: A: X-KOORDINATE (LOW-BYTE) 


v X: X-KOORDINATE (HIGH-BYTE) 
“ Yz Y-KOORDINATE 
‚ 
81AA 8C 12 C6 HPOSN STY E2 iY-K 
81AD 8D 10 C6 STA EO iX-KL 
8180 8E 11 C6 STX E1 IX-KH 
8183 24 02 BIT GFLAG ;GRAPHIKFLAG 
8185 10 04 BPL HPS1 
8187 OA ASL A ;MC-MODE -> X-K*2 
8188 90 01 BCC HPS1 
81BA E8 INX ’X-K.*2 (X=0 => X=1) 
81BB 85 14 HPS1 STA XK 
81BD 86 15 STX xXK+1 
81BF 98 TYA 
81CO 4A LSR A 
81C1 4A LSR A 
81c2 4A LSR A ;Y-K/8 = ZEILENNUMMER (FUER 8X8-PAKS) 
8103 AA TAX 
81C4 BD 37 7D LDA MUL.H,X ;ZEILENNUMMER*320 CHIGH-BYTE) 
8107 85 AD STA ADH 
’ 
8109 8A TXA 
81cA 29 03 AND #3 
8icc AA TAX 
81cD BD 51 7D LDA MUL.L,X ;LOW-BYTE 
81D0 85 AC STA ADL ;GLEICH: ZEILENSTARTADRESSE (RELATIV) 
8102 98 TYA 
8103 29 07 AND #7 
8105 18 CcLC 
8106 65 AC ADC ADL ;PLUS REIHE IN 8*8-PACK 
8108 85 AC STA ADL ;GLEICH: REIHENSTARTADRESSE (RELATIV) 
81DA A5 14 LDA XK 
81Dc 29 F& AND #$F8 
81DE 85 6D STA OFFX ;UNTERE 3 BITS DER X-K AUSBLENDEN 
81EO AD 4F C6 LDA GRMEM ;LAUFENDE GRAPHIKSEITE 
81E3 05 AD ORA ADH 


81E5 85 AD STA ADH ;ABSOLUTE ADRESSE 
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81E7 18 CLC 
81E8 A5 AC LDA ADL 
81EA 65 6D ADC OFFX 
8lEC 85 AC STA ADL ;X-K HINZUADDIEREN 
81EE A5 AD LDA ADH 
81F0 65 15 ADC XK+1 
81r2 85 AD STA ADH ;HIGH-BYTE 
‘ 
81F4 AS 14 LDA XK ;POSITION DES BITS INNERHALB DES BYTES 
ERMITTELN: 
81F6 29 07 AND #7 
81F8 49 07 EOR #7 
81FA AA TAX 
81rB BD 27 7D LDA MSKTB1,X ;ENTSPRECHENDE MASKE AUS TABELLE 
8irE 24 02 BIT GFLAG 
8200 10 03 BPL H6 
8202 BD 2F 7D LDA MSKTB2,X ;MC-TABELLE 
8205 85 AB H6 STA MSK ;ALS MASKE SPEICHERN 
8207 60 RTS 
®. 
’ 
; 
;EINZELNEN PUNKT BEI CURSOR ZEICHNEN: 
else 
‘ 
; 
;RUECKSPRUNGADRESSE ELIMINIEREN: 
‘ 
8208 68 H7 PLA 
8209 68 PLA 
820A 60 RTS ;ZUR UEBERGEORDNETEN ROUTINE 
‘ 
’ 
;ANSPRUNG BEI GESETZTEM AUSSTEIGERFLAG (SPRITE/LGR): 
’ 
8208 A5 02 SPLOT LDA GFLAG 
820D 29 02 AND #2 
820F DO F7 BNE H7 ;SPRITEMODUS -> ZURUECK ZUR 
INTERRUPTROUTINE 
8211 08 PHP 
8212 20 F2 7D JSR LPLT ;PUNKT IN LGR SETZEN 
8215 4Cc 7D 82 JMP NPL2 


non 
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;REGULAERER EINSPRUNGPUNKT IN PLOT-ROUTINE: 


8218 24 02 PLT BIT GFLAG 

821A 70 EF BVS SPLOT ;AUSSTEIGERFLAG GESETZT 
821C 08 PHP ;STATUSFLAGS RETTEN 
821D 78 SEI 

821E A5 01 LDA 1 

8220 48 PHA 

8221 29 FC AND #$FC 

8223 85 01 STA 1 ;ROM AUSSCHALTEN 
8225 AS AB LDA MSK ;MASKE (BITPOSITION) HOLEN 
8227 24 96 BIT FLG2 ;PINSELMODUS? 

8229 50 03 BVC PLO 

822B AD 90 C6 LDA PINSEL ;JA->PINSEL ALS MASKE 
822E 85 FE PLO STA USE+1 ;MASKE 

8230 AO 00 LDY #0 

8232 A5 97 LDA FLG 

8234 24 97 BIT FLG 

8236 50 04 BVC PL4 ;6. BIT TESTEN 

8238 49 82 EOR #%82 ;PUNKTPLOT (PUNKTIERT PLOTTEN) 
823A 85 97 STA FLG 

823C 29 30 PL4 AND #%00110000 ;NOPLOT/TESTPLOT? 
823E DO 64 BNE TPL ;JA 

8240 24 97 PL5 BIT FLG 

8242 10 3D BPL PL2 ;PLOT+INVPLOT 

8244 AS FE UPL LDA USE+1 ;LOESCHPLOT 

8246 49 FF EOR #$FF ;MASKE UMDREHEN 

8248 31 AC AND CADL),Y ;PUNKT LOESCHEN 

824A 91 AC PLI STA (ADL),Y ;BYTE ABSPEICHERN 
824C 24 96 BIT FLG2 ;SET COLOR? 

824E 10 2A BPL NPL ;KEINE FARBE SETZEN 
8250 AS AC LDA ADL ; FARBSETZUNG: 

8252 85 FD STA USE 

8254 AS AD LDA ADH 

8256 4A LSR A 

8257 66 FD ROR USE 

8259 4A LSR A 

825A 66 FD ROR USE 

825C 4A LSR A 

825D 66 FD ROR USE 


825F 49 DC EOR #%11011100 
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;E000=C000*FFFF=C3FF/AO00=C800*BFFF=CBFF 


8261 85 FE STA USE+1 

8263 AD 55 C6 LDA COLOR ;FARBE HOLEN 

8266 91 FD STA (USE),Y ;NACH VIDEORAM 
’ 

8268 24 02 BIT GFLAG 

826A 10 OE BPL NPL 

826C A5 FE LDA USE+1 ;MC 

826E 29 03 AND #3 

8270 OD 51 C6 ORA FABMEM ;FARBRAM 

8273 85 FE STA USE+1 

8275 AD IC C6 LDA COL3 ;FARBE 3 

8278 91 FD STA (USE),Y ;SETZEN 


;NOPLOT UND ENDE: 


‘ 
827A 68 NPL PLA 
8278 85 01 STA 1 ;ROM WIEDER EINSCHALTEN 
827D 28 NPL2 PLP ;CARRY+INTERR.- FLAG 
827E A4 93 LDY ES ;Y-REG HOLEN 
8280 60 RTS ;FERTIG 


‘ 
‘ 


;PLOT UND INVPLOT: 


8281 A5 97 pL2 LDA FLG 
8283 4A LSR A ;BIT 0 
8284 BO 3F BCS IPL ; INVPLOT 
8286 AS FE LDA USE+1 
8288 24 02 BIT GFLAG 
828A 30 04 BMI PL3 ;MC 
828C 11 AC ORA (ADL),Y 
828E 90 BA BCC PLI ;UNBEDINGT 
i 
;MC-PLOT: 
8290 AC IF C6 PL3 LDY LCOLO ;PLOTFARBE (1-3) 
8293 48 PHA ;PUNKTMASKE RETTEN 
8294 39 CC 82 AND COLTB1,Y ;FARBMASKE HOLEN 
8297 85 FD STA USE ;RETTEN 
8299 68 PLA ;PUNKTMASKE 
829A 49 FF EOR #$FF 
829C AO 00 LDY #0 
829E 31 AC AND CADL),Y ;BETREFFENDE BITS LOESCHEN 
82A0 05 FD ORA USE ;UND ENTSPRECHEND FARBMASKE VERAENDERN 


82A2 90 A6 BCC PLI ;UNBED. 
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82A4 29 10 


82A6 
82A8 
82AA 
82AC 


82AE 
82B1 
82B2 
82B4 
82B7 
8289 


82BC 
82BE 
82c0 
82c2 


82C5 
82C7 
82c9 


82cC 


82D0 


8203 
82D4 
8206 
82D7 
8209 


FO 
A5 
31 
FO 


AD 
18 
69 
8D 
90 
EE 


A5 
29 
FO 
4c 


A5 
51 
4c 


00 


20 


78 
A5 
48 
A9 


D2 
FE 
AC 
0E 


86 


01 
86 
03 
87 


97 
CF 


B8 
40 


AC 
4A 


55 


9E 


;TESTPLOT UND NOPLOT: 


;CPLOT MIT PUNKTTEST UND NUR CURSOR SETZEN) 


’ 
TPL AND #810 
BEQ NPL ;NOPLOT 
LDA USE+1 ;TESTPLOT 
AND CADL),Y ;PUNKT GESETZT? 
BEQ PLTT  ;NEIN 
‘ 
c6 LDA ZAHL ;JA... 
CLC 
ADC #1 
c6 STA ZAHL 
BCC PLIT 
c6 INC ZAHL+1 ;INC PUNKTEZAEHLER 
; 
PLIT LDA FLG 
AND #%11001111 
BEQ NPL ;NOPLOT 
82 JMP_ PLS ;PLOT/INVPLOT ETC. 
‘ 
;INVERTIERT PLOTTEN CINVPLOT): 
’ 
IPL LDA USE+T  ;IPL 
EOR CADL),Y ;INVERTIEREN 
82 JMP PL1 
’ 
; 
;FARBBITMUSTERTABELLE FUER MC: 
‘ 
AA COLTBI  .BYT %00000000,%01010101,%10101010,%11111111 
’ 
’ 
’ 
‘ 
; 
III 
‚uw ar 
per BEFEHL: TRANS ** 
.i%r ar 
Denonnnnnnnnn 
‘ 
; 
B7 TRANSS JSR GETBYT ;0=CROSS/GRAPHIK//1=GROSS/KLEIN 
; 
sel 
LDA 1 
PHA 
LDA #333 
STA 1 ;ROM AUS 


-. 


539 


540 


82DB 
82DC 
82DD 


82DE 
82E0 
82E2 
82E4 


82E6 
82E9 
82EB 
82ED 


82EF 
82F1 


82F3 
82F5 
82F6 
82F8 
82F9 
82FB 


82FD 
82Frr 
8300 
8301 
8303 
8305 
8306 
8308 


830A 
830C 
830E 
8310 
8311 


8A 
4A 


A9 
AO 
85 
84 


AD 
AO 
85 
84 


84 
B1 


AO 
B1 
91 


10 


4F 
00 
AD 
AC 


58 


58 


03 


DO 


D8& 


07 
57 
AC 


TXA 
LSR 
PHP 


LDA 
LDY 
STA 
STY 


- 


LDA 
LDY 
STA 
sTY 
’ 
;VEBERTRAGUNG: 
‚ 
TRAO STY 
LDA 
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;MODUS->A 
A ;NACH CARRY 
;ALS FLAG 


#<TEXRAM ;STARTADRESSE-TEXT 


#>TEXRAM 

USE 

USE+1 ;NACH USE 

GRMEM ;STARTADRESSE GRAPHIK 

#0 

ADH 

ADL ;NACH ADL/ADH 

DO+1 ;MATRIXADRESSE (HIGH-BYTE) 


(USE),Y ;LADE ZEICHEN 


;MATRIXADRESSE ERRECHNEN: 


’ 


LDX 
TRA1 ASL 
ROL 
DEX 
BNE 
STA 


-. 


LDA 
PLP 
PHP 
BCS 
ORA 
.BYT 
TRA2 ORA 
STA 


F 


#3 
A 
DO+1 ‚*8 


TRA1 
DO ‚RELATIVE MATRIXADRESSE (LOW-BYTE) 


DO+1 
;ZEICHENSATZFLAG 


TRA2 

#$DO ;BASISADRESSE - HIGH 

$2C ;NAECHSTEN BEFEHL UEBERSPRINGEN 
#808 

DO+1 ;=ZEICHENADRESSE-HIGH 


;ZEICHENMATRIX NACH GRAPHIK: 


LDY 
TRA3 LDA 
STA 
DEY 
BPL 


#7 
(DO),Y ;MATRIXBYTES 
(ADL),Y ;IN GRAPHIK UEBERTRAGEN 


TRA3 
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;POINTER INCREMIEREN 


8313 
i 
8313 C8 InY ‚Ya 
8314 18 CLC 
8315 A5 AC LDA ADL 
8317 69 08 ADC #8 
8319 85 AC STA ADL ;GRAPHIKPOINTER + 8 
831B 90 02 BCC TRA& 
831D E6 AD INC ADH 
831F E6 FD TRA4 INC USE ;TEXTPOINTER + 1 
8321 DO CC BNE TRAO WEITER 
8323 E6 FE INC USE+1 
8325 A5 FE LDA USE+1 
8327 C9 08 CMP_ #>TEXRAM+1024 
8329 DO C4 BNE TRAO ;NICHT FERTIG! 
832B 28 PLP 
832C 68 PLA 
832D 85 01 sta 1 ;ROM AN 
832F 58 cLI 
;TEXTFARBE UEBERTRAGEN: 
’ 
8330 20 13 7D JSR STUCOL ;VIDEORAMADR.->USE 
8333 84 97 STY FLG ;Y=0 
8335 84 AC STY ADL 
8337 A9 D8 LDA #%D8 ; FARBRAM 
8339 85 AD STA ADH 
8338 A2 03 LDX #3 
833D B1 AC TRA5 LDA (ADL),Y ;FARBRAM 
833F OA ASL A 
8340 0A ASL A 
8341 OA ASL A 
8342 OA ASL A 
8343 85 57 STA DO 
8345 Bi FD LDA (USE),Y ;IN VIDEORAM UEBERTRAGEN 
8347 29 OF AND #SOF 
8349 05 57 ORA DO 
834B 91 FD STA (USE),Y 
834D C8 INY 
834E C4 97 CPY FLG 
8350 DO EB BNE TRAS 
8352 E6 AD INC ADH 
8354 E6 FE INC USE+1 
8356 CA DEX 
8357 FO 03 BEQ TRA6 
8359 10 E2 BPL TRAS 


835B 60 RTS 


542 


835C A2 E8 TRA6 LDX 
835E 86 97 STX 
8360 DO DB BNE 


N 


Das Supereraphikbuch zum C64 


#SE8 ;SPRITEVEKTOREN SICHERN 
FLG 
TRAS ;UNBED. 


A a a a a a a a a a 
’ 


.% 
. 


ar 


;** BEFEHL: GCLEAR ** 


.r% 
’ 


a% 


Ra a a a a a a a a 
. 


‘ 


8362 A9Y 00 GCLEAR LDA 


8364 
8366 
8369 
836A 
836C 
836E 


8370 
8373 


8375 


8378 
8379 
837B 
837C 
837E 
8380 


8382 
8384 
8387 
8389 
838A 
838C 
838F 
8390 
8392 
8394 
8397 


85 
20 
38 
FO 
c9 
FO 


78 
A5 
48 


85 
BO 


AO 
20 
90 
48 
25 
8D 
68 
49 
31 
OD 
91 


97 STA 

79 00 JSR 

SEC 

oc BEQ 

2C CMP 

05 BEQ 

9E B7 JSR 

97 STX 

12 85 GC1 JSR 
v 

Gc2 SEI 

01 LDA 

PHA 

FC AND 

01 STA 


31 BCS 


#0 

FLG ;LOESCH-FLAG VORBELEGEN 

CHRGOT ;LETZTES ZEICHEN HOLEN 
;FLAG FUER ALTE ROUTINE 


Gc2 ;NUR GCLEAR 
Be ;KOMMA? 
Gc1 ;JA->LOESCH-FLAG AUSGELASSEN 


GETBYT ;HOLE LOESCHFLAG->X 
FLG ;NACH FLG 


WINIT  ;FENSTER-PARAMETER HOLEN, INITIALISIERUNG 


SFC 
1 ;ROM AUS 
GCLV ;VOLLEN BILDSCHIRM LOESCHEN 


’ 
;BILDSCHIRMFENSTER LOESCHEN: 


ER TERR TEN EERTERERN 


00 LDY 
57 86 GC3 JSR 
IC BCC 

PHA 
97 AND 
48 C6 STA 

PLA 
FF EOR 
60 AND 
48 C6 ORA 
60 STA 


#0 
GRIGHT ;HOLE ADRESSE+MASKE DES NAECHSTEN BYTE 
GC4 ‚FERTIG 


FLG ;GCLEAR-FLAG KAPPEN 
ZWIS _ ;UND MERKEN 
;MASKE 


HSFF ;MASKE UMDREHEN (ZU LOESCHENDE BITS=O) 
(GRADIL),Y ;BITS IN SPEICHER AUSBLENDEN 

ZWIS ;GCLEAR-FLAG 

(GRAD1L),Y ;UND ZURUECK 
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8399 
839C 
839E 
83A1 
83A3 


83A5 
83A6 
83A8 


83A9 
85AA 
83AD 
83AF 
8382 


8383 
83B6 
83B8 
83BA 
83BC 
83BD 
83BF 
83C1 
83c2 


83C4 
83C5 
8307 


83C8 
85CA 
83CD 
83cr 
8301 
83D4 
83D7 


AD 
91 
AD 
91 
BO 


68 
85 
58 


18 
AD 
69 
8D 
60 


A2 


68 
85 
58 


86 
20 
24 
10 


20 
4c 


55 C6 
62 
1C C6 
64 
DF 


01 


4F Cc6 
1E 
17 C6 


1D 7D 
20 
97 


FB 
FE 


01 


BC 8B 
02 


CA 8B 
36 8B 
0D 8C 


LDA COLOR ; FARBE 
STA (VRADIL),Y ;VIDEORAM LOESCHEN 
LDA COL3 ;FARBE 3 
STA CFRADIL),Y ;FARBRAM LOESCHEN 
BCS GC3 ;UNBEDINGT->NAECHSTES BYTE 
; 
GC4 PLA 
STA 1 ;ROM EIN 
cLI 
v 
CLC 
LDA GRMEM ;AKT. GRAPHIKSEITE 
ADC #$1E 
STA GEND ;GEND WIEDER HERSTELLEN 
RTS 


v 
r 
;VOLLES BILDSCHIRMFENSTER LOESCHEN: 


III III I III III 
‘ 


‘ 
GCLV JSR STUGR ;GRAPHIKADRESSE -> USE 
LDX #820 ;ZAEHLER 
LDA FLG ;LOESCH- FLAG 
6C5 STA (USE),Y ;SPEICHER LOESCHEN 
INY 
BNE GC5 
INC USE+1 ;HIGH-BYTE ERHOEHEN 
DEX 
BNE GC5 
’ 
PLA 
STA 1 ;ROM WIEDER AN 
CLI 
’ 
STX MSK ‚ALLE BITS V. VIDEORAM 


JSR PCOLHG ;FARBE FUER HGR SETZEN 
BIT GFLAG ;GRAPHIKFLAG 
BPL GC6 ;HGR 
JSR PCOLMC ;FARBE FUER MC SETZEN 
JSR FRFILL ;FARBE 3 

GC6 JMP  SCOL1 ;VIDEORAM LOESCHEN 


nen 


543 


544 


83DA 
83DC 
83DE 
83E1 
83E2 
83E4 
83E6 


83E8 
83EB 


83ED 


83F0 
83F1 
83F3 
83F4 
83F6 
83F8 


83FA 
83Fc 
83Ffr 
8401 
8403 
8405 
8407 


8409 
840C 
840E 
8410 
8412 
8414 
8415 
8417 
8419 


A9 
85 
20 
38 
FO 
c9 
FO 


20 
86 


20 


78 
A5 
48 
29 
85 
BO 


AO 
20 
90 
25 
51 
91 
BO 


FF 
97 
79 


oc 
2C 
05 


3 
97 


12 


01 


01 
or 


00 


B7 


86 
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a a a a a a a a 
‘ 


zer “* 
;** BEFEHL: INVERS ** 
.r% “x 


‘ 
I a a a a a a a a a a ar 


un.» 


INVERS LDA #$FF 


STA FLG ;INVERS-FLAG VORBELEGEN 
JSR CHRGOT ;LETZTES ZEICHEN 

SEC ;FLAG FUER VOLLES FENSTER 
BEQ INV2 ;NUR INVERS 

cmp 4," ;KOMMA? 


BEQ INVI ;JA->FLAG AUSGELASSEN 


JSR GETBYT ;FLAG->X 
STX FLG ;NACH FLG 


‘ 
INVI JSR WINIT  ;FENSTER-PARAMETER HOLEN+INITIALISIERUNG 


‘ 
INV2 SEI 
LDA 1 
PHA 
AND #$FC 
STA 1 
BCS INVV ;INVERTIERE VOLLES FENSTER 
‘ 
;BILDSCHIRMFENSTER INVERTIEREN: 
Pa a2 Na 1252 N 1 ne 0 1225 


LDY #0 
INV3 JSR GRIGHT ;NAECHSTES BYTE+MASKE 
BCC GC4 ;FERTIG 
AND FLG ;MASKE MIT INV-MASKE KOMBINIEREN 


EOR (GRADIL),Y ;INVERTIEREN 
STA (GRADIL),Y ;UND ZURUECK 
BCS INV3 ;UNBEDINGT 


’ 
i 
;VOLLES BILDSCHIRMFENSTER INVERTIEREN: 


EEERTTNETTETTTTETETERRIEN 


’ 
INVV JSR STUGR ;GRAPHIKADRESSE NACH USE 
LDX #820 
INV4 LDA (USE),Y 
EOR FLG ;INVERTIEREN 
STA (USE),Y 
INY 
BNE INV4 
INC USE+ 
DEX 
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841A DO F2 


841C FO 87 


841E 20 9E 


8421 

8422 
8424 
8426 
8427 
8429 
842A 
842D 
8430 
8431 
8432 
8433 
8436 
8439 
843C 


843F 
8442 
8445 
8448 


B44A 


844D 
B44F 
8451 


8454 
8455 
8457 
8458 
845A 


845C 


8A 
29 
85 
8A 
29 
AA 
BD 
8D 
8A 


20 
20 
20 
90 


4c 


24 
10 
20 


78 
A5 
48 
29 
85 


AO 


04 
97 


03 


05 
F5 


09 
94 
OA 
95 


AE 
03 
EO 


01 


FC 
01 


00 


85 
84 


85 
84 
85 


84 
85 
84 


84 


85 


BNE INV4 
; 
BEQ GC4A ;UNBEDINGT->ENDE 
’ 
i 
Ä 
Pauäslolsheiskeicholsheisheiskoichoiehalehe 
zer “* 
‚BEFEHL: GCOMB *%* 
.r% “x 


’ 
; WR ah a a a a a a 


' 


’ 
GCOMB JSR GETBYT ;MODUS NACH X 


TXA ;NACH A 

AND #%00000100 

STA FLG ;COLOR - FLAG 

TXA 

AND #3 

TAX ;POINTER AUF TABELLE 
LDA COMBTB,X ;LADE BEFEHLSCODE 
STA GCO6 ‚INS PROGRAMM SCHREIBEN 
TXA 

ASL A 

TAX ;MODUS * 2 

LDA COMBT2,X ;SPRUNGADRESSE 

STA GCOJ+1 ;INS PROGRAMM 

LDA COMBT2+1,X 

STA GCOJ+2 


‚ 
;QUELLSEITENADRESSE BERECHNEN: 
JSR SEITTA ;SEITENADRESSE TAUSCHEN 


JSR WINIT ;FENSTER-PARAMETER, INITIALISIERUNG 


JSR SEITTA ;SEITENADRESSE TAUSCHEN 


BCC GCO4 ;KEIN VOLLES FENSTER 
’ 
JMP GCOV ;ROUTINE FUER VOLLES FENSTER 
i 
GCO4 BIT GCFLAG 
BPL GCOO ;KEINE ZIELKOORDINATEN ANGEGEBEN 
JSR WINIT2 ;ZIELKOORDINATEN INIT 
; 
GCOO SEI 
LDA 1 
PHA 
AND #8FC 
STA 1 ;ROM AUS 


LDY #0 


-. 


5 


4 


5 


546 


845E 
8460 


8462 


8465 
8468 


846A 
846C 


846E 
846F 
8471 
8473 
8476 
8478 
847A 


847C 
847E 
8480 
8482 
8484 
8486 
8489 
848B 
848D 
8490 


8492 


8493 


8496 
8498 


24 
10 


20 


20 
90 


24 
30 


48 
A5 


OD 
85 
A5 
85 


A5 
85 
85 
A5 
29 
OD 
85 
29 
OD 
85 


68 


20 


A5 
DO 


AE 
03 


D8 


57 86 


3B 


AE 
25 


61 
IF 
4F 
6A 
60 
69 


62 
6B 


63 
03 
50 
6C 
03 
51 
6E 


FF 


97 
c4 


c6 


c6 


c6 
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;GCOMB FUER FENSTER AUSFUEHREN: 


III 
‘ 


’ 
Gco2 BIT 
BPL 


JSR 


’ 
6C03 JSR 
BCC 


BIT 
BMI 


;IN GRIGHT BERECHNETE 


PHA 
LDA 
AND 
ORA 
STA 
LDA 
STA 


LDA 
STA 
STA 
LDA 
AND 
ORA 
STA 
AND 
ORA 
STA 


PLA 


nom 


;PROGRAMMMODIFIKATION: 


GCOJ JSR 


. 


LDA 
BNE 


GCFLAG 
GC03 


ZIELAD 


GRIGHT 
GCOEND 


GCFLAG 
GCOoJ 


GRADIH 
HS1F 
GRMEM 
GRAD2H 
GRADIL 
GRAD2L 


VRADIL 
VRAD2L 
FRAD2L 
VRAD1H 
#803 

COLMEM 
VRAD2H 
#803 

FABMEM 
FRAD2H 


SFFFF 


FLG 
Gco2 


;KEIN ZIELFELD ANGEGEBEN 
;ZIELADRESSE, MASKE HOLEN 
;MASKE+QUELLADRESSE HOLEN 


; FERTIG 


;">ZIELFELD ANGEGEBEN 


ADRESSE->ZIELADRESSE: 


;QUELLADRESSE 


;ADRESSE ERSTSEITE 
;NACH ZIELSPEICHER 


;LOW-BYTE 


; FARBSPEICHERADRESSEN 


;VIDEORAMADRESSE 


; FARBRAMADRESSE 


;UNTERPROGRAMMSPRUNG ZUR COMB-ROUTINE 


;FARBE KOMMT AUS ZIELFELD 
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849A 
849C 
849E 
84AO 
84A2 


84A5 


84A8 
84AA 
B4AC 
84AE 
8480 


84B1 
8483 
8485 
84B7 


8488 
84BA 
84BC 
84BE 


B1 
91 
B1 
91 
4c 


4c 


49 
11 
31 
91 
60 


31 
11 
91 
60 


31 
51 
91 
60 


62 
6B 
64 
6D 
SE 


A5 


60 
69 
69 


60 
69 
69 


;FARBE AUS QUELLFELD: 


LDA 
STA 
LDA 
STA 
84 JMP 
: 
; 
;ENDE: 


„Ahr 
‘ 


; 
83 GCOEND JMP 


’ 
‘ 


(VRADIL),Y 

(VRAD2L),Y ;VIDEORAM 
(FRADIL),Y 

(FRAD2L),Y ;FARBRAM 
Gco2 WEITER 


6C4 ;BEENDEN 


;INDIREKTE ROUTINEN 
;FUER GCOMB (MASKE IN A): 


III 
‘ 


’ 
;UND- VERKNUEPFUNG: 


‘ 

GCOAND EOR 
ORA 
AND 
STA 
RTS 

, 


‘ 


HSFF ;MASKE UMKEHREN 
(GRADIL),Y 

(GRAD2L),Y 

(GRAD2L),Y ;NACH ZIELSPEICHER 


;ODER-VERKNUEPFUNG: 


‘ 
GCOOR AND 
- ORA 
STA 
RTS 


‘ 


(GRADIL),Y 
(GRAD2L),Y 
(GRAD2L),Y 


v 
; EXODER - VERKNUEPFUNG: 


’ 

GCOEOR AND 
EOR 
STA 
RTS 


(GRADIL),Y 
(GRAD2L),Y 
(GRAD2L),Y 


547 


548 


84BF 


48 


84C0 31 60 
8402 8D 48 


84C5 
8406 
84C8 
84CA 
84CD 
84ucr 


8400 
8403 
8404 
8407 
84DA 
84DB 
84DE 


84DF 
84E0 
84E2 
8463 
84E5 


84E£7 
84EA 
84ED 
84EF 
84 F1 


84F3 


68 
49 
31 
OD 
91 
60 


AD 
48 
AD 


88 


8D 
60 


78 
A5 
48 
29 
85 


20 
AD 
84 


A2 


B1 


FF 
69 
48 
69 


4F 


52 
4F 


52 


01 


FC 
01 


1D 
52 
69 
6A 
20 


c6 


;COPIEREN: 

Ä 

GCOCOP PHA 
AND 
STA 
PLA 
EOR 
AND 
ORA 
STA 
RTS 


EITTA LDA 
PHA 
LDA 
STA 
PLA 
STA 
RTS 


en 
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;MASKE MERKEN 
(GRADAL),Y 
ZWIS 


#SFF _ ;MASKE UMDREHEN 
(GRAD2L),Y 

ZWIS 

(GRAD2L),Y 


GRAPHIKSEITENADRESSE TAUSCHEN: 
* 


III 


GRMEM 


GRMM2 ;BASISADRESSE SEITE 2 
GRMEM ;NACH 1 


GRMM2 ;SEITE 1 NACH 2 


;GCOMB FUER VOLLES GRAPHIKFENSTER: 


III 
’ 


‘ 

GCOV SEI 
LDA 
PHA 
AND 
STA 


JSR 
LDA 
STY 
STA 
LDX 


‘ 
GCO5 LDA 


SFC 
1 ;ROM AUS 


STUGR ;ADR. ZIELSEITE (BEFEHLIGTE SEITE) NACH USE 
GRMM2 

GRAD2L ;Y=0! 

GRAD2H ;ADR. PARTNERSEITE 

#820 


(USE) ,Y 
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;MODIFIZIERTER BEFEHL: 
84F5 31 69 GCO6 AND (GRAD2L),Y ;VERKNUEPFEN 


‘ 


84F7 91 FD STA (USE),Y ;NACH ZIELSEITE 
84F9 C8 INY 

84FA DO F7 BNE GCO5 

84FC E6 FE INC USE+1 

B4FE E6 6A INC GRAD2H 

8500 CA DEX ;ZAEHLER 

8501 DO FO BNE GCO5 

8503 FO AO BEQ GCOEND ;ENDE 


;BEFEHLSCODETABELLE FUER 
;SELBSTMODIFIZIERENDES PROGRAMM: 


RR a a a a a a 
‘ 


8505 31 11 51 COMBTB .BYT $31,$11,$51,$81 
;AND/ORA/EOR/LDA (COPIE) 


nen 


;SPRUNGADRESSENTABELLE FUER 
;SELBSTMODIFIZIERENDES PROGRAMM: 


RR a a a a a ir 
‘ 


8509 AB 84 COMBT2 _.WOR GCOAND 


850B Bil 84 .WOR GCOOR 
850D B& 84 „WOR GCOEOR 
850F BF 84 „WOR GCOCOP 
’ 
; 


; INITIALISIERUNGSROUTINEN: 


a a a a a a a a a 
‘ 


’ 


;FUER GRIGHT: 


sr 
‘ 


8511 60 WINOO RTS 


; 
8512 20 79 00 WINIT JSR CHRGOT 
8515 38 SEC ;FLAG FUER VOLLES FENSTER 
8516 FO F9 BEQ WINOO ;KEINE FENSTER-PARAMETER->VOLLES FENSTER 


-. 


550 


8518 20 73 


851B 
851D 
851E 
8520 
8522 


8525 
8527 
852A 
852C 
852E 
8530 
8533 
8536 
8539 
853B 
853E 
8541 
8543 
8546 
8549 
854C 
854F 


8551 
8553 
8554 


8556 
8559 
855C 
855F 
8561 

8563 


8565 
8567 
8569 
8568B 


856D 
856F 
8571 
8573 
8575 


A5 
48 
29 
85 
20 


20 
20 
20 
29 
8D 
AD 
29 
oD 
8D 
8E 
8c 
A2 


86 
68 
85 


AD 
AE 
AC 
85 


EO 
DO 


DO 
FO 


02 


FE 
02 
58 


00 
79 
25 
Ab 
03 
08 
73 
FF 
F& 
3E 
42 
07 
3E 
3E 
3F 
3c 
80 


AE 


02 


46 
47 
44 
5A 
5B 
sc 


c7 
21 
02 
OA 


3F 
19 
01 
15 
08 


00 


81 


00 


AF 
00 
7F 


c6 


c6 


c6 
c6 


WINS 


WIN4 


JSR 
LDA 
PHA 
AND 
STA 
JSR 


LDX 
JSR 
BEQ 
CMP 
BEQ 
JSR 
JSR 
JSR 
AND 
STA 
LDA 
AND 
ORA 
STA 
STX 
STY 
LDX 


STX 
PLA 
STA 


LDA 
LDX 
LDY 
STA 
STX 
sTtY 


CHRGET 
GFLAG 


#SFE 
GFLAG 
FINITO 


#0 
CHRGOT 
WIN4 
#TO 
WINS 
SERR 
CHRGET 
TESCOR 
HSF8 
XL 
X2L 
#307 
XL 
xXıL 
X1H 

Yı 
#380 


GCFLAG 


GFLAG 


X3L 
X3H 
Y3 
WX2L 
WX2H 
wY2 


;VOLLES FENSTER? 
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;NAECHSTES ZEICHEN 


;LGR-FLAG AUSBLENDEN 
;PARAMETER HOLEN->X2,Y2/X3,Y3 


;FLAG 
;LETZTES ZEICHEN HOLEN 
;KEINE ZIELKOORDINATEN ANGEGEBEN 


;SYNTAX ERROR 

;NAECHSTES ZEICHEN HOLEN 
;ZIELKOORDINATEN HOLEN 
;UNTERE 3 BITS AUSBLENDEN 
;SPEICHERN 


;DAFUER 3 BITS VON X2 
;X-KOORD. IN GLEICHEN BLOCK 
;WIE QUELLFENSTER BRINGEN 


;MERKEN 
;FLAG 


;FLAG MERKEN 


;GFLAG WIEDERHERSTELLEN 


;KOORD. UNTERE RECHTE ECKE 


;UNTERE RECHTE KOORDINATEN TESTEN: 


;HGR: 


;MC: 


cPY 
BNE 
BIT 
BMI 


CPX 
BNE 
CMP 
BNE 
BEQ 


#199 
WINI 
GFLAG 
WIN2 


#<319 
WINI 
#>319 
WINI 
WIN3 


NEIN! 


;MC 


NEIN! 


NEIN! 
;C=1!/ VIELLEICHT! 
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8577 EO 9F WIN2 CPX #<159 


8579 DO OF BNE WINI ;NEIN! 
857B Cc9 00 cMP_ #>159 
857D DO OB BNE WINI xNEIN! 


’ 
;OBERE LINKE KOORDINATE TESTEN: 
857F AD 42 C6 WIN3 LDA X2L 


8582 0D 43 C6 ORA X2H 

8585 0D 40 C6 ORA Y2 ;KOORDINATEN=0,0? 

8588 FO 55 BEQ WINO ;JA!->VOLLES FENSTER! (C=1!) 
WEITER: 

858A AD 42 C6 WINI LDA X2L 

858D AE 43 C6 LDX X2H 

8590 AC 40 C6 LDY Y2 


8593 85 57 WINITO STA WXIL 


8595 86 58 STX WXIH 

8597 84 59 STY WYi ;KOORD. OBERE LINKE ECKE 
8599 85 5D STA WXAL 

859B 86 5E STX WXAH 

859D 84 5F STY WYA ;NACH AKTUELLEN KOORDINATEN 
859F 20 AA 81 JSR HPOSN ;PUNKTADRESSE BERECHNEN 


;ADRESSEN DECREMIEREN 


85A2 

85A2 AS AC WINITS LDA ADL ;ZEILENSTARTADRESSE NACH GRAD1: 
85A4 85 62 STA VRADIL 

85A6 38 SEC 

85A7 E9 08 SsBC #8 

85A9 85 60 STA GRADIL ;GRAPHIKADRESSE 8 ZURUECK 
85AB A5 AD LDA ADH 

85AD 48 PHA 

85AE E9 00 sBC #0 

85B0 85 61 STA GRADIH 

8582 68 PLA 

8583 4A LSR A 

85B4 66 62 ROR VRADIL 

8586 4A LSR A 

8587 66 62 ROR VRADIL 

8589 4A LSR A 

85BA 66 62 ROR VRADIL ;GRAPHIKADRESSE/8 

85BC 49 DC EOR #%11011100 ;BASISADRESSE VIDEORAM 


85BE 85 63 STA VRADIH ;NACH VIDEORAMADRESSE 
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85C0 
85c1 
8503 
85C5 
8507 
85C9 
85CB 


85CD 
85cF 
85D1 
8503 
8505 
8507 
85D9 
85DA 
85DC 


85DE 
85DF 


85E0 
85E1 
85E3 
85E5 
85E6 
85E8 
85EA 
85EB 
85EC 
85ED 
85EE 
85FO 
85F2 


85F3 


85F6 
85F7 
85F8 
85FB 
85FD 
8ö5rF 
8600 


38 
A5 
E9 
85 
85 
BO 
c6 


A5 
29 
09 
24 
70 
09 
2C 
09 
85 


18 
60 


38 
A5 
E5 
AA 
AS 
E5 
48 
8A 
48 
38 
A5 
E5 
48 


20 


18 
68 
6D 
85 
BO 
18 
68 


62 
01 
62 


02 
63 


63 
03 
40 
61 
03 


D8 
65 


5A 
57 


5B 
58 


sc 


59 


20 


3C 
sc 
1E 
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SEC 

LDA VRADIL 

sBc #1 

STA VRADIL ;VIDEORAMADRESSE - 1 
STA FRADIL 

BCS WIN8 

DEC VRADIH 


‘ 
WIN8 LDA VRADIH 
AND #3 
ORA #%01000000 ;6.BIT SETZEN 
BIT GRADIH ;6. BIT GRAPHIKADRESSE=1? 
BVS WINY ;JA->$E0O00-$FFFF 
ORA #5CC ;NEIN+>$AO00-$BFFF//ZWEITFARBRAM 
.BYT $2C ;NAECHSTEN BEFEHL UEBERSPRINGEN 
WING ORA #%D8 ;AKTUELLER FARBRAM 
STA FRADIH ;FARBRAMADRESSE (HIGH) 


CcLC ;FLAG 
WINO RTS 


;INITIALISIERUNG FUER ZIELFELD (GCOMB): 


III III 
’ 


® 
WINIT2 SEC ;GROESSE DES FELDES BERECHNEN: 
LDA WX2L 
SBC WXIL 
TAX 
LDA WX2H 
SBC WXIH 
PHA 
TXA 
PHA ;X2-X1 AUF STACK 
SEC 
LDA WwY2 
SBC WY1 
PHA ;Y2-Y1 AUF STACK 


JSR TAUSCH ;REGISTERSATZ 1 RETTEN 
; 
;UNTERE RECHTE ECKE VON ZIELFELD BERECHNEN: 


‘ 


CcLC 

PLA 

ADC Y1 

STA WY2 ;Y-KOORDINATE 

BCS WERROR ;AUSSERHALB BILDSCHIRM 
CcLC 

PLA 
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8601 6D 3E C6 ADC XiL 

8604 85 5A STA WX2L 

8606 68 PLA 

8607 6D 3F C6 ADC XIH 

860A 85 5B STA WX2H ;X-KOORDINATE 

860C BO OF BCS WERROR ;AUSSERHALB BILDSCHIRM 
860E AD 3E C6 LDA XiL 

8611 AE 3F C6 LDX X1H 

8614 AC 3C C6 LoY Y1 

8617 20 93 85 JSR WINITO ;PUNKTADRESSE BERECHNEN 
861A 4C 20 86 JMP TAUSCH ;WIEDER WECHSELN 


861D 4C 48 B2 WERROR JUMP GERR ;ILLEGAL QUANTITY 
’ 


. 


;REGISTERSATZ 1 UND 2 AUSTAUSCHEN: 
1m Re hehe ke 


8620 A2 OE TAUSCH LDX #14 
8622 B5 57 TAUO LDA WXIL,X ;AKTIVES REGISTER AUS NULLSEITE 
8624 48 PHA 


8625 BD 46 86 LDA SPRET,X ;GERETTETES REGISTER 
8628 95 57 STA WX1L,X ;NACH NULLSEITE 

862A 68 PLA 

862B 9D 46 86 STA SPRET,X ;REGISTER RETTEN 
862E CA DEX 

862F 10 Fi BPL TAUO 

8631 A5 AC LDA ADL 

8633 AE 55 86 LDX SPRET+15 

8636 8D 55 86 STA SPRET+15 

8639 86 AC STX ADL 

863B A5 AD LDA ADH 

863D AE 56 86 LDX SPRET+16 

8640 8D 56 86 STA SPRET+16 

8643 86 AD STX ADH ;ADL/ADH AUSTAUSCHEN 
8645 60 RTS 


sun 


;SPEICHER FUER 17 GEREITETE REGISTER: 


III 
‘ 


;(2. REGISTERSATZ) 


8646 00 00 00 SPRET .BYT 0,0,0,0,0 
8648 00 00 00 .BYT 0,0,0,0,0 
8650 00 00 00 BYT 0,0,0,0,0 
8655 00 00 .ByT 0,0 ;FUER ADL/ADH 


nen 8 


554 


Das Supergraphikbuch zum C64 


8657 
8659 


AS 5D 
29 07 


SPEICHER 


865B 
865E 
865F 
8662 


8663 
8664 
8666 
8668 
8669 
866B 
866D 
866F 
8671 


8D F9 
AA 
BD C8 
48 


38 

A5 5A 
E5 5D 
AA 

A5 5B 
ES 5E 
90 36 
DO OE 
EO 08 


86 


; 
‚ERMITTELN DER ADRESSE UND MASKE 


;DES NAECHSTEN BYTES EINES FENSTER-FELDES: 
Paola aEnd 05 2050205022202 0552 en 


sEINGABE: 

WXAL/H:AKTUELLE KOORDINATEN 

WYA  :DES STARTBITS DES GESUCHTEN BYTES 
GRAD 1L/ 

GRAD1H:ADRESSE DES VORHERIGEN BYTES 
VRAD1L/ 

GRAD1H:ADRESSE DES VORHERIGEN VIDEORAMBYTES 
FRAD1L/ 

FRADIH:ADRESSE DES VORHERIGEN FARBRAMBYTES 
WXIL/H=FENSTER- 

wy1 :KOORDINATEN OBEN LINKS 
WX2L/H:FENSTER- 

WY2 _:KOORDINATEN UNTEN RECHTS 

ADL/ 

ADH :ADRESSE DES ZEILENSTARTS 


Druc Per VErvErDrEevEC VE PETE Tree rue rev 


‚AUSGABE: 


ALLE OBIGEN REGISTER 
AKTUALISIERT FUER NAECHSTES BYTE 


‘ 

‘ 

5 AKU :MASKE: 

i ALLE BITS DES BYTES, 

; DIE ZUM FENSTER GEHOEREN 
r SIND GLEICH 1 

: CARRY:=0: FENSTER FERTIG 

; =1: FENSTER NOCH NICHT FERTIG 
’ 

‘: 

: 

G 


RIGHT LDA WXAL ;AKTUELLE X-KOORD. LOW 
AND #807 ;BERECHNE BITPOSITION DES PUNKTES IM 


STA BIPO ;ZWISCHENSPEICHERN 
TAX ;=OFFSET ZU TABELLE 
LDA BIPTB1,X ;HOLE MASKE 
PHA ;MERKEN 
: 
SEC 
LDA WX2L 
SBC WXAL ıX2-XA 
TAX 


LDA WXZ2H ;NOCH EIN VOLLES BYTE 
SBC WXAH ;BIS X22 

BCC GRIO ;<O => NAECHSTE REIHE 
BNE GRI1 ;>=8 -> JA, VOLLES BYTE 
CPX #8 
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8673 BO OA 


8675 
8677 
8679 
867A 
867B 
867E 


867F 
8682 
8684 
8685 
8687 
8689 
868B 


868D 
868F 
8690 
8692 
8694 
8696 


8698 
869A 
869C 
869E 
86A0 


86A2 
86A3 
86A4 


86A5 
86A6 
86A8 
86AA 
86AC 


86AE 
86B0 
86B2 
86B4 
86B7 
86B9 


A5 
29 
AA 
68 
3D 
48 


AD 
49 
38 
65 
85 
90 
E6 


A5 
18 
69 
85 
90 
E6 


E6 
E6 
DO 
E6 
E6 


68 
38 
60 


68 
E6 
A5 
c5 
90 


AS 
29 
69 
8D 
A5 
85 


5A 
07 


DO 86 


F9 86 
07 


5D 
5D 
02 
5E 


60 


08 
60 
02 
61 


62 
04 
65 
63 


5F 
5c 
5f 
F6 


AD 
EO 
1D 
17 C6 


5D 


BCS 


GRI1 ;‚>=8 -> JA 


;ENDE DES FENSTERS ERREICHT->MASKE KUERZEN: 


‘ 


LDA WX2L 
AND #307 
TAX ;OFFSET FUER ZWEITE TABELLE 
PLA 
AND BIPTB2,X ;MASKE HINTEN KUERZEN 
PHA . ;UND MERKEN 
5 
GRI1 LDA BIPO 
EOR #307 ;7-BIPO->AKU 
SEC ;c=1l 1 
ADC WXAL 
STA WXAL  ;NAECHSTER BYTE-START 
BCC GRI2 
INC WXAH  ;8-BIPO + XA -> XA 
: 
GRI2 LDA GRADIL 
CeLC 
ADC #8 
STA GRADIL ;ADRESSE ZUM NAECHST-RECHTEN BYTE 
BCC GRIZ 
INC GRADIH 
; 
GRI3 INC FRADIL 
INC VRADIL 
BNE GRI4 
INC FRADIH ;FARBRAMADRESSE+1 
INC VRADIH ;VIDEORAMADRESSE+1 
‘ 
GRI4 PLA ;MASKE HOLEN 
SEC ;FLAG FUER NICHT FERTIG 
GRIS RTS ;ZURUECK 
‘ 
; 
;NAECHSTE REIHE: 
; 
GRIO PLA 
INC WYA ;YA+1 
LDA uwY2 
CMP WYA ;Y2<YA? 
BCC GRIS ;JA->FENSTER FERTIG C=0->FERTIG-FLAG 
: 
LDA ADH 
AND #%11100000 
ADC #81D  ;c=1! 
STA GEND ;GEND FUER UNTEN 
LDA WXIL 
STA WXAL 
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86BB A5 58 LDA WX1H ;X1->XA (SPALTENANFANG) 

86BD 85 SE STA WXAH ;= STARTPUNKT NAECHSTE ZEILE 

86BF 20 FA 86 JSR UNTEN ;EINE ZEILE TIEFER (ADR. IN ADL/ADH) 
86C2 20 A2 85 JSR WINITS ;INIT-ADRESSEN BERECHNEN 

8605 4C 57 86 JMP GRIGHT ;WEITER MACHEN 


sonen 


;TABELLEN DER BITPOSITIONSMASKEN: 


ZERTARNRERRIUITERERTITTRETNERTRE 


’ 
86C8 FF BIPTBI .BYT %11111111 
86C9 7F «BYT %01111111 
86CA 3F .BYT %00111111 
86CB IF .BYT %00011111 
86CC OF .BYT %00001111 
86CD 07 «BYT %00000111 
86CE 03 «BYT %00000011 
86CF 01 «BYT %00000001 
86D0 80 BIPTB2 .BYT %10000000 
86D1 CO .BYT %11000000 
86D2 EO .BYT %11100000 
8603 FO «BYT %11110000 
86D4 F8 .BYT %11111000 
8605 FC «BYT %11111100 
86D6 FE «BYT %11111110 
86D7 FF «BYT %11111111 


onen. 


;DIE GLEICHE ROUTINE MIT VORHERIGEM 
;AUSTAUSCH DER REGISTER ZUR BERECHNUNG 
;EINES ZIELFENSTERS FUER GCOMB: 


RR a a a a a a a a 


nen 


86D8 20 20 86 ZIELAD SR TAUSCH ;REGISTERSATZ TAUSCHEN 


86DB 20 57 86 JSR GRIGHT ;NAECHSTES BYTE 

86DE A5 60 LDA GRADIL 

86E0 85 69 STA GRAD2L 

86E2 A5 61 LDA GRADIH 

86E4 85 6A STA GRAD2H ;GRAPHIKADRESSE MERKEN 
86E6 A5 62 LDA VRADIL 

86E8 85 6B STA VRAD2L 

86EA AS 63 LDA VRADIH 

86EC 85 6C STA VRAD2H ;VIDEORAMADRESE MERKEN 


86EE AS 64 LDA FRADIL 
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86F0 85 6D STA FRAD2L 


86F2 AS 65 LDA FRADIH 
86Ff4 85 6E STA FRAD2H ;FARBRAMADRESSE MERKEN 
86Ff6 4C 20 86 JMP TAUSCH ;REGISTERSATZ TAUSCHEN 
’ 
D 
; 
;SPEICHER: 
nk 
; 
86F9 00 BIPO .BYT 0 
, 
: 
i 
’ 
;VEKTORROUTINEN: 


rer a 


nn. 


;GRAPHIKCURSOR NACH UNTEN: 


‘ 
86FA 24 02 UNTEN BIT GFLAG ;GRAPHIKFLAG 


86Fc 70 76 BVS JUNTEN ;LGR/SPRITE-MODUS 
86FE A5 AC LDA ADL ;PUNKTADRESSE (LOW-BYTE) 
8700 29 07 AND #7 
8702 c9 07 cMP_ #7 
8704 FO 05 BEQ UNI ;PACKENRAND 
8706 38 SEC 
8707 A9 00 LDA #0 
8709 BO 1D BCS UN3 ;ADDIERE 1 (C=1!) 
’ 
870B A5 AD UNI LDA ADH 
8700 cD 17 C6 CMP GEND 
8710 90 12 BCC UN2 
8712 A5 AC LDA ADL 
8714 E9 07 sBc #7 
8716 85 AC STA ADL 
8718 AS AD LDA ADH 
871A E9 1E SBC #$1E 
871C 85 AD STA ADH 
871E A9 01 LDA #1 
8720 80 91 C6 STA RUECK ;RUECKMELDUNG F. AUSSERHALB FENSTER 


8723 60 RTS 
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8724 A9 39 LN2 LDA #339 ;ADDIERE 320-7=313 
8726 E6 AD INC ADH ;c=0! 

8728 65 AC UN3 ADC ADL 

872A 85 AC STA ADL 

872C A9 00 LDA #0 

872E 65 AD ADC ADH 

8730 85 AD STA ADH 

8732 60 RTS 


;OBEN/UNTEN- ENTSCHEIDUNG: 


8733 30 C5 .o BMI UNTEN 


.nCc“ 


;GRAPHIKCURSOR NACH OBEN: 


’ 


8735 24 02 OBEN BIT GFLAG 


8737 70 3E BVS JOBEN ;LGR/SPRITE-MODUS 
’ 

8739 A5 AC LDA ADL 

8738 29 07 AND #7 

873D FO 05 BEQ OB1 ;PACKENRAND (OBEN) 

875F 18 CcLC 

8740 A9 FF LDA #$FF 

8742 90 25 BCC 0B4 ;SUBTRAHIERE 1 

8744 AD 18 C6 OB1 LDA GSTART 

8747 C5 AD CMP ADH 

8749 90 1A BCC O0B3 

8748 DO 06 BNE OB2 

8740 AY 3F LDA #$3F 

874F C5 AC CMP ADL 

8751 90 12 BCC 0B3 
’ 

8753 A5 AC oB2 LDA ADL 

8755 69 06 ADC #6 

8757 85 AC STA ADL 

8759 A5 AD LDA ADH 

875B 69 1E ADC #S1E 

8750 85 AD STA ADH 

875F A9 02 LDA #2 

8761 8D 91 C6 STA RUECK ;AUSSERHALB FENSTER 


8764 60 RTS 
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8765 A9 C7 
8767 C6 AD 


8769 
876B 
876D 
876F 
8771 
8773 


8774 
8777 
877A 
8770 


8780 
8781 
8783 


8785 
8787 
8789 
878B 
878D 
878F 
8791 
8792 
8794 
8795 
8797 
8799 
8798 
879D 
879F 
87A1 
87A3 
87A5 
87A8 


8749 
87AB 
87AD 
87AF 
8781 


65 
85 
A5 
E9 
85 
60 


4c 
4c 
4c 
4c 


18 
24 
70 


10 


62 
6C 
76 
94 


02 


02 


66 AB 


66 
90 
66 
A5 
c8 
co 
38 
DO 
AO 
E9 
85 
A5 
E9 
85 
A9 
8D 
60 


69 
85 
90 
E6 
60 


AB 
1B 
AB 
AC 


28 


12 


38 
AC 
AD 
01 
AD 
03 
91 


07 
AC 
F9 
AD 


7F 
7F 
7F 


c6 


0B3 


0B4 


un 


LDA 
DEC 
ADC 
STA 
LDA 
SBC 
STA 
RTS 


;SPRUENGE ZU 


’ 
JUNTEN 
JOBEN 
JRECHT 
JLINKS 


son 


JMP 
JMP 
JMP 
JMP 


#$C7 _ ;SUBTRAHIERE 320+7=327 
ADH ;c=0! 

ADL 

ADL 

ADH 

#0 

ADH 


DEN LGR/SPRITE-VEKTORROUTINEN: 


SUNTEN 
SOBEN 

SRECHT 
SLINKS 


;GRAPHIKCURSOR NACH RECHTS: 


‘ 
RECHTS 


RE1 


RE2 


‘ 
RE3 


CcLC 
BIT 
BVS 


BPL 
ROR 
ROR 
BCC 
ROR 
LDA 
INY 
CPY 
SEC 
BNE 
LDY 
SBC 
STA 
LDA 
SBC 
STA 
LDA 
STA 
RTS 


ADC 
STA 
BCC 
INC 
RTS 


GFLAG 
JRECHT ;LGR/SPRITE-MODUS 


REI 

MSK ;MC 

MSK ;BITMASKE ROLLEN 
RE2 ;NOCH INNERHALB BYTE 
MSK ;AUSSERHALB BYTE 
ADL 


#328 


RE3 

#0 

#338 

ADL 

ADH 

#1 

ADH 

#3 

RUECK ;AUSSERHALB FENSTER 


#7 
ADL 
RE2 
ADH ;8 ADDIEREN 


559 


560 Das Supergraphikbuch zum C64 


RECHTS/LINKS-ENTSCHE IDUNG: 


en Din nenn 


8782 10 CC -L BPL RECHTS 
;GRAPHIKCURSOR NACH LINKS: 
8784 18 LINKS CcLC 
8785 24 02 BIT GFLAG 
8787 70 C4 BVS JLINKS ;LGR/SPRITE-MOOUS 
8789 10 02 BPL LI 
87BB 26 AB ROL MSK ;MC 
87BD 26 AB L11 ROL MSK 
87BF 90 19 BCC LI2 
87C1 26 AB ROL MSK ;BITMASKE ROLLEN 
87C3 A5 AC LDA ADL 
87C5 88 DEY 
87C6 18 CcLC 
87C7 10 12 BPL LI3 
87C9 AO 27 LDY #827 
87CB 69 38 ADC #338 
87CD 85 AC STA ADL 
87CcF AS AD LDA ADH 
8701 69 01 ADC #1 
8703 85 AD STA ADH 
8705 A9 04 LDA #4 
8707 8D 91 C6 STA RUECK ;AUSSERHALB FENSTER 
87DA 60 LI2 RTS 
‘ 
87DB E9 07 L13 sBc #7 
870D 85 AC STA ADL 
87DF BO F9 BCS LI2 
87E1 C6 AD DEC ADH ;8 SUBTRAHIEREN 


87E3 60 RTS 
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87E4 


48 


87E5 20 63 88 


87E8 
87E9 
87EA 
87EB 
87EE 
87er 
87FO 
87F3 
87F5 
87F7 
87F8 
87FA 
87FC 
87FD 
ör7rr 
8801 
8803 
8805 
8806 
8808 
880A 
880B 
880E 


8811 
8812 
8813 
8816 
8818 
881A 
881C 
881E 


68 
48 
38 
ED 
48 
8A 
ED 
85 
BO 
68 
49 
69 
48 
A9 
E5 
85 
85 
68 
85 
85 
68 
8D 
8E 


98 
18 
ED 
90 
49 
69 
85 
8c 


10 


11 
5A 
0A 


FF 
01 


00 
5A 
58 
5cC 


57 
5B 


10 
11 


12 


FF 
FE 
59 
12 


c6 


c6 


c6 
c6 


c6 


;LINIE VON X1,Y1 NACH X2,Y2 ZEICHNEN: 
;CZENTRALROUTINE) 


III 
‘ 


‘ 
;EINGANG: 
A: 
X: 
Y: 
EO: 
E1: 
’ E2: 


‘ 


nenne nen 


; 

HLINE PHA 
JSR 
PLA 
PHA 
SEC 
SBC 
PHA 
TXA 
SBC 
STA 
BCS 
PLA 
EOR 
ADC 
PHA 
LDA 
SBC 

L4 STA 
STA 
PLA 
STA 
STA 
PLA 
STA 
STX 


TYA 
cLC 
SBC 
BCC 
EOR 
ADC 
HL4 STA 
sTY 


> 


X2-KOORDINATE (LOW-BYTE) 
X2-KOORDINATE (HIGH-BYTE) 
Y2-KOORDINATE 
X1-KOORDINATE (LOW-BYTE) 
X1-KOORDINATE (HIGH-BYTE) 
Y1-KOORDINATE 


;A 2: X2-LOW-BYTE RETTEN 


GETES ;ES5 BERECHNEN 
‚X2-K-L 

EO 

E1 

D3 ;X2-X1 

L4 ;NEGATIV? 
;JA 

HSFF 

#1 

#0 

D3 ;VZW 

D1 

D5 ;(X2-X1)-HIGH 

DO 

D4 ;(X2-X1)-LOW 

EO 

E1 ;X2 ALS NEUE X1 

E2 ‚Y2-Y1 

HL4 ;NEGATIV 

HSFF 

#SFE ;VZzW 

D2 ;(Y2-Y1) 


E2 ;Y2 ALS NEUE Y1 
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8821 66 5A ROR D3 ;(X2-X1)/2 
8823 38 SEC 
8824 ES 57 sBC DO ;cY2-Y1)-cX2-X1) 
8826 AA TAX ;LOW-BYTE NACH X-REG. 
8827 A9 FF LDA #$FF 
8829 ES 58 SBC D1 
882B 85 5F STA ZA ;HIGH-BYTE NACH ZA 
882D A4 93 LDY ES 
882F BO 05 BCS L5 ;UNBEDINGT 
;ZEICHENSCHLEIFE: 
8831 0A L1 ASL A 
8832 20 B2 87 JSR R.L ;RECHTS/LINKS 
8835 38 SEC 
8836 AS 5B L5 LDA D4 
8838 65 59 ADC D2 
883A 85 5B STA D4 
883C AS 5C LDA D5 
883E E9 00 SBC #0 ;(X2-X1)-(Y2-Y1) -> (X2-X1) 
8840 85 5C L2 STA D5 
8842 84 93 STY E65 
8844 20 18 82 JSR PLT ;PUNKT ZEICHNEN 
8847 E8 L1. INX ;EINSPRUNG FUER SPRITE-IRQ 
8848 DO 05 BNE L6 
884A E6 5F INC ZA 
884C DO 01 BNE L6 ;ZAEHLER 
884E 60 RTS 
’ 
884F AS 5A L6 LDA D3 
8851 BO DE BCS LI 
8853 20 33 87 JSR U.O ;UNTEN/OBEN 
8856 18 CLC 
8857 AS 5B LDA D4 
8859 65 57 ADC DO 
885B 85 5B STA D4 
885D AS 5C LDA D5 
885F 65 58 ADC DI 


8861 50 DD BVc L2 ;UNBEDINGT 


onen 
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;ES HOLEN: 


WERTERERE 


‘ 
8863 AD 11 C6 GETES LDA E1 


8866 4A LSR A 

8867 AD 10 C6 LDA EO 

886A 6A ROR A 

886B 4A LSR A 

886C 24 02 BIT GFLAG ;BEI MC NUR DURCH 4 
886E 30 01 BMI GETES. 

8870 4A LSR A 

8871 85 93 GETES. STA E5 

8873 60 RTS 


em 


ERRERRRRERTRRURER 


au ar 
;** BEFEHL: GMOVE ** 
su“ a% 
RETTEN 
; 
8874 20 9E B7 GMOVE JSR GETBYT ;HOLE MODUS NACH X 
8877 8A TXA 
8878 4A LSR A ;0. BIT NACH CARRY 
8879 08 PHP sRE/LI-FLAG RETTEN (C=0- LI / C=1- RE) 
887A 29 01 AND #1 ;EVT. FEHLER KORRIGIEREN 
887C 4A LSR A 
887D 6A ROR A ;7.BIT F. SCROLL/SCHIEB VORBEREITEN 
887E 85 96 STA FLG2 ;7.BIT=0: SCROLL / =1: SCHIEB 
8880 20 Fi B7 JSR CHKGET ;AUF KOMMA PRUEFEN UND STARTZEILE HOLEN 
8883 EO 19 CPX #25 
8885 90 02 BCC GMV8& 
8887 A2 18 LDX #24 ;KORREKTUR 
8889 8E 3C C6 GMV8& st v1 ;ALS OBERE ZEILE MERKEN (0) 
888C 20 Fi B7 JSR CHKGET ;ENDZEILE HOLEN 
888F EO 19 CPX #25 
8891 90 02 BCC GMV7 
8893 A2 18 LDX #24 ;KORREKTUR 
8895 8E 40 C6 GMV7 STX Y2 ;ALS UNTERE ZEILE MERKEN (U) 


8898 8A TXA ;0 NACH A 
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8899 AE 3C 


889C 
889F 
88AO 
88A3 
88A5 
88A7 
88AA 


88AD 
88AF 
88B0 
88B1 
88B3 
88B4 
88B5 


88B6 
8889 
88BC 
88BE 
88BF 
88C1 

88C2 
88C3 
88C4 
88C6 
88C7 
88C9 
88CB 
88CcC 
8öcr 
88D1 

8803 
88D5 
88D7 
8809 
88DB 
88DD 
88DE 
88E0 
88E1 

88E3 
88E4 
88E6 


AC 
38 
ED 
BO 
49 
AE 
AC 


85 
28 
08 
90 
c8 
98 


85 
8A 
29 
AA 


78 
A5 
48 
29 
85 
08 
BD 
90 
E9 


c6 
85 
85 
A5 
4A 
66 
4A 


4A 
66 
29 


40 


3C 
08 
FF 
40 
3c 


97 


37 
4F 
FE 


03 


01 


FC 
01 


51 
08 
02 
FE 
FD 
61 
61 
61 


61 
03 


c6 


c6 


c6 
c6 


7D 
c6 


7D 
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;0 UND U NACH GROESSE ORDNEN: 


. 


LDX 
LDY 
SEC 
SBC 
BCS 
EOR 
LDX 
LDY 


y1 ;uU NACH X 
Y2 ;O NACH Y 

y1 ;O-U 

GMV1 ;0o>=U => OK. 
HSFF  ;0<U 

Y2 ;WECHSELN 

Y1 


;RECHTS/LINKS- INITIALISIERUNG: 


GMV1 


STA 
PLP 
PHP 
BCC 
INY 
TYA 
TAX 


FLG ;ZEILENZAEHLER 
;RE/LI-FLAG HOLEN 
;UND MERKEN 

GMVO ;">LINKSSCHIEBUNG 
;RECHTS: 1 ZEILE WEITER 


;UND UNTEN STARTEN 


;HGR-STARTADRESSE BERECHNEN: 


4: 
GMVO 


GMV9 


LDA 
ORA 
STA 
TXA 
AND 
TAX 
PLP 
SEI 
LDA 
PHA 
AND 
STA 
PHP 
LDA 
BCC 
SBC 
BCS 
DEC 
STA 
STA 
LDA 
LSR 
ROR 
LSR 
ROR 
LSR 
ROR 
AND 


MUL.H,X ;ZEILE MAL 320 (MULTIPLIKATIONSTABELLE) 
GRMEM ;AB AKTUELLER GRAPHIKSEITE 
USE+1 ;ZEILENSTARTADRESSE HIGH-BYTE 


#3 


SFC 
1 ;ROM AUS 

;RE/LI-FLAG HOLEN 
MUL.L,X ;LOW-BYTE DER ADRESSE 
GMV9  ;LINKS 
#8 
GMV9 
USE+l  ;-8 BEI RECENDE ZEILE) 
USE ;NACH USE 
361 ;FARBSPEICHERADRESSE: 
USE+1 


$61 
$61 


$61 ;/8 
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88E8 OD 
88EB 85 
88ED 8D 


88F0 A5 
88F2 4A 
88F3 BO 
88F5 AD 
88F8 85 
88FA A5 
88Ffc 69 
88FE 85 
8900 A5 
8902 69 
8904 85 


8906 AO 
8908 B1 
890A AA 
890B 24 
890D 10 
890F A2 
8911 96 
ROLLEN) 
8913 88 
8914 10 


8916 A2 
8918 28 
8919 08 
891A BO 
891C 20 
891F 4C 
8922 20 
8925 C6 
8927 10 


50 
62 
48 


02 


3A 
55 
15 
FD 
08 
AE 
FE 
00 
AF 


07 
FD 


96 
02 
00 
57 


F2 


06 
74 
25 
EO 
97 


c6 


c6 


89 
89 
89 


;HGRCMC) 


- 


ORA 
STA 
STA 


UND 


LDA 
LSR 
BCS 
LDA 
STA 
LDA 
ADC 
STA 
LDA 
ADC 
STA 


COLMEM 
$62 ;COLORADRESSE NACH $61/$62 
ZWIS 


LGR - VERZWEIGUNG: 


GFLAG ;GRAPHIKFLAG 

A 

LGRMOV ;LGR 

COLOR 

XK+1  ;NACHSCHUB FUER VIDEORAM-SCHIEB 
USE ;c=0! 

#8 

SHP 

USE+1 

#0 

SHP+1  ;STARTADRESSE PLUS 8 MERKEN 


;HGR/MC- VERSCHIEBUNG: 


III 
‘ 


;JEDE ZEILE MIT JE 320 BYTES WIRD 
;IN 5 ABSCHNITTE ZU JE 64 BYTES UNTERTEILT 
;CGESCHWINDIGKEITSOPTIMIERUNG) 


;A. ZEILENSCHLEIFE: 


GMV2 
LRVI 


GMV5 


GMV3 
GMV4 


nu 


LDY 
LDA 
TAX 
BIT 
BPL 
LDX 
STX 


DEY 
BPL 


LDX 
PLP 
PHP 
BCS 
JSR 
JMP 
JSR 
DEC 
BPL 


#7 
(USE),Y ;HERUEBER ZU ROLLENDES BYTE 
NACH X 
FLG2 
GMV5S _ ;ROLLEN 
#0 ;SCHIEB => LEERSTELLEN NACHSCHIEBEN 


DO,Y ;ERSTE 8 BYTES ZWISCHENSPEICHERN (FUER 


LRVI 
# ;ABSCHNITTSZAEHLER 
;RE/LI-FLAG 

GMV3 

LIVER ;ZEILE LINKS VERSCHIEBEN 
GMV4 

REVER ;ZEILE RECHTS VERSCHIEBEN 
FLG 


GMV2 ;NAECHSTE ZEILE------- 
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;ENDE: 
8929 28 PLP 
892A 68 PLA 
892B 85 01 STA 1 
892D 58 eLI 
892E 60 RTS 


LGR - VERSCHIEBUNG: 
* 


Lad 2 0 2 2 2 a a 2 2 da 2 zz 


892F 28 GRMOV PLP 
8930 68 PLA 
8931 85 01 STA 1 
8933 08 PHP 
‘ 
;zEILENSCHLEIFE: 
8934 AY 20 LGMVO LDA Hu 
8936 85 15 STA XK+1 
8938 A5 62 LDA $62 
893A 29 03 AND #3 
893C 09 04 ORA #4 
893E 28 PLP 
893F 08 PHP 
8940 20 6A 89 JSR LGMVI 
8943 28 PLP 
8944 08 PHP 
8945 A5 61 LDA $%61 
8947 90 OA BCC LGMV4 
;RECHTS: 
8949 69 27 ADC #39 
894B 85 61 STA $61 
894D 90 OC BCC LGMV3 
894F E6 62 INC $62 
8951 BO 08 BCS LGMV3 
;LINKS: 
8953 E9 27 LGMV4 sBcC #39 
8955 85 61 STA $61 
8957 BO 02 BCS LGMV3 
8959 C6 62 DEC $%62 
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;RE/LI-FLAG VOM STACK 


;ROM AN 


;RE/LI-FLAG VOM STACK 


;ROM AN 
;UND WIEDER DRAUF 


;LEERZEICHEN ALS 
;NACHSCHUB F. SCHIEB 


;BASISADRESSE=$0400 
;FLAG 

;ZEILE VERSCHIEBEN 
; FLAG 


LINKS 


;c=1! 
;ADRESSE NAECHSTE ZEILE 


;UNBEDINGT 


;C=0! 


;ADRESSE NAECHSTE ZEILE 
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; FARBVERSCHIEBUNG: 


’ 
895B AD 1D C6 LGMV3 LDA TCOL ;TEXTHINTERGRUND 


895E 28 PLP 

895F 08 PHP ;RE/LI-FLAG 

8960 20 53 8A JSR FABRSC ;FARBRAM VERSCHIEBEN 
; 
; 

8963 C6 97 DEC FLG ;ZAEHLER 

8965 10 CD BPL LGMVO ;NAECHSTE ZEILE 
;ENDE: 

8967 28 PLP 

8968 58 CLI 

8969 60 RTS 


;LGR-ZEILE LINKSVERSCHIEBEN: 


II 
’ 


ö 
896A 85 62 LGMV1 STA $%62 
896C BO 03 BCS LGMV2 
896E 4C BC 89 JMP  LVC 

‚ 


. 
‘ 


;LGR-ZEILE RECHTSVERSCHIEBEN: 


III 
. 


8971 4C 1D 8A LGMV2 JMP RVC 


’ 
ö 
’ 
;HGR/MC-ZEILE LINKSVERSCHIEBEN: 


oe 
’ 

v 

;STEL-ABSCHNITTSSCHLEIFE: 


8974 AO 3F LIVER LDY #63 


8976 B1 AE LV1 LDA (SHP),Y ;64 BYTES HOLEN 

8978 99 00 DC STA $DCOO,Y ;RAM!-ZWISCHENSPEICHERN 
897B 88 DEY 

897C 10 F& BPL LVI 

897E AO 3F LDY #63 

8980 B9 00 DC LV2 LDA $DCOO,Y 

8983 91 FD STA (USE),Y ;NACH ZIELADRESSE SPEICHERN 
8985 88 DEY 


8986 10 F& BPL LV2 
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8988 
E898A 
898B 
898D 
898F 
8991 
8993 
8995 
8996 
8998 
899A 
899C 


899E 
899F 


89A1 
89A3 
89A4 
89A6 
89A8 
89AA 
89YAC 


89AE 
89BO 
89B2 
89B3 
8985 
89B6 


89B8 
8989 


8I9BC 
89BE 
89c0 
89c1 
89C3 
89c5 


AS 
18 
69 
85 
90 
E6 
E6 
18 
69 
85 
90 
E6 


cA 
DO 


A5 
38 
E9 
85 
A5 
E9 
85 


AO 
B6 
8A 
91 
88 
10 


18 
20 


AO 
B1 
AA 
24 
10 
A6 


08 
AE 
02 
AF 


43 


00 
61 


96 
02 
15 


8A 
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;ADRESSEN PLUS 64: 


LDA USE 
cLC 
ADC #64 
STA USE 
BCC LV3 
INC USE+1 
INC  SHP+1 
cLCc 

LV3 ADC #8 
STA SHP 
BCC LV4 
INC SHP+1 


LV4 DEX ;STELABSCHN. ZAEHLER 
BNE LIVER ;NAECHSTEN ABSCHNITT 


;ZWISCHENGESPEICHERTEN GRAPHIKRAND 
;HINUEBERROLLEN: 


® 


LDA USE 

SEC 

SBC #8 

STA ADL 

LDA USE+1 

sBc #0 

STA ADH ;USE-8 -> ADL/ADH 


-. 


LDY #7 

LV5 LDX DO,Y ;BYTE HOLEN 
TXA 
STA (ADL),Y ;ERSTE 8 BYTES 
DEY 
BPL LV5 


cLC ;RICHTUNGSFLAG 
JSR MCSC ;BEI MC AUCH FARBRAM VERSCH. 


no. 


;VIDEORAM LINKS VERSCHIEBEN: 


III III III 
. 


’ 
LVC LDY #0 
LDA ($61),Y 
TAX ;ERSTES BYTE MERKEN 
BIT FLG2 
BPL LV8 ;ROLLEN 
LDX xXK+1 ;NACHSCHUB 
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89c7 AO 27 
89C9 B1 


89CB 
89cc 
89CD 
89CF 
89D0 
89D1 
8902 


89D4 
89D5 
8907 
8909 
89DB 
89DD 
89DF 


89E0 
89E2 
89E3 
89E5 
89E7 
89E9 
89EB 
89EC 
89EE 
89FO 
89F2 
89F4 
89F6 


89F8 
89FA 
8IFC 
89FF 
8A00 


8A02 
8A04 
8A07 
8A09 
8AOA 


48 
8A 
91 
68 
AA 
88 
10 


18 
A5 
69 
85 
90 
E6 
60 


A5 
38 
E9 
85 
BO 
c6 
38 
A& 


E9 
85 
BO 


AO 
B1 
9% 
88 
10 


AO 
B9 
91 


10 


61 


61 


61 


61 
02 
62 


LV8 
LV6 


- 


LV7 


en. 


LDY 
LDA 
PHA 
TXA 
STA 
PLA 
TAX 
DEY 
BPL 


cLCc 
LDA 
ADC 
STA 
BCC 
INC 
RTS 


#39 ;40 BYTES 
(861),Y ;BYTE HOLEN 

;MERKEN 

;LETZTES BYTE WIEDERHOLEN 
($61),Y ;UND DORT ABSPEICHERN 


LV6 ;NAECHSTES BYTE 


$61 
#40 
$61 
LV7 
$62 ;ADRESSE NAECHSTE ZEILE 


;HGR/MC-ZEILE RECHTSVERSCHIEBEN: 


IHR 


sense» 


;STEL-ABSCHNITTSSCHLEIFE: 


: 
REVER 


RVI 


RV2 
RV3 


DC RV4 


LDA 
SEC 
SBC 
STA 
BCS 
DEC 
SEC 
LDY 
sTY 
SBC 
STA 
BCS 
DEC 


LDY 
LDA 
STA 
DEY 
BPL 


LDY 
LDA 
STA 
DEY 
BPL 


USE 


#56 ;USE ANS BLOCKENDE 
SHP ;SHP=USE+8 

RVI 

USE+1 


USE+1 
SHP+1 
#8 
USE 
RV2 
USE+1 


#63 ;64 BYTES 

(USE), Y 

$DCOO,Y ;ZWISCHENSPEICHERN 
RV3 

#63 

$DCO0,Y 

(SHP),Y ;UND UEBERTRAGEN 


RV4 
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8AOC 
8AOD 


8AOF 
8A11 
8A13 
8A14 
8A16 
8417 


8419 
8A1A 


8A1D 
8AlE 
8A20 
8A22 
8A24 
8A26 


8A28 
8A2A 
8A2C 
8A2D 
8A2F 
8A31 
8A33 


8A35 
8A37 
8A38 
8439 
8A3B 
8BASC 


VORBEREITEN 


8A3D 


cA 
DO 


AO 


8A 
91 


10 


38 
20 


38 
AS 
E9 
85 
BO 
c6 


AO 
B1 
AA 
24 
10 
A6 
AO 


B1 
48 
8A 
91 
68 
AA 


c8 


57 


AE 


43 


61 
61 
02 
62 
61 
96 
02 
15 
01 


61 


61 


8A3E CO 29 
8A4O DO F3 


8A42 


60 


8A 


DEX 
BNE 


REVER 


;ROLLEN/SCROLLEN: 


’ 


LDY 
RV5 LDX 
TXA 
STA 
DEY 
BPL 


». 


SEC 
JSR 


ne 


#7 
D0,Y 


(SHP),Y 


RVS 


MCSC 
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;ZAEHLER 
;NAECHSTEN ABSCHNITT 


;BYTES AUS ZWISCHENSPEICHER 


;RICHTUNGSFLAG 
;BEI MC AUCH FARBRAM VERSCHIEBEN 


;VIDEORAM RECHTSVERSCHIEBEN: 


a a a a a a a a a a 
’ 


‘ 

RVC SEC 
LDA 
SBC 
STA 
BCS 
DEC 


: 

RV7 LDY 
LDA 
TAX 
BIT 
BPL 
LDX 

RV8 LDY 


RV6 LDA 
PHA 
TXA 
STA 
PLA 
TAX 


INY 
CPY 
BNE 


RTS 


none 


$61 
#40 
$61 
RV7 
$62 


#40 


(861), Y 


FLG2 
RV& 
XK+1 
#1 


($61),Y 


(861),Y 


#41 
RV6 


;ADRESSE EINE ZEILE WEITER 


;ZU ROLLENDES BYTE 


;ROLLEN 
;NACHSCHUB 


;BYTE HOLEN 

MERKEN 

;LETZTES BYTE HOLEN 

;AN DIESE STELLE ABLEGEN 


;GEMERKTES BYTE FUER NAECHSTE SCHLEIFE 


;NAECHSTES BYTE 


;FERTIG 
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8A43 24 
8A45 10 
8A47 AD 
8A4A 20 
8A4D AD 
8A50 85 
8A52 60 


8453 85 
8A55 A5 
8457 29 
8A59 OD 
8ASC 4C 


02 
06 
IC 
53 
55 
15 


15 
62 
03 
51 
6A 


c6 
8A 
c6 


c6 
89 


; FARBRAM 


sr 
‘ 


Li 
MCSC 


MCSC1 


’ 
FABRSC 


VERSCHIEBEN: 


Wr 


BIT GFLAG 

BPL MCSCI ;KEIN MC => NICHT VERSCHIEBEN 
LDA COL3 ;MC 

JSR FABRSC ;FARBRAM VERSCHIEBEN 

LDA COLOR 

STA XK+1 ;NACHSCHUB F. VIDEORAM 

RTS 


STA XK+1 ;ROLLBYTE MERKEN 

LDA $62 

AND #3 

ORA FABMEM ;ADRESSE FARBRAM 

JMP LGMVI ;FARBRAM VERSCHIEBEN 


;VEBERSICHT GRAPHIKFLAGS: 


„rk 
. 


’ 


GFLAG: 
BIT7=0: 
=1: 
BIT6=0: 
=1: 
BIT5=0: 
=1: 
BIT4=0: 
=1: 
BIT3=0: 
=1: 
BIT2=0: 
=1: 
BIT1=0: 
=1: 
BITO=0: 
=1: 


GFLAG2: 
BIT7=0: 
=1: 
BIT3=0: 
=1: 


PP Er Pur Par Ver TEC rer PETE TEE TEE TEE TZe TEL TE Tu rEe ze Teer 


KR 


MULTICOLORMODUS AUS 
MULTICOLORMODUS EIN 
AUSSTEIGERFLAG LGR/SPRITES AUS 
AUSSTEIGERFLAG EIN 
MISCHANZEIGE AUS 

MISCHANZEIGE EIN (RASTER-IRQ) 
% 


HGR/MC -ANZEIGE AUSGESCHALTET 
HGR/MC-ANZEIGE EINGESCHALTET 
% 


% 


LGR WIRD BEFEHLIGT 
MC/HGR WIRD BEFEHLIGT 


;SEITE 2 ANGEZEIGT 
;SEITE 1 ANGEZEIGT 
;SEITE 1 BEFEHLIGT 
;SEITE 2 BEFEHLIGT 
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u 


;TABELLE DER GRAPHIKFLAGKOMBINATIONEN 
;GEORDNET NACH MODUSNUMMERN: 


ORIENTIERTEN IHR IR IIREERER INNE 


8A5F 01 GMTAB «BYT %00000001 
8A60 08 .BYT %00001000 
8A61 88 .BYT %10001000 
8A62 09 .BYT %00001001 
8A63 89 «BYT %10001001 
8A64 00 .BYT %00000000 
8A65 80 .BYT %10000000 
8A66 29 .BYT %00101001 
8A67 28 «BYT %00101000 


non. ne 


;TABELLE DER GRAPHIKSEITENFLAGKOMBINATIONEN 
;GEORDNET NACH MODUSNUMMERN: 


UT a a a a a 
. 


‘ 
8A68 88 GMTAB2 .BYT %10001000 
8A69 80 .BYT %10000000 
8A6A 00 .BYT %00000000 
8A6B 08 .BYT %00001000 


i 
; 
; 
;GRAPHIKMODUS INITIALISIERUNG: 


III a a a a a a 


’ 
8A6C A5 02 GMODEI LDA GFLAG ;GRAPHIKFLAG LADEN 
BA6E 29 20 AND #8%20 
8A70 FO 03 BEQ GMO000 ;KEIN RASTER-IRQ 
8A72 20 AE 93 JSR SOFF1I6 ;SATZ 2 SPRITES AUS 
8475 A5 02 GMOOO LDA GFLAG ;(FALLS GERADE TEXT) 
8A77 10 0D BPL GMOO ;KEIN MC 

v 

;MC EIN: 
8A79 29 08 AND #8 
8A7B FO 09 BEQ GMOO ;NICHT ANGEZEIGT 
8A7D AD 1D C6 LDA TCOL 
8A80 8D 21 DO STA V+r33 ;FARBE 3 
8A83 20 43 8C JSR ROTCOL ;MC => FARBRAM HOLEN 


8A86 A9 FF GMOO LDA #$FF 
8A88 85 FD STA USE ;KEINE SEITENANGABE-FLAG 
8ABA 60 RTS. RTS 
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8A8B 20 
8A8E 20 
8A91 C9 
8A93 FO 
8A95 20 
8A98 8A 
8A99 29 
8A9B 85 
8A9D 20 
8AAO FO 


8AA2 20 
8AA5S EO 
8AA7 90 
8AA9 A2 
8AAB BD 
TABELLE 
BAAE 85 


8ABO A4 
8AB2 30 
8AB4 B9 
TABELLE 
8AB7 48 
8AB& 4D 
8ABB 48 
8ABc 10 
8ABE 20 
8AC1 68 
8Ac2 29 
8AC4 FO 
8AC6 20 
8AC9 68 
8ACA 8D 


6C 
79 
2C 
0D 
JE 


Fi 
02 
00 
5F 


02 


FD 


68 


1E 


03 
5A 


08 
03 
9C 


1E 


8A 
00 


B7 


8A 


8A 


none ne 


A a a a a a a a a a ar 
‘ 


.% 
‘ 


“% 


;** BEFEHL: GMODE ** 


.r% 
‘ 


ar 


EEE TEERTT TITTEN 


. 


’ 

GMODE JSR 
JSR 
CMP 
BEQ 
JSR 
TXA 
AND 
STA 
JSR 
BEQ 


® 


; GRAPHIKMODUS: 

‘ 

GMO1 JSR 
CPX 
BCC 
LDX 

GM LDA 


STA 
’ 
;SEITENBEARBEI 
, 
GM2 LDY 
BMI 
LDA 


PHA 
EOR 
PHA 
BPL 
JSR 
GM2A PLA 
AND 
BEQ 
JSR 
GM2B PLA 
STA 


GMODEI 
CHRGOT 
Egal 
GMO1 
GETBYT 


#503 
USE 
CHRGOT 
GM2 


CHKGET 
„9 

GM1 

#0 
GMTAB,X 


GFLAG 
TUNG: 
USE 

GM2C 
GMTAB2,Y 


GFLAG2 


GM2A 
TRANS 


#8 
GM2B 
TRSBEF 


GFLAG2 
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; INITIALISIERUNG 


;KOMMA? 
JA 
;HOLE SEITENNUMMER 


;KORREKTUR 
;SEITE 


;KEIN ZEICHEN MEHR 


;HOLE GRAPHIKMODUS 


;KORREKTUR 
;BEI FEHLER: LGR 
;HOLE ENTSPRECHENDE FLAGKOMBINATION AUS 


;GRMODUS, NEUES GRAPHIKFLAG 


; SEITENNUMMER 
;KEINE SEITENANGABE 
‚ENTSPRECHENDE FLAGKOMBINATION AUS 


;MERKEN 
;VERAENDERTE BITS=1 


;">SEITENANZEIGE UNVERAENDERT 
;SEITENAUSTAUSCH, DA VERAENDERT 


;">KEINE AENDERUNG IN DER BEFEHLIGUNG 
;BEFEHLS-ZEIGERAUSTAUSCH, DA VERAENDERUNG 
;NEUE FLAGKOMBINATION HOLEN 

‚NEUES FLAG 


574 


8ACD 
8ACF 
8AD1 

8AD3 
8AD6 
8ADI 
8ADC 
8ADE 


8AEO 
8AE1 
8AE3 
8AE6 
8AE8 
8AEB 
8AEC 


8AEE 
8AF1 
BAF4 
8AF6 
8AF& 


8AFA 
8AFD 

8AFF 
8801 

8803 
8806 
8809 
8BOC 
8BOF 
8812 
8814 
8817 
8B1A 
8B1D 
8B1F 
8821 


A5 


FO 
20 
20 
2C 
10 
70 


A9 
A2 
AO 
8C 
8E 
8D 
AD 


A9 
8D 
AD 
8D 
24 
30 
60 


94 
81 
1A 


oc 


AE 
8c 
c6 


c6 


8B 


DO 
DO 
c6 
DO 


DO 
DO 


;MISCHANZEIGE: 
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‘ 
GM2C LDA GFLAG 
AND #8$20 
BEQ GM2D. ;KEIN RASTER- IRQ 
JSR CHKCOM ;AUF KOMMA TESTEN 
JSR GETRAS ;HOLE STREIFENBREITENPARAMETER 
BIT RASFLG ;RASTER-IRQ-FLAG 
BPL GM2C. ;2.2T.KEIN RASTER-IRQ AN 
BVS RTS. ;2.2T.BEREITS TEXT-IRQ AN 
’ 
;TEXT/HGR-IRQ EINSCHALTEN: 
’ 
GM2C. SEI 
LDA #8C0 
STA RASFLG ;TEXT-IRQ EIN (DAMIT EVT. SPRITE-IRQ AUS) 
LDA #%81 
STA V+26 ;INTERRUPT MASK REGISTER STELLEN 
cLI 
BNE GRAPHM ;UNBED. 
. 
; 
GM2D. STA RASFLG ;RASTER-IRQ-FLAG LOESCHEN 
STA V+26 ;INTERRUPT MASK REGISTER (IMR) 
GM2D LDA GFLAG 
AND #8%08 
BEQ TEXTM ;LGR BZW. TEXT 


HGR EINSCHALTEN: 


nen 


GRAPHM 
GRAPM1 


JSR 
LDA 


PCOLHG 
#53B 
LDX #308 
LDY #894 
STY W 

STX Vr24 
STA v+17 
LDA SPRIT1 
STA Vr21 
LDA #808 
STA v+22 
LDA V+33 
STA TCOL 
BIT GFLAG 
BMI GM3 
RTS 


;COLI=HIGH-/BCOL=LOW-BITS IN VIDEORAM 
;BITMAP-MODE 

;VIDEORAM: $COO0/GRAPHIK:$E000 
;OBERSTE BITS=%11 

;$5DDOO 

;GRAPHIKADRESSE FESTLEGEN 
;STEUERREG.1 


;SPRITE ENABLE 
;KEIN MC-MODE 
;STEUERREGISTER 2 
;TEXTFARBE 
;TEXTCOLOR 


;MC-MODE 
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8822 
8B25 
8B28 
8B2A 
8B2D 
8830 
8833 


8836 
8839 
8B3A 
8B3C 
8B3E 
8841 
8B43 
8B44 
8B46 
8847 
8B49 
8B4B 
8B4C 
8B4E 


8B4F 
8851 
8853 
8855 
8858 
8B5B 
8B5E 
8B60 
8863 
8B65 


8D 


AD 
8D 


AD 
48 
AO 
A9 
20 
A2 
68 
91 
c8 
DO 


ca 
DO 
60 


A9 
A2 
AO 
8c 
8E 
8D 
A9 
8D 
A9 
8D 


8868 60 


43 
16 
10 
16 
cA 
19 
21 


00 
D8 
20 
04 


1B 
14 
97 
00 
18 
11 
00 
15 
08 
16 


8c 
DO 


DO 
8B 
c6 
DO 


DD 
DO 
DO 


;MULTICOLORMODUS EINSCHALTEN: 


GM3 


z 
; FARBRAM 


‘ 
FRFILL 


GM5 


JSR 
LDA 
ORA 
STA 
JSR 
LDA 
STA 


MIT 


LDA 
PHA 
LDY 
LDA 
JSR 
LDX 
PLA 
STA 
INY 
BNE 
INC 
DEX 
BNE 
RTS 


ROTCOL ;FARBRAM RETTEN 

V+22 ;MULTICOLOR 

#16 

V+22 

PCOLMC ;COL2=L-/COL1=H-BITS IN VIDEORAM 
BCOL ; HGRUNDFARBE 

V+33 ;IN MC HGRUNDFARBE 


FARBE FUELLEN: 


cOL3 ;COLOR3 AUS FARBRAM 


;MERKEN 
#0 
#308 
STU ;3D800 NACH USE 
# 

;FARBE 


(USE),Y ;NACH FARBRAM 


GM5 
USE+1 


GM5 


;TEXTMODUS EINSCHALTEN: 


4. 
TEXTM 


one 


LDA 
LDX 
LDY 
sTY 
STX 
STA 
LDA 
STA 
LDA 
STA 
RTS 


#81B ;LOESCHE BIT-MODE 
#814 ;BASISADRESSE=$0400 
#597 ;OBERSTE BITS=%00 


W ;$DDOO 

V+24 

V+17 ; STEUERREG. 1 
#0 

V+21 ;SPRITE ENABLE 
#8 


V+22 ;STEUERREG.2-MC-MODE AUS 


575 


576 
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8869 20 
8B6C EO 
8B6E 90 
8870 A2 
8872 CA 
8873 30 
8875 20 
8878 Ed 
8879 20 


8B7C A4 
8B7E BY 
8881 85 
8883 20 
8886 24 
8888 10 


8B8A BY 
8B8D 85 
8B8F 20 
8892 CO 
8894 FO 


8896 4C 


8899 20 
8B9C EO 
8B9E 90 
8BAO A2 
8BA2 20 


JE 
04 
02 
01 


73 
FD 


A5 


JE 
05 
02 
01 
FD 


RETURN RENT RER 


si% 
‘ 


ar 


;** BEFEHL: SCOL= ** 


.% 


’ 

‘ 

’ 
‚ 
87 SCOLOR JSR 
CPX 

BCC 

LDX 

SCOL3 DEX 
BMI 

AE JSR 
INX 

8B JSR 


8C LDA 


8B JSR 


8C LDA 
STA 
88 JSR 
CPY 
BEQ 


; 
8C JMPSCL JMP 


une n 


‘ 


ar 


RR 


GETBYT 

#4 ;FARBNR. 
SCOL3 

# KORREKTUR 


BCOLO. ;NR.=0 => HINTERGRUND 
CHKCOM ;AUF KOMMA TESTEN 

;FARBE WIEDER INCREMIEREN 
TIIT ;FARBEN HOLEN UND EINSTELLEN 


MSK ; FARBNUMMER HOLEN 

MSKHG,Y ;VIDEORAMAUFBAU-MASKE 

MSK ;MERKEN 

PCOLHG ;COLOR-SPEICHER FESTLEGEN 
GFLAG 

JMPSCL ;HGR 


MSKMC,Y ;MC 


MSK 
PCOLMC ;WIE OBEN 
#3 ;FARBE 3? 


FRFILL ;FARBRAM ANFUELLEN 


SCOL1 ;BILDSCHIRM FAERBEN 


Fhndsiotaioioisieieieieieiedie di Zn ä0l0dd 


.i% 
‘ 


a% 


;** BEFEHL: PCOL= ** 


ar 


nn 


B7 PCOLOR JSR 
CPX 
BCC 
LDX 
AE PCLI JSR 


ur 


Ka a2 aa 2 2 zZ 2 2220209 


GETBYT ;HOLE PARAMETER 
#5 

PCL1 

#1 ;KORREKTUR 
CHKCOM ;TESTE AUF KOMMA 
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8BA5 8A TITT TXA ;FARB-NR. 

8BA6 48 PHA ;MERKEN 

8BA7 20 9E B7 JSR GETBYT ;FARBE NACH X HOLEN 

8BAA 68 PLA ;HOLE FARB-NR. 

8BAB C9 04 cMP #4 

8BAD FO 29 BEQ SLCOLO ;NR=4 (FUER MC) 

8BAF AB TAY ;FARB-NR. 

8BBO 8A TXA ; FARBE 

8BB1 29 OF AND #$0F ;KORREKTUR 

8BB3 99 19 C6 STA BCOL,Y ;ENTSPRECHENDE FARBE SPEICHERN 

8BB6 84 AB STY MSK ;POINTER AUF TABELLE 
’ 

8BB8 24 02 BIT GFLAG 

8BBA 30 OE BMI PCOLMC ;MC 


no. 


;COLOR FUER HGR FESTLEGEN: 


III IE 
’ 


’ 
8BBC AD 1A C6 PCOLHG LDA COL1 


8BBF OA ASL A 

8BCO 0A ASL A 

8BC1 0A ASL A 

8BC2 OA ASL A ;COL1 NACH OBERSTEM NIBBLE 
8BC3 OD 19 C6 ORA BCOL ;BCOL NACH UNTERSTEM NIBBLE 
8BC6 8D 55 C6 STA COLOR 

8BC9 60 RTS 


nen 


‚COLOR FUER MC FESTLEGEN: 


III III II 
’ 


’ 
8BCA AD 1A C6 PCOLMC LDA COL1 


8BCD OA ASL A 

8BCE OA ASL A 

8BCF OA ASL A 

8BDO OA ASL A ;COL1 NACH OBERSTEM NIBBLE 
8BD1 OD 1B C6 ORA COL2 ;cOL2 NACH UNTERSTEM NIBBLE 
8BD4 8D 55 C6 STA COLOR 

8BD7 60 RTS 


no. 


;MC- FARBNUMMER SETZEN: 


III a 
’ 


’ 
8BD8 8A SLCOLO TXA 
88D9 29 03 AND #803 
8BDB 8D IF C6 STA LCOLO ;MC-FARBE 


8BDE 60 RTS 


.... 
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8BDF 
8BE2 
8BE5 


8BE8 
8BEB 
8BEC 
8BEE 


8ßEF 
8BF1 
8BF2 


8BF4 
8BF7 
8BFA 


8BßFB 
8ßFE 
8C00 


8c02 
8C04 
8C06 


8C09 
8C0B 


8COD 
8COF 
8c12 
8014 
8016 
8C18 
8C1B 


A5 
4A 
90 


8E 
8E 
60 


8E 
AS 
30 


A9 
85 
20 


AS 
30 


A2 
20 
84 
A5 


2D 
85 


JE 
FO 
20 


OF 


02 


07 


1D 
21 


02 
2B 


03 
13 
97 
AB 
FF 
55 
96 
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IRRE 
‘ 


.% 
‘ 


7% BEFEHL: 


.r% 
‘ 


“% 


COLOR= ** 


ar 


IR 
‘ 


’ 
‚ 
B7 BCOLOR JSR 


95 
DO 


B7 


c6 


8B 


c6 


JSR 
STA 
’ 
BCOLO. JSR 
TXA 
AND 
TAX 


- 


LDA 
LSR 
BCC 


GETBYT ;RAHMENFARBE NACH X 

GET ;15ER ZAHL (S.TOENE) 
V+32 ; RAHMEN FARBE 

CHKGET ;HINTERGRUNDFARBE NACH X 


HSOF ; KORREKTUR 


GFLAG 
A ;BIT O NACH CARRY 
BC1 ;GRAPHIK BEFEHLIGT 


; TEXTHINTERGRUNDFARBE: 


STX 
STX 
RTS 


. 


TCOL ;NACH TEXTHINTERGRUNDFARBE 
V+33 


;GRAPHIK-HINTERGRUNDFARBE SETZEN: 


, 

BC1 STX 
LDA 
BMI 


Er 


LDA 
STA 
JSR 


‘: 
SCOL LDA 
BMI 


’ 

ScOoL1 LDX 
JSR 
STY 
LDA 
EOR 
AND 
STA 


BCOL 

GFLAG 

GM12 _ ;MC 

#SF0 

MSK ;VIDEORAMAUFBAU 


PCOLHG ;COLOR FUER HGR 


GFLAG 
GM2 _ ;MC 


#3 

STUCOL ;FARBADRESSE NACH USE 
FLG 

MSK 

HSFF 

COLOR 

FLG2 
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8ciD 
8c1F 
8c21 
8C23 
8c25 
8C26 
8C28 
8C2A 
8c2C 
8C2D 
8c2F 
8C31 


8C32 
8034 
8036 


8038 
8C3A 
8cäc 
8c3äF 
8C42 


8C43 
8C46 
8C49 
8C4C 
8C4F 
8c51 
8C53 
8055 
8057 
8c59 


B1 
25 
05 
91 

c8 
C4 
DO 
E6 
ca 
FO 
10 
60 


A2 
86 
DO 


FO 
AD 


60 


AD 
AE 
8D 
8E 
A9 
85 
85 
A9 
AO 
4c 


E8 
97 
E5 


51 
54 
54 
51 
00 
FD 
AC 
D8 
cc 
D5 


c6 
c6 
c6 
c6 


GM9 LDA 
AND 
ORA 
STA 
INY 
CPY 
BNE 
INC 
DEX 
BEQ 
BPL 
RTS 


’ 

GM9. LDX 
STX 
BNE 

i 


‘ 


(USE),Y 

MSK ;FARBNIBBLE AUSBLENDEN 
FLG2 _ ;FARBE 

(USE),Y ;SETZEN 


FLG ;BIS FLG 
GM9 
USE+1 


GM9. 
GM9 


#SE8 
FLG ;SPRITEVEKTOREN SCHUETZEN 
GM9 ;UNBEDINGT 


;MULTICOLOR HINTERGRUNDFARBE: 


‘ 

GM12 AND 
BEQ 
LDA 
STA 

GM13 RTS 


‘ 
. 


#8 ;A=GFLAG 

GMI3 _;MC NICHT ANGEZEIGT! 
BCOL 

v+33 _ ;FARBE SETZEN 


;FARBRAM RETTEN BZW. HOLEN: 
Je 


‘ 

ROTCOL LDA 
LDX 
STA 
STX 
LDA 
STA 
STA 
LDA 
LDY 
JMP 


sun 


FABMEM 

FABMM 

FABMM 

FABMEM ;FARBRAMADRESSEN WECHSELN 
#0 

USE 

ADL 

#PAIF 

#PA2F ;ZIEL UND QUELLE FESTLEGEN 
TRCOL ;FARBRAM RETTEN/HOLEN 
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;TABELLEN FUER VIDEORAM- FARBMASKEN: 
Zen 


z 
oO 
2 
. 


8c5c FO OF FF MSKHG „BYT $FO,$OF,SFF,SFF 


HINTERG/COL1/%/ % 


8060 FF OF FO MSKMC «BYT $FF,SOF,SFO,SFF 


% / % /COL2/COL3 


nen Zum Zuon 
zZ 
OD 


;GMODE -PARAMETER FUER MISCHANZEIGE HOLEN: 
Phakalaäloä 2a aladJal 222372 "L22 3223223 EEE 2 


8064 20 76 8C GETRAS SR GETRA1 ;1. PARAMETER 


8067 48 PHA 

8068 20 FD AE JSR CHKCOM 

8Cc6B 20 76 8C JSR GETRA1 ;2. PARAMETER 
8C6E 80 38 C6 STA RAST2 

8071 68 PLA 

8072 8D 37 C6 STA RASTI 

8075 60 RTS 


! 
8076 20 9E B7 GETRAI JSR GETBYT ;RASTERZEILE 


8079 8A TXA 
8c7A 18 CLC 
8C7B 69 28 ADC #40 ;+40 IN RASTERZEILE UMRECHNEN 
8C7D 60 RTS 
; 
; 
: 
’ 
’ 
es 
zer xr* 
ze BEFEHL: DRAW *%* 
zer “* 


IT a a a 


8c7E 20 67 7C DRAW JSR STFLG ;ZEICHENFLAGS HOLEN 


One n. 
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;DEFINITIONSSTRING HOLEN: 


8081 20 9E AD JSR FRMEVL ;NAECHSTEN AUSDRUCK HOLEN 
8C84 20 8F AD JSR CHKSTR ;TESTE AUF STRING 
8C87 20 82 B7 JSR %B782 ;HOLE STRINGPARAMETER 
8C8A A5 22 LDA $%22 

8C8C A6 23 LDX $23 ;ADRESSE STRING 

8C8E 48 PHA 

8c8r 8A TXA 

8C90 48 PHA ;RETTEN 

8091 98 TYA ;LAENGE STRING 

8092 48 PHA ;RETTEN 

8093 08 PHP ;FLAGS RETTEN 

8094 A5 02 LDA GFLAG 

8096 4A LSR A 

8097 90 05 BCC DRI ;KEIN TEXT 


;TEXT-MODUS: 


. 
’ 


8C99 2A ROL A 
8c9A 09 40 ORA #840 
8c9C 85 02 STA GFLAG ;AUSSTEIGERMODE 


; 
;KOORDINATEN HOLEN: 


’ 
8c9E 20 79 00 DRI JSR CHRGOT 
8cAl C9 91 CMP #AT ;AT-TOKEN? 
8CA3 DO IC BNE D9 ;NEIN->KEINE KOORDINATEN 
8CA5 20 73 00 JSR CHRGET 
8cA8ß 20 FF 7F JSR TESCOR ;HOLE KOORDINATEN NACH A,X,Y 
8CAB 28 PLP 
8CAC 08 PHP ;WAR STRINGLAENGE=0? 
8CcAD FO 18 BEQ DR2 iJA 
SCAF 48 PHA ;KOORDINATE IN A RETTEN 
8CB0 A5 02 LDA GFLAG 
8CB2 4A LSR A 
8CB3 68 PLA 
8CB4 90 08 BCC D8 ; GRAPHIKMODUS 
;TEXTMODUS: 
8CB6 8D 3E C6 STA XIL 
8CB9 8C 3C C6 stYy 1 
8cBC BO 09 BCS DR2 ;UNBEDINGT 
# 
8CBE 20 AA 81 D8 JSR HPOSN ;STARTPUNKTADRESSE BERECHNEN 
8cc1 20 63 88 D9 JSR GETES ;E5 ERRECHNEN 


8CC4 80 15 C6 STA ES.ZW ;ZWISCHENSPEICHERN 
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;DRAW AUSFUEHREN: 


‘ 


8Cc7 28 DR2 PLP ;FLAGS VOM STACK 
8cc8 68 PLA ;STRINGLAENGE 
8cc9 FO 1A BEQ DR3 ;=0 => ENDE! 
8ccB 85 14 STA XK ;LAENGE MERKEN 
8ccD 68 PLA 
8ccE 85 AF STA SHP+1 
8CDO 68 PLA 
8CD1 85 AE STA SHP ;STRINGADRESSE 
8CD3 AD 14 C6 LDA RT ;ROTATIONSWINKEL (ROT) 
8CD6 20 EE 8C JSR DRAW.1 ;ZEICHNE FIGUR 
ö 
;TERMINIEREN: 
’ 
8CD9 A5 02 LDA GFLAG 
8CDB 29 BD AND #%10111101 
8cDD 85 02 STA GFLAG ;AUSSTEIGERFLAG AUS 
8corF 20 F7 7C JSR TZA ;ADRESSE NACH ZWISCHENSPEICHER 
8CE2 4C CA 7F JMP PLTVAR ;TEST? 


v 
;BEENDEN BEI STRINGLAENGE=O: 


8cE5 A5 02 DR3 LDA GFLAG 

8CcE7 29 BD AND #%10111101 

8CE9 85 02 STA GFLAG 

8CEB 68 PLA 

8CcEC 68 PLA ;STRINGADRESSE VOM STACK 
8CED 60 RTS ;ENDE 


nn 


;DRAW- FIGUR ZEICHNEN: 


PR 2 202 2 20202 20202020202 272020272720 
’ 


;ROTATION BEARBEITEN: 


’ 
8CEE AA DRAW.1 TAX ;ROTATIONSWINKEL->X 
BCEF 4A LSR A ;DEN DURCH 90 GRAD TEILBAREN 
8CFO 4A LSR A ANTEIL DES WINKELS ALS EINFACHE 
8CF1 4A LSR A ;RICHTUNGSAENDERUNG MERKEN 
8CF2 4A LSR A ;116 
8CF3 85 5A STA D3 ;UNTERES NIBBLE 
8CF5 8A TXA ;ROT 
8CF6 29 OF AND #$0F ;OBERES NIBBLE 
BCF8 AA TAX ;ALS OFFSET 
8CF9 BC 68 8D LDY RDAT,X ;HOLE SINUS AUS TABELLE 
SCFC 84 57 stY 00 ;NACH DO 
SCFE 49 OF EOR #$0OF ;WERTE. UMKEHREN 
8000 AA TAX ;ALS OFFSET 


8001 BC 69 8D LDY RDAT+1,X ;COSINUS AUS TABELLE 
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8D04 C8 INY 
8005 84 59 stY D2 ;NACH D2 


‚ 
;DEFINITION ABFRAGEN UND ZEICHNEN: 


‚ 


8007 AC 15 C6 LDY ES.ZW ;ES5 (X-KOORD/8) -> Y 

8D0A A2 00 LDX #0 

8D0OC 8A TXA 

8D0D 01 AE D.O ORA (SHP,X) ;ZEICHEN AUS DEFINITIONSSTRING CEVT. MIT 
PLOTFLG OR-EN) 

8D0F C9 2E cmp u." ;PUNKT FUER PLOT? 

8D11 DO 04 BNE D.2 ;NEIN! 

8D13 A9 04 LDA #4 ;JA->PLOTFLG SETZEN 

8015 DO 29 BNE D.1 ;UNBEDINGT 

8017 29 07 D.2 AND #%07 ;SYNTAX BERICHTIGEN 

8019 85 58 STA D1 ;HOCH/RUNTER/RECHTS/LINKS- FLAG 

8D1B A2 80 LDX #80 

8D1D 86 5B STX D4 

8D1F 86 5C STX D5 ;STARTWERTE FUER D4/D5 

8D21 AE 13 C6 LDX E7 ;VERGROESSERUNGSFAKTOR ALS ZAEHLER NACH X 


’ 
; VERGROESSERUNGSSCHLEIFE: 


‘ 
8D24 AS 5B D.3 LDA D4 
8026 38 SEC 
8027 65 57 ADC DO ;ANGEPASSTEN SINUSWERT 
8029 85 5B STA D4 ;ZUM RECHTSGEDREHTEN 
8D2B 90 04 BCC D.4 ;RICHTUNGSANTEIL ADDIEREN 
8D2D 20 4B 8D JSR DRAW2 ;CURSOR BEWEGEN 
8030 18 cLc 
8D31 AS 5C D.4 LDA D5 
8033 65 59 ADC D2 ;ANGEPASSTEN COSINUSWERT 
8035 85 5C STA D5 ;ZUM LINKSGEDREHTEN 
8037 90 03 BCC D.5 ;RICHTUNGSANTEIL ADDIEREN 
8039 20 4C 8D JSR DRAW3 ;CURSOR BEWEGEN MIT CARRY=1 
8D3C CA D.5 DEX ;ZAEHLER- 1 
8D3D DO ES BNE D.3 
‘ 
8D3F 8A TXA 
8D40 E6 AE D.1 INC SHP 
8D42 DO 02 BNE D.6 
8D44 E6 AF INC SHP+1 ;ZEIGER AUF STRING INCREMIEREN 
8D46 C6 14 D.6 DEC XK ;ZEICHENZAEHLER 
8D48 DO C3 BNE D.O 


8D4A 60 RTS 


on 
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8D4B 
8D4C 
8D4E 
8050 
8052 
8054 
8057 
8059 
8D5B 
8D5D 
8D5F 
8D60 
8062 
8065 


8068 
8071 


8079 
8D7C 
8D7F 
8D82 
8083 
8086 


18 
84 
A5 
29 
FO 
20 
A5 
65 
29 
c9 
6A 
BO 
4c 
4c 


FF 
Aa 


20 
8E 
20 
E8 
8E 
60 


93 


04 
03 
18 
58 
5A 
03 
02 


03 
33 


FE 
8D 


YE 
14 
F1 


13 
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;CURSOR BEWEGEN UND PLOTTEN: 


Ra a a a a a a a a 
‘ 


‘ 
DRAW2 CLC 
DRAW  STY ES ;Y-REGISTER IN ES MERKEN 
LDA DI ;RICHTUNGSFLAG 
AND #4 ;PLOTFLG GESETZT? 
BEQ DA ;NEIN 
82 JSR PLT ;PLOT-ZENTRALROUTINE 
DA LDA DI ;RICHTUNGSFLAG 
ADC D3 ;PLUS ROT-ANTEIL 
AND #3 
cMP_ #2 ;RICHTUNG ERMITTELN 
ROR A ;FUER DIE VEKTORROUTINEN 
BCS DRAW4 
87 MP U.O ;UNTEN/OBEN 
87 DRAW MP R.L 5LINKS/RECHTS 
’ 
; 
;ANGEPASSTE SINUS/COSINUS-TABELLE 
;FUER ROTATIONSWINKEL: 
SARFRERERERKUNERRRRERENRERERTRENN 
; 
FA RDAT .BYT $FF,$FE,SFA,SF4,$EC,$E1,$D4 ,$C5 ,$B4 
78 .BYT $A1,$80,$78,561,349,$31,$18,$FF 
‘ 
‘ 
; 
GERERERRNÄRTRTERERE 
ER ar 
;** BEFEHL: SCALE ** 
.A% ar 
IAKanaKaeRaReRe 
‘ 
; 
B7 SCALE JSR GETBYT ;HOLE 1. PARAMETER->X 
c6 STK RT ;ROTATIONSWINKEL (ROT) 
B7 JSR CHKGET ;2. PARAMETER->X 
INX 
c6 STX_ E7 ;VERGROESSERUNGSFAKTOR (SCALE) 


RTS 


une nen 
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8D87 
8D88 


8D8A 
8D8B 


8D8D 
8D8E 


8D90 
8D91 


8093 
8094 


8D96 
8097 


8099 
8D9A 


8D9C 
8D9D 


8D9F 


04 
E8 


40 


co 


D8 
E8 


04 
E8 


AO 
40 


c8 
E8 


cc 
E8 


4c 


03 


03 


ıF 


03 


47 43 


;TABELLE FUER STARTADRESSEN 
;UND LAENGEN VON: 
; TEXTRAM/GRAPHIKSP/VIDEOR/FARBRAM 


RR a a a a a 
’ 


’ 
;sEITE 1: 


‘ 


;TEXTRAM: 


STATAB „BYT $04 ;STARTADRESSE (HIGH-BYTE) 


.WOR 1000 ;LAENGE 


;GRAPHIKSPEICHER 1: 


.BYT $EO 
.WOR 8000 
;PAIC: 
.BYT $CO 
.WOR 1000 
;PAIF: 
.BYT $D8 
.WOR 1000 
‘ 
; 
;SEITE 2: 
: 
;TEXTRAM: 
STATB2 .BYT $04 
.WOR 1000 


GRAPHIKSPEICHER 2: 
.BYT $AO 
„WOR 8000 


.ın 


;PA2C: 
.BYT $C8 
.WOR 1000 


;PA2F: 
.BYT $CC 
.WOR 1000 
Ä 
’ 
Ä 
;TABELLE DER SECUNDAERBEFEHLE: 


RR a a a a a a a a ir 
’ 


’ 
GETTAB „ASC "LGCF" 


nn 


585 


586 


8DA3 
8DA5 
8DA7 
8DA9 
8DAB 
8DAD 


8DAF 
8DB1 
8DB4 
8DB6 
8DB7 


8DB9 


8DBC 
8DBD 
8DBE 
8DBF 
8DC1 
8DCc2 


8DC4 
80C7 
8DC8 
8DCA 
8DCC 


8DCE 
8DD1 
8DD2 
8DD5 


A2 
86 
86 
AO 
c9 
FO 


4c 


8A 
4A 
6A 
26 
0A 
26 


8C 
88 
20 
98 


AE 


73 


8DD6 49 03 


8DD8 


A8 


8DD9 FO 09 


8D 


00 


00 


... 
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;GSAVE/GLOAD-MODUS UND -SEITE HOLEN: 


TR a a a a a a a 
’ 


’ 

DISK LDX 
STX 
STX 
LDY 

DI4 CMP 
BEQ 


une. 


LDX 
013 CMP 
BEQ 
DEX 
BPL 
‚ 
DI5 JMP 


#0 

SHP ;MODI FLAG 

HKFLG2 ;FIRST-FLAG LOESCHEN 
#0 ;BLOCKZAEHLER 

Bu :KOMMA? 

011 ;JA->FERTIG 


LGCF IN TABELLE SUCHEN: 


#3 ;ZAEHLER FUER TABELLE 
GETTAB,X ;FINDE MODUS 

DI2 ;GEFUNDEN 

D13 


SERR ;SYNTAX ERROR 


;NUMMER ALS CODE IN SHP SPEICHERN: 


‘ 

DI2 TXA 
LSR 
ROR 
ROL 
ASL 
ROL 


-. 


JSR 
INY 
CPY 
BCS 
BCC 


;NUMMER VON 0-3 (2 BITS) 


A ;GANZ NACH LINKS SCHIEBEN 
A ;MIT ERSTEM BIT IN CARRY 
SHP ;NACH SHP ROLLEN 

A ;2. BIT NACH CARRY 


SHP ;IN MODIFLAG (SHP) ROLLEN 


CHRGET 
;NAECHSTES ZEICHEN 
#5 
DI5 ;>= 5! (NICHT MEHR ALS 4 ZEICHEN) 
DI4 ;NAECHSTEN (UNBED.) 


; 
;MODIFLAG LINKSBUENDIG MACHEN: 


‘ 

D11 sTY 
DEY 
JSR 
TYA 
EOR 
TAY 
BEQ 


ZWIS ;ZAHL DER BLOECKE MERKEN 
;1 
‘ 
CHRGET ;NAECHSTES ZEICHEN (HINTER KOMMA) 
;Y->A (WERTE: VON 0-3) 
#3 ;WERTE VON 3-0 
;A->Y 
DI7 ;BEREITS LINKSBUENDIG 
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8DDB A5 AE LDA SHP ;MODIFLAG 

8DDD OA DIE ASL A ;RUECKE BIS SCHLUSS 
8DDE OA ASL A 

8DDF 88 DEY 

8DEO DO FB BNE DIE 

8DE2 85 AE STA SHP 


‘ 


;SEITE BEARBEITEN: 


’ 
8DE4 20 9E B7 DI7 JSR GETBYT ;SEITE -> X 
8DE7 CA DEX ;AUS 1-2 MACH 0-1 
8DE8 8A TXA 
8DE9 4A LSR A ;SEITENNUMMER NACH CARRY 
8DEA FO 03 BEQ DI9 ;oK. 
8DEC 4C 48 B2 JMP QERR ;SEITENNUMMER WAR GROESSER 1->ILLEGAL 
QUANTITY 
‘ 
&DEF 6A DI9 ROR A ;SEITENNUMMER IN 7. BIT 
8DFO 4D IE C6 EOR GFLAG2 ;SEITE 
8DF3 49 80 EOR #$80 
8DF5 0A ASL A ;CARRY=1: SEITE2//CARRY=O: SEITEI 
8DF6 08 PHP ‚ALS SEITENFLAG 
‘ 
‚ 
8DF7 20 FD AE JSR CHKCOM 
8DFA 20 D4 EI JSR GETPAR ;FILEPARAMETER HOLEN 
8DFD 28 PLP ;SEITENFLAG 
&DFE 60 DIO RTS 


une 


;STARTADRESSE UND LAENGE DES ZU 
;VEBERTRAGENDEN BLOCKES HOLEN: 


III 
‘ 


‘ 
&DFF 08 DISK2 PHP ;SEITENFLAG 
8E00 38 SEC ;FERTIG- FLAG 
8E01 CE 48 C6 DEC ZWIS ;BLOCKZAEHLER 
8E04 30 20 BMI DI2.1 ;ALLE BLOECKE UVEBERTRAGEN->FERTIG (MIT 
CARRY=1) 
‘ 
8E06 A9 00 LDA #0 
8E08 06 AE ASL SHP 
8E0OA 2A ROL A 
8E0B 06 AE ASL SHP 
8E0D 2A ROL A ;2 BITS DES MODIFLAG IN AKU ROLLEN 
8E0E 85 FD STA USE ;IN USE ZWISCHENSPEICHERN 
8E10 0A ASL A ;A*2 
8E11 18 CLC 


8E12 65 FD ADC USE sAr2+A = A*3 
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8E14 
8E15 
8E17 


8E19 
8E1A 
8E1D 
8E1E 
8E21 
8E24 
8E25 
8E26 
8E27 


8E28 
8E2B 
8E2C 
8E2E 
8E30 
8633 
8E36 
8E39 
8E3B 


8E3E 
8E3F 
8E40 
8E43 
8E45 


28 
90 
69 


AA 
BD 
48 
BC 
BD 
AA 
18 
68 
60 


20 
08 
AO 
84 
20 
20 
20 
A6 
20 


28 
08 
20 
BO 


02 
0B 


87 


88 
89 


A3 


01 
B9 
F2 
8r 
c1 
B8& 
18 


FF 
23 


8D 


8D 
8D 


8E 
F6 
E1 


E1 


8D 


20 77 8E 
8E48 4C 3E 8E 


‘ 
DI2.2 


DI2.1 


ar 


“r 


GS1 


“nn 


PLP 
BCC 
ADC 


TAX 
LDA 
PHA 
LDY 
LDA 
TAX 
CcLC 
PLA 
RTS 


BEFEHL: 


JSR 
PHP 
LDY 
sTY 
JSR 
JSR 
JSR 
LDX 
JSR 


PLP 
PHP 
JSR 
BCS 
JSR 
JMP 
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;SEITENFLAG 
DI2.2 ;SEITE1 
#STATB2-STATAB-1 ;SEITE 2 


;ALS OFFSET FUER TABELLE 

STATAB,X ;STARTADRESSE-HIGH 
;MERKEN 

STATAB+1,X ;LAENGE-LOW 

STATAB+2,X ;LAENGE-HIGH 


;NICHT-FERTIG-FLAG 


ee 


ar 


GSAVE ** 


“% 


ee 


DISK ;NAMEN ,MODI,SEITE 
;SEITENFLAG 
#1 
SECADR ;SECUNDAER- ADRESSE 
SRCHFN ;FILENUMMER BESTIMMEN 
SAVOUT ;'"SAVING" AUSGEBEN 
OPEN ;DATEI OEFFNEN 
FILENR ;FILENUMMER 
CHKOUT ;KANAL FREI FUER AUSGABEGERAET 


;SEITENFLAG 
DISK2 ;PARAMETER FUER MODI 
GL2. ;FERTIG 
GSAVE. ;SPEICHERN 
GS1 ;NAECHSTEN BLOCK SPEICHERN 
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ERITREA 


zer “r 
se BEFEHL: GLOAD *%* 
.r%* “r 


. 
ra a a a a a ar 


sen.» 


8E4B 20 A3 8D GLOAD JSR DISK ;NAMEN ,MODI, SEITE 


8E4E 08 PHP ;SEITENFLAG 
8E4F AY 00 LDA #0 
8651 85 B9 STA SECADR ;SEKUNDAERADRESSE 
8653 20 F2 8E JSR SRCHFN ;FILENUMMER BESTIMMEN 
8E56 20 AF F5 JSR SRCHOU ;"SEARCHING" AUSGEBEN 
8659 20 C1 Ei JSR OPEN ;DATEI OEFFNEN 
8E5C A6 B8 LDX FILENR ;FILENUMMER 
8E5SE 20 IE E1 JSR CHKIN ;EINGABEGERAET SETZEN 
‘ 
8661 28 GL1 PLP 
8E62 08 PHP ;SEITENFLAG 
8663 20 FF 8D JSR DISK2 ;PARAMETER FUER MODI HOLEN 
8E66 90 09 BCC GL3 ;NOCH NICHT FERTIG 
‘ 
v 
;TERMINIERUNG: 
‘ 
8E68 68 GL2. PLA ;STACKPOINTER EINSTELLEN 
8E69 20 CC FF GL2 JSR CLRCH ;KANAL SCHLIESSEN 
8E6C A5 B8 LDA FILENR ;FILENUMMER 
8E6E 4C CC EI JMP CLOSE ;DATEI SCHLIESSEN 
: 
i 
8E71 20 B9 8E GL3 JSR GLOAD. ;BLOCK LADEN 


8E74 4C 61 8E JMP GL ;NAECHSTEN BLOCK LADEN 


nun 


;BLOCK AUF DISKETTE SPEICHERN: 


III a a a a a a a a 


EINGANG: 
A: STARTADRESSE (HIGH-BYTE) 
X: BLOCKLAENGE (HIGH-BYTE) 
Yz BLOCKLAENGE (LOW-BYTE) 


een 


590 Das Supergraphikbuch zum _C64 


8E77 84 57 GSAVE. STY DO ;LAENGE - LOW 

8E79 86 58 STX D1 ;LAENGE -HIGH-BYTE 

8E7B 20 20 7D JSR STU ;STARTADRESSE->USE//Y=0 
8E7E A9 00 LDA #0 

8E80 85 AF STA SHP+1 ;ZAEHLER-LOW-BYTE 

8682 24 08 BIT HKFLG2 ;FIRST-FLAG 

8E84 30 OC BMI GSO ;NUR VOR 1. BLOCK 2 BYTES 
8E86 20 OC EI JSR BASOUT ;STARTADRESSE (LOW-BYTE) 
8E89 AY FF LDA #$FF 

8E8B 85 08 STA HKFLG2 ;FLAG SETZEN 

8E8D AS FE LDA USE+1 ;STARTADRESSE (HIGH-BYTE) 
8E8F 20 OC EI JSR BASOUT ;AUSGEBEN 


’ 
;BLOCK AUSGEBEN: 


8E92 AS 01 GSO LDA 1 
8E94 48 PHA 
8E95 29 FD AND #$FD ;FARBRAM + RAM AUSWAEHLEN 
8E97 78 SEI 
8E98 85 01 STA 1 ;ROM AUS 
8E9A Bi FD LDA (USE),Y ;BYTE HOLEN 
8E9C AA TAX ;NACH X 
8E9D 68 PLA 
8E9E 85 01 STA 1 ;ROM AN 
8EAO 58 cLI 
8EA1 8A TXA 
8EA2 20 0OC E1 JSR BASOUT ;BYTE UEBER ROM-ROUTINE AUSGEBEN 
8EA5S C8 INY 
8EA6 C4 AF CPY SHP+1 ;LOW-BYTE 
8EA8 DO E8 BNE GSO 
8EAA E6 FE INC USE+1 ;HIGH-BYTE 
8EAC C6 58 DEC D1 
8EAE FO 03 BEQ GSO. ;LETZTER DURCHGANG 
8EBO 10 EO BPL GSO 
8EB2 60 RTS 
’ 
8EB3 A6 57 GS0. LDX DO ;LAENGE - LOW (<>0) 
8EB5 86 AF STX SHP+1 ;BEWAHRE SPRITEVEKTOREN 


8EB7 DO D9 BNE GSO ;UNBEDINGT 


-.n.ne 
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8EB9 
8EBB 
8EBD 
8ECO 
8EC2 
8EC4 
8EC6 
8EC8 
8ECA 
8ECcC 
8ECE 
8ED1 
8ED4 


8ED7 
8ED9 
8EDC 
8EDE 

8EDF 
8EE1 

8EE3 
8EE5 
8EE7 
8EE9 
8EEB 


8EEC 
8EEE 
8EFO 


8EF2 
8EF4 
8EF6 
8EF& 
8EFB 
8EFD 


20 
A9 
85 
85 
24 
30 
A9 
85 
20 
20 
20 


AO 
20 
91 
c8 
C4 
DO 
E6 
c6 
FO 
10 
60 


A6 


DO 


12 
D2 


00 


FD 


AF 
F6 
FE 
58 
03 
EE 


AF 
E7 


B8 
FC 
B8 
OF 
F5 


E1 
E1 
F5 


E1 


;BLOCK VON DISKETTE LADEN: 


IRRE 
’ 


’ 


;EINGANG: 


r 


A: 
X: 


STY 
STX 
JSR 
LDA 
STA 
STA 
BIT 
BMI 
LDA 
STA 
JSR 
JSR 
JSR 


STARTADRESSE (HIGH-BYTE) 
BLOCKLAENGE (HIGH-BYTE) 
Y:z BLOCKLAENGE (LOW-BYTE) 


DO 

D1 

STU 

#0 
SHP+1 
L.VFLG 
HKFLG2 
GLOO 
HSFF 
HKFLG2 
BASIN 
BASIN 
LODOUT 


;BLOCK LADEN: 


: 
GLOO 
GLO 


GLO. 


onen 


SRCHFN 


LDY 
JSR 
STA 
INY 
CPY 
BNE 
INC 
DEC 
BEQ 
BPL 
RTS 


LDX 
STX 
BNE 


INC 
BEQ 
LDX 
JSR 
BEQ 
RTS 


#0 
BASIN 
(USE),Y 


SHP+1 
GLO 
USE+1 
D1 
GLO. 
GLO 


SHP+1 
GLO 


FILENR 
SRCHFN 
FILENR 
$F30F 

SRCHFN 


;LAENGE-LOW 
;LAENGE - HIGH 
;STARTADRESSE->USE//Y=0 


;ZAEHLER (LOW-BYTE) 


;NUR VORNE 2 BYTES 
;FLAG SETZEN 
;STARTADRESSE 


;WIRD NICHT GEBRAUCHT 
;'LOADING’ AUSGEBEN 


;HOLE BYTE 


;ABSPEICHERN 


;LETZTER DURCHGANG 


;UNBEDINGT 


SUCHE NACH FREIER FILENUMMER: 


RR 


;NICHT 0 


;SUCHT FILENUMMER 
;SCHON VORHANDEN 
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8EFE 
8F01 
8F04 
8F07 
8F0A 
8FOC 


8FOD 


8F10 
8F13 
8F14 
8F16 
8F18 
8F1B 
8F1D 
8rır 
8F21 


20 
20 
20 
20 
84 
60 


4c 


20 
8A 
29 
85 
20 
co 
FO 
co 
90 


FD 
9E 
8r 
82 
AD 


58 


9E 


OF 
AC 
FE 
00 
5D 
3F 


B7 


8E 


mm 


;STRING ALS PARAMETER UEBERNEHMEN: 

Jona 

‚ 

;AUSGABE: ADH: STRINGLAENGE 

z $22/$23: STRINGADRESSE 

’ 

GETSTR JSR CHKCOM ;TESTE AUF KOMMA 
JSR FRMEVL ;AUSDRUCK UEBERNEHMEN 
JSR CHKSTR ;TESTE AUF STRING 
JSR %8B782 ;STRINGPARAMETER HOLEN (LAENGE NACH Y) 
STY ADH ;LAENGE(=0 => SPRITE AUS) 
RTS 


STRING TOO LONG ERROR: 


LLFE JMP STRERR ;STRING TOO LONG 


onen nme 


x IRRE 


per E27 

;** BEFEHL: SDEFINE ** 

zer r 

PR En EI SE 2 

i 

; 

DEFINE JSR GETBYT ;SPRITENUMMER NACH X 
TXA 
AND #15 ;KORREKTUR 
STA ADL 
JSR GETSTR ;DEFINITIONSSTRING HOLEN 
cPY #0 
BEQ OFFS ;LAENGE=O => SPRITE AUS 
CPY #63 


BCC ILLFE ;LAENGE > 63 => ERROR 
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;SPRITEDEFINTIONSADRESSE BERECHNEN: 
; (SPRITENUMMER*64+BASISADRESSE ) 


. 


8F23 A5 AC LDA ADL ;SPRITENUMMER 
8F25 4A LSR A 
8F26 4A LSR A ‚1% 
8r27 18 CcLC 
8F28 69 D2 ADC #SPRDEF ;HIGH-BYTE-DEFINITIONSADRESSE 
8F2A 85 FE STA USE+1 
8r2C A5 AC LDA ADL ;SPRITENUMMER 
8r2E 29 03 AND #3 ;NUR UNTERE 2 BITS 
8F30 AB TAY 
8F31 B9 51 7D LDA STAB2,Y ;MULTIPLIKATIONSTABELLE 
8F34 85 FD STA USE ;SPRITEDATENADRESSE 
‘ 
8F36 78 SEI 
8F37 A5 01 LDA 1 
8F39 48 PHA 
8F3A 29 FC AND #$FC 
8r3c 85 01 STA 1 ;ROM AUS 
‘ 
8ör3E AO 00 LDY #0 
8F40 B1 22 DE2 LDA ($22),Y ;ZEICHEN AUS STRING 
8F42 91 FD STA (USE),Y ;NACH DEFINITIONSBEREICH 
8F44 C8 INY 
8F45 C4 AD CPY ADH 
8F47 DO F7 BNE DE2 
’ 
8F49 68 PLA 
8F4A 85 01 STA 1 ;ROM AN 
8r4c A5 AC LDA ADL iNR. 
8r4E AA TAX ;ALS INDEX 
8F4rF AO 01 LDY # ;FLAG ZWEITEN SATZ EINSTELLEN 
8F51 18 CLC 
8F52 69 48 ADC #348 ;DEFINITIONEN LIEGEN AB $48. BLOCK 
8F54 9D 19 C7 STA SPVEK,X ;SPRITEDEFINITIONS-VEKTOREN 
’ 
8F57 EO 08 CPX #8 ;SPRITENUMMER >= 8? 
8F59 BO 08 BCS DE4 ;JA=> SATZ 2 
8r5B 88 DEY ;Y=0/FLAG F. ERSTEN SATZ EINSTELLEN 
8r5c 9D F& CB STA $CBF8,X ;SEITE 2 - VEKTORENBUFFER 
8rsF 9D F& C3 STA $C3F8,X ;AKTUELLER VEKTORENBUFFER 
8F62 8A TXA 
8F63 29 07 DE4 AND #7 
8F65 AA TAX 
8F66 B9 88 C6 LDA SPRIT1,Y ;HOLE SPRITEENABLE AUF BUFFER (SATZ Y) 
8F69 1D 27 7D ORA STAB1,X ;ENABLE SPRITE NR. X 
8f6c 99 88 C6 DE2. STA SPRIT1,Y ;WIEDER ZURUECK 
8r6F BO OA BCS DE3 ;">SATZ 2 (DA CARRY=1) 


8F71 AA TAX ;SATZ 1 (DA CARRY=0) 
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8F72 A5 02 LDA GFLAG 

8F74 29 08 AND #8 

8F76 FO 03 BEQ DE3 ;KEINE SPRITES IM TEXTMODUS 
8F78 8E 15 DO STX V+21 ;SPRITE EINSCHALTEN 

8F7B 60 DE3 RTS 


’ 
;SPRITE AUSSCHALTEN: 


‘ 
8F7c AS AC OFFS LDA ADL ;SPRITENUMMER 
8r7E C9 08 CMP #8 
8F80 29 07 AND #7 
8F82 AA TAX 
8F83 AO 00 LDY #0 
8F85 90 01 BCC OFFS1 ;->SATZ 1 
8F87 C8 INY ;SATZ 2 
8F88 BD 27 7D OFFS1 LDA STAB1,X ;BITMASKE FUER SPRITE 
8F8B 49 FF EOR #SFF 
8F8D 39 88 C6 AND SPRIT1,Y ;BIT IM SPRITEENABLEBUFFER LOESCHEN 
8F90 4C 6C Ef JMP DE2. ;AUSSCHALTEN 
’ 
’ 
D 
ee 
zer “r 
;** BEFEHL: SREAD ** 
.r% “r 


‘ 
Pad 2 2402 2 202 2 21202021202 2.202.203 
‘ 


‘ 
8F93 A2 00 SREAD LDX #0 ;ZAEHLER BYTES 
8F95 86 FD STX USE 
8F97 A6 41 LDX $41 
8F99 A4 42 LDY $42 ;DATA ZEIGER 
8F9B 86 43 STX $43 
8F9D 84 44 STY $44 ; INPUT ZEIGER 
8r9F 20 8B BO JSR $B08B ;SUCHT VARIABLE 
8FA2 85 49 STA $%49 
8FA4 84 4A STY $4A ;VAR.-ADRESSE 
8FA6 24 OD BIT $0D ;VAR.- TYP 
8FA8 30 05 BMI SR1 ;STRING? 
8FAA A2 16 LDX #22 ;NEIN! 
8FAC 4C 37 A4 JMP $A437  ;TYPE MISMATCH 
8örAF AS 7A SR1 LDA PRGZG 
8FB1 A4 7B LDY PRGZG+1 
8FB3 85 4B STA $4B 
8FB5 84 4C STY $4C ;PROGRAMMZEIGER RETTEN 
8FB7 A6 43 LDX $43 
8FB9 AL 44 LDY $44 ; INPUTZEIGER 
8FBB 86 7A STX PRGZG 


8FBD 84 7B STY PRGZG+1 ;ALS PROGRAMMZEIGER 
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8rBrF 
8rc2 
8fc3 
8rc4 


8FC6 
8rc8 
8rc9 
8rcB 
8rcD 


8FDO 
8FD1 
8FD3 
8FD5 
8FD6 
8FD8 
8FD9 


8FDB 
8FDE 
8rEl 
8rE2 
8rE4 
8FE6 
8rE9 
8rEC 
8rEer 
örr2 
örff4 
8rf6 
örr9 
örrB 
8rFD 
9000 
9001 
9003 
9005 
9007 
900A 
900C 
Y00E 
9010 
9013 
9015 
9017 
9019 
901B 
9010 
901F 


‘ 
20 06 A9 SR2 


c8 
AA 
DO 


A2 
c8 
B1 
DO 
4c 


c8 
B1 
85 
c8 
B1 
c8 
85 


20 
20 
AA 
EO 
DO 


20 
20 
20 
A5 
FO 
4c 
A& 
AS 


c8 


co 
FO 
20 
FO 
c9 
FO 
4c 
AS 
A4 
85 
84 
A5 
A4 
85 


OD 


7A 
03 
37 


7A 
3F 


7A 


FB 
79 


83 
D9 
73 
F3 
1B 
BF 
64 
03 
48 
FD 
65 
00 


FD 
3F 
oc 
79 
B3 
2C 
D6 
4D 
7A 
7B 
43 
44 
48 
4c 
7A 


A8 
00 


B2 


AB 


SRA 


’ 
SR3 


SRO 


SR5 


SR6 


JSR 
INY 
TAX 
BNE 


LDX 
INY 
LDA 
BNE 
JMP 


INY 
LDA 
STA 
INY 
LDA 
INY 


JSR 
JSR 
TAX 
CPX 
BNE 
JSR 
JSR 
JSR 
JSR 
LDA 


JMP 
LDY 
LDA 
STA 
INY 
STY 
CcPY 
BEQ 
JSR 
BEQ 
CMP 
BEQ 
JMP 
LDA 
LDY 
STA 
STY 
LDA 
LDY 
STA 


$A906 ;NAECHSTES STATEMENT SUCHEN 


;ZEILENENDE? 
SR3 ;NEIN 

#D 

(PRGZG),Y 

SR4 ;NEIN 


$A437  ;O0UT OF DATA 


(PRGZG),Y ;ZEILENNUMMER HOLEN 
$3F ;ALS ZEILENNUMMER FUER DATA 


(PRGZG),Y 
$40 


$ABFB ;NAECHSTES STATEM. 
CHRGOT ;LETZTES ZEICHEN NACH A 


#383 ;TOKEN V. DATA ? 

SR2 ;NEIN=>WEITERSUCHEN 

CHRGET ;DATEN LESEN 

$BCF3  ;ZIFFERNSTRING NACH FAC (FLIESSKOMMAAKKU) 
$BC1B ;FAC RUNDEN 

$B1BF ;NACH INTEGER WANDELN 


$64 ;WERT ZU HOCH? CHIGH-BYTE) 
SR5 

QERR ;ILLEGAL QUANTITY 

USE 

$65 


$200,Y ;WERT SPEICHERN 


USE 

#63 ;63 DATEN LESEN 

SR6 ;FERTIG 

CHRGOT ;LETZTES ZEICHEN HOLEN 
SR2 ;ZEILENENDE=>NEUE DATENZ. 
zu „" 

SRO ;NAECHSTES DATUM 

$AB4D ;FEHLER 

PRGZG 

PRGZG+1 

$43 

$44 

$4B 

$4c 

PRGZG 
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9021 84 7B STY PRGZG+1 ;PROGRAMMZEIGER WIEDERHERSTELLEN 
9023 20 79 00 JSR CHRGOT 

9026 FO 03 BEQ SR7 ;ZEILENENDE 

9028 4C 08 AF JMP SERR ;SYNTAX ERROR 

902B A5 43 SR7 LDA $43 

902D A4 44 LDY 8344 

902F 20 27 AB JSR $A827 ;DATA ZEIGER SETZEN 
9032 AO 02 LDY #2 

9034 A2 00 LDX #0 ;STARTADR. STRING =$200 
9036 86 62 STX 362 

9038 84 63 STY $63 

903A 86 6F STX  $6F 

903C 84 70 STY $70 

903E 84 72 STY $72 

9040 AO 3F LDY #63 ;LAENGE 

9042 20 AB B4 JSR $B4AB8 ;STRING ERZEUGEN 

9045 4C 2C AA JMP $AA2C ;ZUWEISUNG AN VARIABLE 


ERRRRNTTERTTRRTRERN 


.r% a% 


’ 


‚** BEFEHL: SMODE ** 
.r%* “r 


’ 
a a a a a a a a a ar 


sonen 


9048 20 9E B7 SMODE JSR GETBYT ;SPRITENUMMER->X 


904B 8A TXA ;MAX .WERT=15 

904C 29 OF AND #8S0F 

904E 85 FD STA USE ;NR. 

9050 20 ED 95 JSR GET15 ;SPRITEMODUS->X 
9053 85 FE STA USE+1 ;GROESSE+MC+PRIOR. 
9055 EO 08 cPX #8 ;MC:C=1 

9057 08 PHP 

9058 20 ED 95 JSR GET15S ;FARBE 1 -> X 
905B 8D 48 C6 STA ZWIS 

905E 28 PLP ;MC- FLAG 

905F 90 23 BCC SM2 ;NORMAL MODUS 
9061 20 79 00 JSR CHRGOT 

9064 FO 1E BEQ SM2 ;KEINE WEITEREN ANGABEN 
9066 20 ED 95 JSR GET15 ;FARBE 2 -> X 
9069 85 AD STA ADH ;MC: ;FARBE2 

906B 20 ED 95 JSR GET15S ;FARBE 3 -> X 


’ 
;FARBEN 2,3 SETZEN: 


® 


906E A6 AD LDX ADH 
9070 A4 FD LDY USE ;SPRITENUMMER 
9072 CO 08 CPY #8 


9074 BO 08 BCS SMO ;SATZ 2 
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9076 8D E6 C6 STA SCLMCI+1 ;SATZ 1 
9079 8E E5 C6 STX  SCLMCI ;MC- FARBEN 
907C 90 06 BCC SM2 ;UNBEDINGT 
907E 8D FO C6 SMO STA SCLMC2+1 ;SATZ 2 
9081 80 EF C6 STA SCLMC2 ;MC- FARBEN 
;FARBE 1 SETZEN: 
’ 
9084 A6 FD sM2 LDX USE ;NR 
9086 AD 48 C6 LDA ZWIS ;FARBE 1 
9089 EO 08 CPX #8 
908B BO 05 BCS SM1 ;SATZ 2 
908D 9D E7 C6 STA SCLHG1,X ;ALS FARBE SP. 
9090 90 03 BCC SM1. ;UNBED. 
9092 MD E9 C6 SMI STA SCLHG2-8,X 
’ 
;SPRITEMODUS BEARBEITEN: 
; CINDEXVORBEREITUNG) 
9095 AD 06 SM1. LDY #6 ;INDEX 2 (RESULTIERT AUS SPRITESATZ) 
9097 8A TXA ;INDEX 1 (=SPRITENUMMER ) 
9098 C9 08 CMP #8 
909A 90 03 BCC SMS 
909C C& INY ;INDEX 2 (FUER SATZ 2) 
909D 29 07 AND #7 ;INDEX 1 
909F AA SMS TAX ;INDEX 1 NACH X 
;SPRITEMODUS BEARBEITEN: 
;(CBITBEARBEITUNG UND PUFFERUNG DER MODUSEINGABE) 
90AO A9 00 SM6 LDA #0 ;MASKE=O 
90A2 66 FE ROR USE+1 ;N.BIT V. MODUS NACH CARRY (X,Y- 
GROESSE,ETC.) 
90A4 90 02 BCC SM7 
90A6 A9 FF LDA #$FF ;MASKE=$FF 
90AB 3D 27 7D SM7 AND STAB1,X ;ENTSPRECHENDES BIT ISOLIEREN 
90AB 85 AC STA ADL ;UND MERKEN 
’ 
90AD BD 27 7D LDA STAB1,X ;HOLE GEPUFFERTE X-GROESSE 
90B0 49 FF EOR #$SFF 
9082 39 2B C7 AND SPMC1,Y ;BIT LOESCHEN 
9085 05 AC ORA ADL ;UND NEU FESTLEGEN 
9087 99 2B C7 STA SPMC1,Y ;ZURUECK NACH BUFFER 
90BA 88 DEY 
90BB 88 DEY ;NAECHSTEN MODUSPARAMETER 
90BC 10 E2 BPL SM6 
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;REALISIERUNG DER PARAMETER: 
; UEBERTRAGUNG: PUFFER->VIC) 


’ 


ZEICHEN MEHR 
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;SATZ ZWEI -> KEINE REALISIERUNG 
;HGR- FARBEN 


;SATZ EINS 
;MC- FARBE (ANST. RAS-IRQ) 


;SPRITE X-EXPAND 
;SPRITE MC 
;SPRITE Y-EXPAND 


;SPRITE-PRIORITAET 


AUS 


=0 (INTERRUPTFLAG) 


-> FERTIG 


;STREIFENBREITE HOLEN 


;TEXT AN=>NICHT ANSCHALTEN 


;SPRITE-IRQ EIN 


;IMR CINTERRUPT MASK REGISTER) 


90BE A6 FD LDX USE 
90C0 EO 08 CPX #8 
90C2 BO 2C BCS SM8 
90C4 BD E7 C6 LDA SCLHG1,X 
90C7 9D 27 DO STA V+39,X 
90CA AO 00 LDY #0 
90CC B9 ES C6 SM9 LDA SCLMCI,Y 
90CF 8D 25 DO STA v+37 
9002 B9 EF C6 LDA SCLMC2,Y ;MC-FARBE 
9005 8D 26 DO STA V+38 
9008 B9 31 C7 LDA SPXEX1,Y 
90DB 8D 1D DO STA V+29 
90DE B9 2B C7 LDA SPMC1,Y 
90E1 8D Ic DO STA V+28 
90E4 B9 2F C7 LDA SPYEX1,Y 
90E7 8D 17 DO STA V+23 
90EA B9 2D C7 LDA SPPRI1,Y 
90ED 8D 1B DO STA v+27 
90FO 60 SM8 RTS 
’ 
RAR 
>38 ar 
;e* BEFEHL: SPOWER *%* 
BER a% 
RR ENT TERTTRTTER 
90F1 20 6C BA SPRPOW JSR GMODEI ;ALLES 
90F4 AS 02 LDA GFLAG 
90F6 29 DF AND #%11011111 
90F8 85 02 STA GFLAG ;BIT 5 
90FA 20 79 00 JSR CHRGOT 
90FD FO Fi BEQ SM8 ;KEINE 
‘ 
9OFF 20 64 &C JSR GETRAS 
9102 A5 02 LDA GFLAG 
9104 29 08 AND #8 
9106 FO EB BEQ SM8 
9108 78 sel 
9109 A2 80 LDX #380 
910B BE 94 C6 STX RASFLG 
910E E8 INX ;X=#$81 
910F SE 1A DO STX  v+26 
9112 A5 02 LDA GFLAG 
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9114 
9116 
9118 
9119 


911A 
911D 
911F 
9121 
9123 
9126 
9128 
Y12A 
912D 
9130 
9131 
9132 
9134 
9135 
9136 
9138 
Y13A 
913B 
913C 
Y13F 
9141 
9144 
9146 
9149 
914A 
Y14C 
914D 
Y14F 
9150 
9153 
9156 


09 
85 
58 
60 


20 
85 
84 
A5 
8D 
A5 
FO 
4c 
20 
ca 
8A 
29 
4A 
4A 
A9 
90 
4A 
78 
8D 
09 
8D 
AO 
8c 
88 
DO 
8A 
29 
AA 
BD 
8D 
A9 


9158 8D 


915B 


58 


20 
02 


8B 
49 
4A 
0E 
AD 
OD 


AA 
Fi 


80 
01 


00 
co 
02 
00 
87 


86 
FF 
02 


915C 4C CA 


BO 


8r 
B7 


D4 
c6 


DC 


Li; 


ORA 
STA 
CLI 
RTS 


#520 
GFLAG ;STATUS SETZEN 


RR 
‘ 


x 
‘ 


“% 


;** BEFEHL: PADDLE ** 


.r% 
‘ 


“%r 


RR 
‘ 


‘ 


’ 

PDL JSR 
STA 
sTY 
LDA 
STA 
LDA 
BEQ 
JMP 

PDL1 JSR 
DEX 
TXA 
AND 
LSR 
LSR 
LDA 
BCC 
LSR 

PDL2 SEI 
STA 
ORA 
STA 
LDY 
sTY 

PDL3 DEY 
BNE 
TXA 
AND 
TAX 
LDA 
STA 
LDA 
STA 
cLI 
JMP 


onen 


$B088 ;VARIABLENADRESSE SUCHEN 
$49 


$4A ;ZWISCHENSPEICHERN 

$0E 

VARADR ;REAL/INTEGER- FLAG 

$0D ;TYPFLAG: NUMERISCH/STRING 


PDL1 ; ">NUMER ISCH 

SR1-5 ;TYP MISMATCH 

CHKGET ;PADDELNUMMER HOLEN 
;AUS 1-4 MACH 0-3 


#380  ;PDL A ($80) 
PDL2__;PDLA 
A ;PDL B ($40) 
;TASTATUR AUSSER BETRIEB 
$DC0O0 ;CIA 1 
#3C0O _;AUF AUSGANG SETZEN 
$DC02 
#0 
ZAHL+1 ;HIGH-BYTE=0 
;VERZOEGERUNGSSCHLEIFE ZUR 
PDL3_ _;BERUHIGUNG D. A/D-EINGANGS 
;ALTER WERT (PADDELNUMMER ) 
# 


S+$19,X ;A/D (1/2)-WERT HOLEN 

ZAHL ;LOW-BYTE 

HSFF 

$DCO2 ;ALLE BITS AUF AUSGANG 
;TASTATUR AN 

PLTVA. ;WERT AN VARIABLE 
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ALLE REGISTER RETTEN, DIE 

SOWOHL VON DER IRQ- ALS AUCH 

VON DER LINIENROUTINE VERWENDET 
sWERDEN (JEWEILS AUSTAUSCH MIT BUFFER): 


De a 2 2 22 2 2 2 22 2 2 2 2 2 a2 22 2 2 22 d 2 2 22 2 22 2 22 2 22 


’ 
. 
. 
. 


‘ 
4 
91SF A2 14 SREGIN LDX #$A+SA ;FUER INIT-ROUTINE 
9161 2C .BYT $2C ;NAECHSTEN BEFEHL UEBERSPRINGEN (CODE FUER 
BIT) 
9162 A2 OE SREGSG LDX #7+7  ;POINTER AUF REGISTER-TABELLE 
9164 AC 4E C6 LDY NR ;SPRITENUMMER 
9167 A5 01 LDA 1 
9169 48 PHA 
916A 29 FC AND #SFC ;ROM AUS 
916c 85 01 sta 1 ;I-FLAG IST BEREITS 1! 
’ 
916E 98 TYA NR 
916F OA ASL A 
9170 0A ASL A 
9171 0A ASL A 
9172 OA ASL A ;*16 
9173 A8 TAY 
’ 
9174 AS AC LDA ADL 
9176 48 PHA 
9177 AS AD LDA ADH 
9179 48 PHA ;ADL/ADH RETTEN 
917A EO 0E CPX #7+7 
917C DO 03 BNE SREI ;ALLE REGISTER DER TABELLE RETTEN 
917E C8 INY 
917F c8 INY 
9180 C8 INY ;AUCH Y-POINTER ERHOEHEN 
. 
;REGISTER DER TABELLE MIT BUFFER TAUSCHEN: 
9181 BD AC 91 SREI LDA REGTAB,X 
9184 85 AC STA ADL 
9186 BD AD 91 LDA REGTAB+1,X 
9189 85 AD STA ADH ;REGISTERADRESSE NACH ADL/ADH 
918B BA TXA 
918C 48 PHA ;POINTER RETTEN 
918D A2 00 LDX #0 
918F Al AC LDA (ADL,X) ;INHALT DES REGISTERS 
9191 48 PHA RETTEN 
9192 B9 00 DO LDA SREG,Y ;INHALT DES BUFFERS 
9195 81 AC STA CADL,X) ;NACH REGISTER 


9197 68 PLA ;ALTER REGISTERINHALT 
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9198 99 00 DO STA SREG,Y ;NACH BUFFER (AUSTAUSCH) 
919B 68 PLA 
919C AA TAX ;POINTER NACH X 
919D C8 INY 
919E CA DEX 
919F CA DEX ;NAECHSTES REGISTER 
91AO 10 DF BPL SREI 
’ 
91A2 68 PLA 
91A3 85 AD STA ADH 
91A5 68 PLA 
Y1A6 85 AC STA ADL ;ADL/ADH WIEDERHOLEN 
Y1AB 68 PLA 
91A9 85 01 STA 1 ;ROM EIN CI-FLAG BLEIBT AN!) 
91AB 60 RTS 


en 


;TABELLE DER REGISTERADRESSEN: 


IR 
' 


91Ac 57 00 REGTAB .WOR DO 


91AE 58 00 «WOR D1 
9180 59 00 .WOR D2 
9182 5A 00 «WOR D3 
9184 5B 00 «WOR D4 
9186 5c 00 «WOR D5 
9188 5F 00 «WOR ZA 
91BA 93 00 .WOR ES 
Y1BC 10 C6 .WOR EO 
Y1BE 11 C6 .WOR E1 
91c0 12 C6 .WOR E2 


a2 2 2 2 2 2 2 az 2 2 2 22 22 2 2 22 2220273 


nn men 


“* xr 
;® BEFEHL: IF# ... THEN ... ** 
ze xr* 


RR 


sen 


;TABELLE DER IF#-SECUNDAERBEFEHLE: 


IRRE 
' 


i 
91c2 55 44 4C IFZDAT „ASC "UDLRBC" 


s.. 
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;BEFEHLSANSTEUERUNG: 

SERIRREREENERTERERTNE 

’ 
91c8 A2 05 IFZ LDX #5 ;AKU ENTHAELT NAECHSTES ZEICHEN 
91cA DD C2 91 IFZ1 CMP IFZDAT,X ;AKU MIT TABELLE VERGLEICHEN 
9icD FO 06 BEQ IFZ2 ;GEFUNDEN 
YICF CA DEX 
9100 10 F& BPL IFZI 


9102 4C 08 Ar JMP SERR ;NICHT GEFUNDEN->SYNTAX ERROR 


’ 
9105 20 73 00 IF22 JSR CHRGET ;NAECHSTES ZEICHEN 


9108 EO 05 CPX #5 ;X=5 => C-SECUNDAERBEFEHL 
91DA FO 2C BEQ IFZ5 ;C-BEFEHLE 
91DC 8A TXA 
91DD 48 PHA ;NUMMER DES SECUNDAERBEFEHLS MERKEN 
v 
;JOYSTICKBEFEHLE: 
i 
91DE 20 9E B7 JSR GETBYT ;HOLE PARAMETER (PORTNUMMER) 
91EI CA DEX ;AUS 1-2 MACH 0-1 
91E2 8A TXA 
Y1E3 4A LSR A ;PORTNUMMER NACH CARRY 
Y1EL 68 PLA ;BEFEHLSNUMMER 
91ES AA TAX ;NACH X 
; 
91E6 AD 02 DC LDA $DCO2 
91E9 48 PHA 
91EA AY EO LDA #%E0 
Y1EC 8D 02 DC STA $DCO2 ;TASTATUR AUS 
’ 
91EF BD 27 7D LDA STAB1,X ;ENTSPRECHENDES BIT SETZEN 
91F2 90 05 BCC IFZ3 ;PORT 1 
‚ 
9iF4 2D 00 DC AND $DC0O0 ;PORT 2 
91F7 BO 03 BCS IFZ4 ;UNBEDINGT 


91F9 2D 01 DC IFZ3 AND $DC0O1 ;PORT 1 


’ 
91FC 5D 27 70 IFZ4 EOR STAB1,X ;BIT UMDREHEN 


91FF 85 61 STA $61 ;UND ALS ERGEBNIS EINER LOGISCHEN VERKN. 
MERKEN 

9201 68 PLA 

9202 8D 02 DC STA $DC0O2 ;TASTATUR AN 


9205 4C 2B A9 JMP $A92B ;BASIC-VERZWEIGUNG GEMAESS $61 AUSFUEHREN 
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9208 
920A 


920C 
920E 
9211 


9213 
9215 


9217 
921A 
921D 
921F 
9222 
9225 


9228 
Y22A 
922D 
922F 
9232 
9234 


c9 
DO 


A2 
8E 
FO 


DO 


AD 
OD 
85 
20 
20 
4c 


A2 
8E 
AS 
8D 
AS 
8D 


9237 A5 


9239 
923C 
923E 
9241 
9244 


8D 
A5 


20 
4c 


43 
07 


00 
8B 


04 


4E 
11 


1E 
ıF 
61 
E1 


2B 


80 
8B 
39 
8C 
3A 
8D 
7A 
8E 
78 
8f 
E1 
3B 


c6 


DO 
DO 


92 


00 
A9 


C6 


c6 


c6 


c6 
92 
A9 


;C-BEFEHLE: 

; 

IFZ5 CMP 
BNE 


LDX 
STX 
BEQ 


FZ6 CMP 
BNE 


». 


;IF# CN...: 

’ 

IFZ7 LDA 
ORA 
STA 
JSR 
JSR 
JMP 


nen. 


;IF#Cc...: 

; 

IFZ8 LDX 
STX 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
JMP 


un. 


zch 
IFZ6 ;IF# C... ODER IF# CN... 


#0 ;IF# CC 
CFLAG ;KEIN INTERRUPT MEHR 
IFZ7?___;UNBEDINGT 


gun 
IFZB  ;IF#C... 


V+30 

V+31 ;KOLLISIONSREGISTER 

$61 ;ERFUELLT-FLAG FUER BASIC- VERZWEIGUNG 
CLRCOL ;KOLLISIONSREGISTER LOESCHEN 

CHRGET 

$A92B ;BASIC-VERZWEIGUNG GEMAESS $61 


#580 ;FLAG SETZEN FUER: 

CFLAG ;"KOLLISION UEBERPRUEFEN" 
$39 

ZLNR 

$3A 

ZLNR+1 ;ZEILENNUMMER MERKEN 

$7A 

PRGZGR 

$7B 

PRGZGR+1 ;PROGRAMMZEIGER MERKEN 
CLRCOL ;VORHERIGE COLL. LOESCHEN 
$A93B ;NAECHSTE ZEILE 
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;HOLE SPRITENUMMER (IN X) NACH NR 
;UND SATZNUMMER NACH Y: 


EERRUNTEUERRTTTTRTENEENWEERTERIENTE 


‘ 


9247 8A GETNR TXA ;SPRITENUMMER 
9248 29 OF AND #$0F ;16 SPRITES MAX. 
924A 8D 4E C6 STA NR 

924D AO 00 LDY #0 ;SATZ 1 => Y=0 
924r 29 07 AND #807 

9251 CD 4E C6 CMP NR 

9254 FO 01 BEQ GETI 

9256 C8 INY ;SATZ 2 => Y=1 
9257 60 GET RTS 


GR RE 


zer x 
;* BEFEHL: SSET ** 
zer E23 
ons 
# 
’ 
9258 20 9E B7 SSET JSR GETBYT ;HOLE SPRITENUMMER -> X 
9258 78 ss7 SEI 
925C 20 47 92 JSR GETNR IX->NR ETC. 
925F BD 27 7D LDA STAB1,X 
9262 39 6E C6 AND SRUNS1,Y ;MERKER FUER SICH BEWEGENDE SPRITES 
9265 FO 05 BEQ SS1 ;SPRITE IST NICHT IN BEWEGUNG 
9267 20 6C 93 JSR SWAITI ; INTERNE SPRITEWAIT-ROUT.=>WARTEN BIS 
SPRITE STOPPT 
926A FO EF BEQ SS7 ;UNBED. 


i 
;SPRITE AUF SPRITECURSOR SETZEN: 


926C 20 5F 91 SS1 JSR SREGIN ;HOLE SPRITE- UND RETTE HLINE-REGISTER 
926F AD 10 C6 LDA EO ;X-KOORDINATE (LOW-BYTE) 
9272 AE 11 C6 LDX E1 ;X-KOORDINATE CHIGH-BYTE) 
9275 AC 12 C6 LDY E2 ;Y-KOORDINATE 
9278 20 17 93 JSR SSTCR2 ;SPRITE POSITIONIEREN 
9278 20 79 00 JSR CHRGOT ;LETZTES ZEICHEN HOLEN 
‘ 
927E C9 A4 CMP #TO 


9280 FO 10 BEQ SSO ;DIREKT SSET TO... 
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9282 
9285 
9288 
928B 
928E 
9290 


9292 
9294 
9296 
9298 
929B 
929E 
92A1 


20 
20 
20 
20 
c9 
DO 


20 


FD AE 
EE 92 
0E 93 
79 00 
A4 
37 


42 
02 
02 
7C 93 
73 00 
EE 92 
E4 87 


;SPRITEKOORDINATEN X1,Y1 HOLEN: 


JSR 
JSR 
JSR 
JSR 
CMP 
BNE 


CHKCOM ;AUF KOMMA TESTEN 

STEST ;KOORD. HOLEN + TESTEN 

SSTCOR ;SPEICHERE SPRITE-KOORD. UND POSITIONIERE 
CHRGOT ;LETZTES ZEICHEN 

#TO 

SSYA ;KEIN TO 


’ 
;SPRITEZIELKOORDINATEN HOLEN 
;UND SPRITEBEWEGUNG INITIALISIEREN: 


sso 


AUSSTEIGERFLAG!) 
92A4 FO 20 


92A6 08 


92A7 
92AA 
Y2AB 
Y2AE 
92AF 
9282 
9283 
9285 
92B7 
9288 
92BB 
92BD 
Y92BF 
92c0 
92C3 


92C6 
92c9 
Y2cc 
Y92CcF 


92D1 
9204 
9205 
9208 


AC 
8A 
9% 
68 
99 
98 
co 
29 
A8 
B9 
AO 
90 
c8 


4E C6 


76 C6 


27 mw 
00 
01 


19 6E C6 


% 


20 
20 
20 
FO 


8A 
AC 


6E C6 


02 93 
sFr 91 
79 00 
0A 


4E C6 
09 c7 


ss3 


’ 
ss9 
SSYA 


LDA 
ORA 
STA 
JSR 
JSR 
JSR 
JSR 


BEQ 


PHP 
LDY 
TXA 
STA 
PLA 
STA 
TYA 
cPY 
AND 
TAY 
LDA 
LDY 
BCC 
INY 
ORA 
STA 


JSR 
JSR 
JSR 
BEQ 


#842 

GFLAG 

GFLAG ;AUSSTEIGERFLAG-SPRITE 

SLDCOR ;LADE SPRITEKOORDINATEN->SX/SY 
CHRGET 

STEST ;ZIELKOORDINATEN HOLEN 

HLINE ;LINIENINITIALISIERUNG (BEACHTE 


ss9 ;BEWEGUNG ZUENDE 


;FLAGS RETTEN 
NR ;SPRITENUMMER 


X.SREG,Y ;X-REGISTER RETTEN 


PFLAGS,Y ;CARRY RETTEN (I1=1!) 
;NR. 

#8 

#7 


STABI,Y ;SPRITEBIT SETZEN 
#0 SATZ 1 
ss3 
:SATZ 2 
SRUNS1,Y ;SPRITE IN BEWEGUNG! 
SRUNS1,Y ;ALS IN BEWEGUNG KENNZEICHNEN 


SSTCRI ;KOORD. ZUR BEWEGUNG 
SREGIN ;REGISTER WIEDER WECHSELN 
CHRGOT ;LETZTES ZEICHEN HOLEN 
ss8 ;BEFEHL ZUENDE 


;GESCHWINDIGKEIT HOLEN: 


. 
’ 


JSR 
TXA 
LDY 
STA 


CHKGET ;GESCHWINDIGKEIT->X 


NR 
SSCHRT,Y ;ANZAHL SCHRITTE/IRQ 
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92DB 
92DD 
92DF 


92E1 
92E3 
92E6 
92E9 
Y2EC 
Y2ED 


Y2EE 
92F0 
92F1 
92F3 
92F5 
92F8 
92F9 
Y2FB 
Y2Fc 
92FE 
92FF 
9301 


9302 
9305 
9308 
930B 


AS 
29 
85 


A9 
8D 
8D 
8D 
58 
60 


A5 
48 
09 
85 
20 
68 
85 
8A 
29 
AA 
A5 
60 


AD 
AE 
AC 
4c 


1E 
ıF 
8A 


02 


04 
02 
FF 


02 


01 


39 
3A 
3B 
17 


DO 
DO 
c6 


7F 


c6 
c6 
c6 
93 


;TERMINIERUNG: 
‚ 
ss8 LDA GFLAG 
AND #%10111101 
STA GFLAG ;AUSSTEIGERFLAG LOESCHEN 


’ 
;KOLLSISIONEN AUSSCHALTEN: 
’ 
CLRCOL LDA #0 
STA V+30 
STA V+31 
STA IRRSAV 
cLI 
RTS 


i 
; 
v 
;HOLE SPRITEKOORDINATEN: 


;CALS PARAMETER BEI SPRITEBEFEHLEN) 


RR a a a a a a a a a 
’ 


’ 

;AUSGABE : 

5 A: X-KOORDINATE (LOW) 

» X: X-KOORDINATE (HIGH) 

; Yz Y-KOORDINATE 

‘ 

i 

STEST LDA GFLAG 
PHA 
ORA #4 ;FLAG FUER 
STA GFLAG ;NICHT TESTEN 
JSR TESCOR 
PLA 
STA GFLAG ;ALTES GFLAG WIEDERHERSTELLEN 
TXA 
AND #1 ;KORRIGIEREN 
TAX 
LDA XK 
RTS 


;KOORDINATEN IN BUFFER SPEICHERN 
;UND SPRITE POSITIONIEREN: 


ERRRTRRNERTERTTRWERUREN RÄT NER. 


. 


’ 

SSTCRI LDA SXL 
LDX SXH 
LDY SY ;KOORDINATEN IN REGISTER 
JMP  SSTCR2 
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Y30E 
9311 
9314 


9317 
9318 
9319 
931A 
931D 
931E 
931F 
9321 
9323 
9324 


8D 10 C6 
8E 11 C6 
8C 12 C6 


4E 


10 


90 01 


9325 
9328 
Y32A 
932D 
932E 
9331 
9333 


BO 


BO 
99 


9336 
9339 
9338 
Y33C 


AD 
29 
A8 
8A 


c5 
03 
01 


C4 
03 
00 


4E 
07 


c6 


DO 


c6 


DO 


c6 


SSTCOR STA EO ;STORE SPRITE KOORD. 
sTX Ei 
sIY E2 ;KOORDINATEN IN REGISTER 
: 
; 
EINGABE: 
; A: X-KOORDINATE (LOW) 
; X: X-KOORDINATE CHIGH) 
; Y: Y-KOORDINATE 
® 
SSTCR? PHA ;X-K-LOW 
TYA ;Y-K 
PHA ;RETTEN 
LDA NR NR ACHTUNG! I-FLAG=1 
ASL A „*2 
TAY ;NACH Y 
CM #848  ;>=16? 
BCC SST2 _ ;NEIN 
INY ;JA => UEBERSPRINGE XK-HIGH 
ssT2 PLA ;Y-K 
STA SKORDI+1,Y ;IN BUFFER 
BCS SST3 »2.SATZ 
STA V+1,Y ;NUR NR. UNTER 8 IN VIC 
SST3 PLA ;X-K-LOW 
STA SKORDI,Y ;IN BUFFER 
BCS SST4 ;SATZ 2 
STA V,Y :NUR BEI NR. UNTER 8 IN VIC 


;X-KOORDINATE HIGH-BYTE: 


933D 
935F 
9341 
9344 


FO 
A9 
39 
8D 


02 
FF 
27 
AC C6 


9347 
Y34A 
934C BO 
934E 2D 
9351 OD 
9354 8D 
9357 8D 
935A 90 


B9 
49 


935C 2D 
935F OD 
9362 8D 
9365 60 


27 mw 


FF 
0E 
D4 
AC 
D4 
10 
09 


E5 
AC 
E5 


c6 
c6 
c6 
DO 


c6 
c6 
c6 


‘ 

SST4 LDA NR 
AND #8$7 
TAY ;SPRITENUMMER - >Y 
TXA X-K-HIGH 
BEQ SST1 ;NULL 
LDA #SFF 

ssT1 AND STAB1,Y ;ENTSPRECHENDES BIT ANSPRECHEN 
STA ZWISIQ ;ZWISCHENSPEICHERN 
LDA STAB1,Y 
EOR #SFF 
BCS SST5 
AND SKORD1+16 ;SATZ 1 / BIT AUSBLENDEN 
ORA ZWISIQ 
STA SKORD1+16 ;UND NEU BELEGEN 
STA V+16 ;REALISIEREN 
BCC SST6 ;UNBEDINGT 

’ 

SST5 AND SKORD2+16 
ORA ZWISIQ 
STA SKORD2+16 ;WIE OBEN 

SST6 RTS 


608 


9366 20 9E 
9369 BE 4E 


936C AE 4E 
936F 2047 


9372 


9373 


58 


BD 


9376 39 


9379 
9378 


937C 
Y37F 
9380 
9382 
9384 


9385 
9388 
Y38A 
938D 


Y38F 
9392 
9394 


DO 
60 


AD 
48 
c9 
29 
A8 


B9 
90 
2D 
BO 


2D 


27 
6E 
F8 


4E 


08 
07 


27 
05 
E5 
03 


D4 


FO 02 
A9 01 
9396 8D 3A C6 SLD1 STA SXH , ACHTUNG! I-FLAG=1 


B7 
c6 


c6 
92 


c6 


c6 
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RR 


.emnn 


per der 
;** BEFEHL: SWAIT ** 
wir xr 


‘ 
‚ 
ee Tr 
‘ 
; 
; 
S 


WAIT JSR GETBYT ;SPRITENUMMER ->X 
STX NR ;SPEICHERN 


‘ 


;INTERNE SPRITEWARTEROUTINE: 


’ 

SWAITI LDX NR ;NR 
JSR GETNR ;NACH NR ETC. 
CLI 


‘ 

SWAITI LDA STAB1,X 
AND SRUNS1,Y ;MERKER TESTEN 
BNE SWAIT1 ;WARTEN BIS IRQ-ROUTINE BIT LOESCHT 
RTS ;SPRITE STEHT 


une ne 


;LADE SPRITEKOORDINATEN AUS BUFFER: 


III 
‘ 


‘ 
SLDCOR LDA NR ;NR. 
PHA ;MERKEN 
cMmP #8 ;SATZNUMMER? 
AND #7 
TAY 


;X-KOORDINATE CHIGH-BYTE): 


’ 


LDA STAB1,Y ;HOLE ENTSPRECHENDES BIT 


BCC SLD2 ;SATZ 1 
AND SKORD2+16 ;X-K-HIGH 
BCS SLD3 ;UNBED. 


E 

SLD2 AND SKORD1+16 ;X-K-H 

SLD3 BEQ SLD1 ;=0 
LDA #1 ;=1 
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9399 
Y39A 
939B 
939C 
939E 
93AO 
93A1 
93A4 
93A7 
Y3AA 
Y3ZAD 


Y3ZAE 
9381 
9384 
9386 
9389 


Y3BB 
Y3BE 
93C1 
93C4 
93C7 
Y3CA 
Y3CD 
9300 
9303 
9304 
9306 


68 


A8 
co 
90 


B9 
8D 
B9 
8D 
60 


AD 
8D 
AO 
20 
A2 


BD 
9D 
BD 
9D 
BD 
9D 
BD 
n 
CA 
10 
60 


10 
01 


c5 c6 
3B C6 
C4 Cc6 
39 c6 


88 C6 
15 DO 
00 
cc 90 
07 


C4 Cc6 
00 DO 
CC Cc6 
08 DO 
E7 C6 
27 DO 
19 c7 
F8 C3 


E5 


;X- (CLOW-BYTE) UND Y-KOORDINATEN: 


‚ 
PLA 
ASL 
TAY 
CPY 
BCC 
INY 

SLD4 LDA 
STA 


STA 
RTS 


en 


A ;NR.*2 

;>Y 
#8+8 
SLD4 

;SATZ 2 
SKORD1+1,Y ;KOORDINATE HOLEN 
sY ;SPEICHERN 
SKORD1,Y ;X-KOORD. LOW 
SAL ;SPEICHERN 


;SPRITE-SATZ 1 AKTIVIEREN: 


IT 
’ 


’ 

SOFF16 LDA 
STA 
LDY 
JSR 
LDX 


’ 

SOFF17_ LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
DEX 
BPL 


RTS- 


[nenn nen 


SPRIT1 
v+21  ;SP-ENABLE 
#0 ;SATZ 1 


SMY ;MC- FARBEN/MC/X-Y-EXP/PRIOR 
#7 


SKORD1,X 

VX ;KOORD. 

SKORD1+8,X 

V+8,X  ;KOORD.(COBERE 4 PAARE) 
SCLHG1,X 

V+39,X  ;HGR-FARBEN 

SPVEK,X 

$C3F8,X ;SPRITEVEKTOREN (SEITEI) 


SOFF17 


RR 


*IRQ-ROUTINEN* 
Error een er 


609 


610 


9307 
Y3DA 


Y93DC 
Y3DF 
93E2 
Y3E4 
93E7 
93EA 
Y93ED 
93ER 
Y3FO 


Y3F3 
Y3F5 
93F6 


Y3F8 
Y3FB 
Y3FD 
9400 
9402 
9405 
9407 
940A 
940D 
9410 


9413 
9416 
9419 
IC 


941F 
9422 
9424 
9427 


9429 
942C 
942F 
9432 
9435 
9437 
Y43A 
945C 
Y43F 
9442 


AD 
8D 
30 
AD 
AD 
OD 
DO 
58 
4Cc 


A2 


DO 


2C 
50 
AD 
49 
) 
30 
AD 
8D 
20 
4c 


AD 
8D 
20 
4c 


AD 
49 
8D 
30 


AD 
8D 
AD 
8D 
AO 
20 
A2 
BD 
9% 
BD 


14 


19 


OF 
0D 
6E 
6F 
01 


69 


03 


FD 


94 
22 
95 
80 
95 
oc 
38 
12 
4f 
BC 


37 
12 
FD 
BC 


95 
80 
95 
31 


38 
12 
89 
15 


cc 
07 
D5 
00 
DD 


94 


c6 
DO 
8B 


C6 
DO 
8A 
FE 


c6 


c6 


DO 
c6 
DO 


90 
c6 


DO 
c6 
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;RASTERZEILEN-IRQ: 


erh 
‘ 


‘ 
IRQNEU BIT 
BPL 


- 


LDA 
STA 
BMI 
LDA 
LDA 
ORA 
BNE 
CLI 
SIROGO JMP 
‚ 
IRQO LDX 
IRQWAR DEX 
BNE 


BIT 
BVC 
LDA 
EOR 
STA 
BMI 
LDA 
STA 
JSR 
JMP 


’ 

IRQ1 LDA 
STA 
JSR 
JMP 


‘ 

RASSPR LDA 
EOR 
STA 
BMI 


LDA 
STA 
LDA 
STA 
LDY 
JSR 
LDX 
IRQ3 LDA 
STA 
LDA 


RASFLG ;RASTER-IRQ AN? 
SIRQGO ;NEIN! 


V+25 

V+25 ;IRR CINTERRUPT REQUEST REGISTER) LOESCHEN 

IRQO ;IRQ V. RASTER? 

$DCOD ;CIA 2 - IRR LOESCHEN 

SRUNS1 

SRUNS2 ;SPRITE IN BEWEGUNG? 

SIROGO ;JA => KEIN RAS-IRQ! (ZEITPROBLEM! ) 
;RAS-IRQ WAEHREND ALT-IRQ ERLAUBEN 

SIRQ ;NORMALEN IRQ BEDIENEN 


#3 
IRQWAR ;WARTEN 


RASFLG ;SPRITE-/TEXT-IRQ? 
RASSPR ;SPRITE-RASTER- IRQ 
RSFLG1 

#380 

RSFLG1 ;OBEN/UNTEN- FLAG 
IRQ1 ;UNTEN 

RAST2 ;ZEILENNUMMER OBEN 
+18 ;NEUE IRQ-ZEILE 
TEXTM ;TEXT UMSCHALTEN 
$FEBC ;ABSCHLIESSEN 


RASTI ;ZEILENNUMMER UNTEN 
+18 ;NEUE IRQ-ZEILE 
GRAPMI ;GRAPHIK EINSCHALTEN 
$FEBC ;ABSCHLIESSEN 


RSFLG1 

#380 ;OBEN/UNTEN- FLAG WECHSELN 
RSFLG1 

IRQ2 ;UNTEN 


RAST2 

V+18 ;NEUE IRQ-ZEILE 
SPRIT2 ;OBEN 

V+21 ;SP-ENABLE 


# ;SATZ 2 AKTIVIEREN 

sm9 ;MC- FARBEN/MC/X-Y-EXP/PRIOR 
#7 

SKORD2,X 

Vv.x ;KOORD. UEBERTRAGEN 


SKORD2+8,X 
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9445 
9448 
Y44B 
Y44E 
9451 
9454 
9455 
9457 


Y45A 
945D 
9460 
9463 


9466 


9469 
Y4EC 
Y4Er 
9471 
9474 


9476 
9478 
9478 
947E 
9uTF 
9482 
9483 
9485 
9488 
9489 
Y4BA 
Y4EC 
948D 
Y4LBF 
9490 
9491 
9494 
9495 
9496 
9497 
9498 
9499 
Y49A 
949B 


9D 
BD 
9D 
BD 
9D 
CA 
10 
4c 


AD 
8D 
20 
4c 


4c 


AD 
OD 
FO 
CE 
10 


A2 
8E 
AD 
48 
AD 
48 
A9 
8D 
68 
AA 
DO 
68 
FO 
48 
8A 
EE 
4A 
AA 
68 
6A 
48 
8A 
48 
90 


08 DO 
Fl C6 
27 DO 
21 c7 
F8 C3 


E5 
BC FE 


37 c6 
12 DO 
AE 93 
BC FE 


06 95 


6E C6 
6F C6 
F5 
30 C6 
FO 


03 

30 C6 
6E C6 
6F C6 


FF 
4E C6 


4E C6 


EB 


STA 
LDA 
STA 
LDA 
STA 
DEX 
BPL 
JMP 


: 

IRQ2 LDA 
STA 
JSR 
JMP 

r’ 

; IRQ-ROUTINE 


‘ 

JUMPTI JMP 

’ 

SIRQ LDA 
ORA 
BEQ 
DEC 
BPL 


LDX 
STX 
LDA 
PHA 
LDA 
PHA 
LDA 
STA 
sı1 PLA 
TAX 
BNE 
PLA 
BEQ 
PHA 
sı2 TXA 
INC 
LSR 
TAX 
PLA 
ROR 
PHA 
TXA 
PHA 
BCC 


V+8,X  ;KOORD. UEBERTRAGEN 
SCLHG2,X 

V+39,X  ;HGR-FARBEN 

SPVEK+8,X 

$C3F8,X ;SP-VEKTOREN (SEITE1) 


IRQ3 
$FEBC ;ABSCHLIESSEN 


RAST1 

+18 ;NEUE IRQ-ZEILE 
SOFF16 ;SATZ 1 EINSCHALTEN 
$FEBC ;ABSCHLIESSEN 

F. SPRITEBEWEGUNG: 

TONIRQ ;ZUM TON-IRQ 


SRUNS1 ;MERKER 


SRUNS2 ;MERKER2 
JUMPTI ;KEINE SPRITES IN BEWEGUNG 
SLOW  ;ZAEHLER DECREMIEREN 
JUMPTI 
#3 ;ZAEHLER WIEDER "RAUFSETZEN 
SLOW 
SRUNS1 
SRUNS2 
;LAUFMERKER RETTEN 
HSFF 
NR ;ZAEHLER=0 
;LAUFMERKER SATZ 2 
sı2 ;IN BETRIEB 
;MERKER 1 
sıo ;KEIN WEITERES IN BETRIEB 
;MERKER 2 
NR ;INC ZAEHLER (NR.) 
A ;BIT FUER BIT UEBERPRUEFEN 
;ZURUECK 
;MERKER 1 
A ;AUCH NACH RECHTS BIT NACH CARRY 
;ZURUECK 


;NAECHSTES SPRITE 
sı1 ;NICHT IN BEWEGUNG 
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;ENTSPRECHENDES SPRITE BEWEGEN: 


’ 


9490 20 62 91 JSR SREGSG ;HOLE SPRITEREG.+RETTE HLINE 
94AO A5 02 LDA GFLAG 
94A2 09 42 ORA #%42 
Y4A4 85 02 STA GFLAG ;SPRITE-AUSSTEIGERFLAG 
Y4A6 20 7C 93 JSR SLDCOR ;LADE SPRITE-KOORDINATEN 
94AY AC 4E C6 LDY NR 
94AC B9 09 C7 LDA SSCHRT,Y ;ANZAHL SCHRITTE 
YLAF 8D AC C6 STA ZWISIQ ;MERKEN 
94B2 BE 76 C6 LDX X.SREG,Y ;X-BUFFER 
9485 BY F9 C6 LDA PFLAGS,Y ;UND FLAGS HOLEN 
Y4B8 48 PHA 
94B9 28 PLP 
QY4BA 20 47 88 SI7 JSR LI. ;SPRITE BEWEGEN 
94BD DO IC S13 BNE SI6 ;BEWEGUNG ZUENDE? 
;JA: 
Y4BF EB INX 
94C0 BE AC C6 STX ZWISIQ 
94C3 AD 4E C6 LDA NR ;NR. 
94C6 C9 08 cMP #8 
94uc8 29 07 AND #7 
YUCA AA TAX 
94CB BD 27 7D LDA STAB1,X 
9LUCE 49 FF EOR #$FF 
94D0 A2 00 LDX #0 
9402 90 01 BCC SI5 
9404 EB INX ;sATzZ 2 
9405 3D 6E C6 SI5 AND SRUNS1,X ;LAUFMERKER 
9408 9D 6E C6 STA SRUNS1,X ;SPRITE LAEUFT NICHT 
‘ 
94DB AD IE DO SI6 LDA V+30 
94DE OD IF DO ORA V+31 ;KOLLISIONSREGISTER 
94EI FO 03 BEQ SI4 ;KEINE KOLLISION 
YLE3 8D 8A C6 STA IRRSAV ;KOLLISION 
Y4E6 CE AC C6 SI4 DEC ZWISIQ ;ZAEHLER 
94E9 DO CF BNE SI7 
’ 
Y4EB 08 PHP 
YLEC AC 4E C6 LDY NR 
YLEF 8A TXA 
94FO 99 76 C6 STA X.SREG,Y 
Y4F3 68 PLA 
944 99 F9 C6 STA PFLAGS,Y ;LETZTE REGISTER RETTEN 
94F7 20 02 93 JSR SSTCRI ;KOORD. ZUR BEWEGUNG 
Y4FA 20 62 91 JSR SREGSG ;REG. ZURUECK+HLINE HOLEN 


94FD 4C 88 94 JMP SI ;NAECHSTES SPRITE 


en 
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9500 
9502 
9504 


9506 
9508 
9509 


950B 
Y950E 
Y50F 


9511 
9514 
9516 
9519 
951B 
951E 
9520 
9523 


9525 
9528 
Y52A 
952D 
9530 


A5 
29 
85 


A2 
ca 
30 


BD 
4A 
90 


BD 
E9 
9D 
BO 
BD 
E9 
9D 
BO 


BD 
29 
9D 
BC 
99 


02 
BD 
02 


03 


2a 


71 


F7 


31 
01 
31 
ED 
34 
00 
34 
E3 


71 
FE 
71 
FO 
04 


9533 90 D3 


9535 6C 2A C6 


c6 


c6 


c6 


c6 


c6 
96 
D4 


sıo LDA 
AND 


STA 


TON- IRQ: 


nen nee 


TONIRQ LDX 
TO1 DEX 
BMI 


-. 


LDA 
LSR 
BCC 


LDA 
SBC 
STA 
BCS 
LDA 
SBC 
STA 
BCS 


- 


LDA 
AND 
STA 
LDY 
STA 
BCC 


JMP 


ern Zn 
[eo] 
=} 


GFLAG 

#%10111101 

GFLAG ;IRQ-FLAG LOESCHEN 
#3 ;STIMMENZAEHLER 

TOO ;FERTIG 

WELLFO,X ;WELLENFORMBUFFER 

A ;BIT O0 -> STIMME AN? 
T01 ;NEIN 

TIMEL,X 

# ;c=1 

TIMEL,X 

T01 

TIMEH,X 

#0 ;TIMER ERNIEDRIGEN 
TIMEH, X 

T01 ;NOCH NICHT AUF O 
WELLFO,X 

#SFE 

WELLFO,X ;TIMER AUF 0->STIMME AUS 
POITAB,X ;STIMME*7 

S+4,Y ;STIMME AUSSCHALTEN 
T01 UNBEDINGT 

(IROSAV) ;EIGENDL. IRQ-ROUT. 


613 


614 


Da 2 2 2 2 202 2020202 2 2 2 2 202 2 2020202 
. 


Ar ar 
’ 


;** BEFEHL: VOLUME ** 
.r* “r 


. 
En a2 S a 22a 2 EZ 2 22020 


un. 
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‘ 
9538 20 9E B7 VOLUME JSR GETBYT ;LAUTSTAERKE->X 


9538 20 FO 95 JSR GET 
953E 85 FE STA USE+1 
9540 AD 74 C6 LDA VOLUM 
9543 29 FO AND #$F0 
9545 05 FE vo1 ORA USE+1 
9547 80 18 D4 STA S+24 
954A 8D 74 C6 STA VOLUM 
9540 60 RTS 


wenn. 


SERRRERRETTRTENRRTHREN 


;1SER-ZAHL 


;LAUTSTAERKE-BUFFER 


;LAUTSTAERKE REALISIEREN 
;UND IN BUFFER 


zer “x 

;** BEFEHL: SOUND ** 

Fi “r 

Pan ad 03 2 22 22 72222 

’ 
954E 20 F4 95 SOUND JSR STIMME ;STIMME NACH ZWIS UND X 
9551 86 FE STX USE+1 

‚ 
9553 20 ED 95 JSR GET15 ;WELLENFORM NACH A 
9556 C9 09 cm #9 ;WELLENFORM:0-8 
9558 90 02 BCC XXX 
955A A9 01 LDA #1 ;KORREKTUR 
955C 48 XXX PHA ;MERKEN 


‘ 


;ATTACK, DECAY, SUSTAIN, RELEASE HOLEN: 


. 


9550 AO 04 LDY #4 
955F 84 FD STY USE ;ZAEHLER FUER 4 PARAMETER 
9561 20 ED 95 Soul JSR GET15 ;PARAMETER NACH A 
9564 48 PHA ;MERKEN 
9565 C6 FD DEC USE ;ATT.,DEC.,SUST.,REL. 
9567 DO F& BNE SOU1 ;NAECHSTEN 

’ 
9569 A6 FE LDX USE+1 ;POINTER ERSTELLEN 
956B BC FO 96 LDY POITAB,X ;STIMME*7 
956E BC 48 C6 STY ZWIS ;+ MERKEN 
9571 20 79 00 JSR CHRGOT ;LETZTES ZEICHEN 
9574 FO 3E BEQ SOU3 ;BEFEHL ENDE 


9576 
9579 
Y57A 
9578 
9570 
957F 
9580 
9582 
9584 
9587 
9589 
958C 
Y958E 
9591 
9593 
9596 


9599 
959C 


959E 
95A1 
95A4 
95A7 
95A9 
Y5AC 
Y5AF 
9581 


95B4 
9587 
9589 
Y95BB 


Y5BC 
Y5BE 
Y5BF 
95c1 
9503 
95C4 


95C6 
95C8 


20 
8A 
4A 
A9 
A6 
2A 
FO 
A9 
3D 
85 
BD 
49 
2D 


8D 
8D 


20 
FO 


20 
20 
20 
A5 
AE 
9D 
AS 


AE 
AO 


68 


AO 
4A 


DO 


c6 
DO 


F1 


FD 
8A 
F7 
14 
48 


15 
03 


48 
04 
FD 


04 


AC 
AD 


F8 


FD 
F1 


B7 


7D 


7D 


c6 


D4 
c6 


00 


AE 
AD 
B7 


c6 
D4 


D4 


;FILTERZUSTAND HOLEN: 


. 


JSR 
TXA 
LSR 
LDA #0 

LDX USE+1 
ROL A 

BEQ SOU2 
LDA #7 

AND STAB1,X 
STA USE 

LDA STAB1,X 
EOR #$FF 
AND FILON 
ORA USE 

STA S+23 
STA FILON 


CHKGET 


A 


sou2 


JSR 
BEQ 


CHRGOT 
SOU3 


PULSRATE HOLEN: 


nn 


JSR 
JSR 
JSR 
LDA 
LDX 
STA 
LDA 
STA 


CHKCOM 
$ADBA 
$B7F7 
XK 
ZWIS 
S+2,X 
XK+1 
S+3,X 
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;PARAMETER NACH X 
;FILTER ON/OFF 
;0=OFF/1=0N 
KORREKTUR 
;STIMME->X 


;MASKE 


;FILTERSCHALTER 


;ON/OFF REALISIEREN 
;ON/OFF IN BUFFER 


;KEIN ZEICHEN MEHR 


;AUF KOMMA PRUEFEN 
;FRMNUM HOLT NUMER.WERT 
;FAC NACH ADR. FORMAT 
;PULSRATE 

;STIMME 

;REALISIEREN 


;HIGH-BYTE 


;HUELLKURVE REALISIEREN: 


® 

SOU3 LDX 
LDY 
STY 


PLA 


ZWIS 
#4 
USE 
SOU5 


LDY #4 
LSR A 

ROR ADL 
ROR ADH 
DEY 
BNE 


SOU6 


SOU6 


DEC 
BNE 


USE 
SOUS 


;STIMME 


;WERT VOM STACK 


;SETZE ATTACK,DECAY,... 
;NACH ADL/ADH ROLLEN 


;NAECHSTEN WERT 
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95CA AS AC LDA ADL 

95CC 9D 05 D4 STA S+5,X 

95CF AS AD LDA ADH 

9501 9 06 D4 STA S+6,X ;UND REALISIEREN 
95D4 A4 FE LDY USE+1 ;STIMME 

95D6 68 PLA ;WELLENFORM-BITWEISE 
9507 OA ASL A 

95D8 OA ASL A 

9509 OA ASL A 

95DA OA ASL A ;INS OBERE NIBBLE 
95DB 78 SEI ;WEGEN TON-IRQ 

95DC 85 FD STA USE 

95DE B9 71 C6 LDA WELLFO,Y 

95E1 29 OF AND #$0F 

95E3 05 FD ORA USE 

95E5 M 04 D4 STA S+4,X ;WELLENFORM SETZEN 
95E8 99 71 C6 STA WELLFO,Y ;UND IN PUFFER 
95EB 58 CLI 

95EC 60 RTS 


-.n. 


;4-BIT-PARAMETER HOLEN: 


BERUFE HER EN EN. 


95ED 20 Fi B7 GETI5 JSR CHKGET ;PARAMETER->X 


95F0 8A GET TXA 
95F1 29 OF AND #$0F ;OBERES NIBBLE WEG 
95F3 60 RTS 


en 


;STIMME HOLEN: 


chrhhhrhce 
. 


: 
95F4 20 9E B7 STIMME JSR GETBYT ;PARAMETER->X 


95F7 CA DEX ;AUS 1-3 MACH 0-2 
95F8 EO 03 cPX # 

95FA 90 02 BCC STIMMM 

95FC A2 00 LDX #0 ;KORREKTUR 


95FE BE 48 C6 STIMMM STX ZWIS ;STIMME 
9601 60 RTS 


nun m 
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III 
. 


SER “r 
;®* BEFEHL: TUNE ** 
ser ar 
EURER ENENNE 
; 
9602 20 F4 95 TUNE JSR STIMME ;STIMME HOLEN 
9605 20 FD AE JSR CHKCOM ;TESTE AUF KOMMA 
9608 20 EB B7 JSR GETCOR ;LAENGE(16BIT)+TON 
960B BA TXA ;TON 
960C CH OD  TU7 cMP #13 
960E 90 0% BCC TU8 
9610 E9 OC ssc #12 ; KORREKTUR 
9612 BO F& BCS TU7 ; UNBEDINGT 
# 
9614 85 FE  TUB STA USE+1 ;TON 
’ 
9616 20 Fi B7 JSR CHKGET ;OKTAVE -> X 
9619 BA TXA ;OKTAVE 
961A 29 07 AND #7 ; KORREKTUR 
961C A6 FE LDX USE+1 
961E EO OC cPx #12 
9620 DO 07 BNE TLO 
9622 A2 00 LDX #0 
9624 86 FE STX USE+1 
9626 AA TAX 
9627 EB INX ; INC. OKTAVE 
9628 BA TXA ;12.TON=H => 0.TON 
9629 48 TUO PHA 
‘ 
962A A2 00 LDX #0 
962c 20 79 00 JSR CHRGOT 
962F FO 03 BEQ TUI ;KEIN ZEICHEN MEHR 
9631 20 FI 87 JSR CHKGET ;HOLE VERSTIMMUNG 
9634 86 FD TUI STX USE ;EVT. VERSTIMMUNG 
9636 AC 48 C6 LDY ZWIS ;STIMME 
9639 20 DI 96 SR TU6 ;WARTEN AUF STIMME AUS 
‘ 
963C A5 14 LDA XK ;TIMER 
963E 78 SEI 
963F 99 31 C6 STA TIMEL,Y 
9642 A5 15 LDA XK+1 


9644 99 34 C6 STA TIMEH,Y ;SETZEN 
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9647 AS FE LDA USE+1 ;TON 

9649 58 cLI 

Y64A OA ASL A ‚*2 

Y64B AB TAY 

964C B9 DE 96 LDA TONTAB,Y ;HOLE BASISWERT 

964F 85 AC STA ADL ; FREQUENZ 

9651 B9 D9 96 LDA TONTAB+1,Y 

9654 85 AD STA ADH 

9656 68 PLA ;OKTAVE 

9657 49 07 EOR #7 

9659 AB TAY 

965A FO 07 BEQ TU3 ‚FERTIG 

965C 46 AD TU4 LSR ADH 

965E 66 AC ROR ADL ;TONWERT/2 

9660 88 DEY 

9661 DO F9 BNE TU4 
‘ 

9663 AE 48 C6 TU3 LDX ZWIS ;POINTERBEST. 

9666 BC FO 96 LDY POITAB,X ;STIMME*7 

9669 A2 00 LDX #0 ;X=0 

966B AS FD LDA USE ;VERSTIMMUNG 

9660 10 04 BPL TUS ;7.BIT=1 => MINUSVERST. 

Y66F 49 T7F EOR #$7F 

9671 A2 FF LDX #$FF 

9673 18 TUS CLC 

9674 65 AC ADC ADL ;ZzU FREQUENZ ADDIEREN 

9676 99 00 D4 STA S,Y ;UND REALISIEREN 

9679 8A TXA 

967A 65 AD ADC ADH 

967C 99 01 D4 STA S+1,Y _;VERST.+TONWERT IN REG. 

967F AE 48 C6 LDX ZWIS ;X: ;STIMME/Y:z ;STIMME*7 
‘ 

9682 78 SEI 

9683 BD 71 C6 LDA WELLFO,X 

9686 09 01 ORA #1 

9688 99 04 D4 STA S+4,Y ;TON ANSTELLEN 

968B 9D 71 C6 STA WELLFO,X 

Y68E 58 cLI 


Y68F 60 RTS 


-.n.“. 
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9690 
9693 
9694 
9695 
9696 
9697 
9698 
Y69A 
969D 
Y69F 


96A2 
96A5 


96A7 
96AA 
96AD 
Y6AF 
96B1 
96B3 
96B5 
96B6 
96B7 
9689 


Y6BC 
Y6BD 
Y6BE 
Y6BF 
Y6c0 
96c1 
96C3 
96C6 
96C8 
96CA 
Y6CD 
9600 


20 
8A 
0A 
OA 
0A 
0A 
85 
AD 
29 
20 


20 
FO 


20 
20 
AO 
AS 
46 
66 
6A 
88 
DO 
8D 


8A 
OA 
OA 
0A 
OA 
85 
AD 
29 
05 
8D 
8D 
60 


9E 


FE 
74 
or 
45 


FD 
70 
or 
FD 
17 
70 


c6 


95 


00 


c6 


D4 
c6 


619 


IR a a a 
‘ 


.r% 
’ 


p* BEFEHL: 


.ır% 


FILTER 


“% 


“%r 


“x 


‘ 
IRRE 


nenn 


FILTER JSR 
TXA 
ASL 
ASL 
ASL 
ASL 
STA 
LDA 
AND 
JSR 


Ey 


JSR 
BEQ 


JSR 
JSR 
LDY 
LDA 
FIL1 LSR 
ROR 
ROR 
DEY 
BNE 
STA 


TXA 
ASL 
ASL 
ASL 
ASL 
STA 
LDA 
AND 
ORA 
STA 
STA 
FILO RTS 


non 


GETBYT 


>>> 


A 
USE+1 
VOLUM 
#SOF 
vo1 


CHRGOT 
FILO 


CHKCOM 
GETCOR 
#11 
USE 
XK+1 
XK 

A 


FILI 
S+22 


> >>> 


USE 
FILON 
#SOF 
USE 
S+23 
FILON 


;FILTERART -> X 
;FILTERART 


;INS OBERE NIBBLE SCHIEBEN 
;MERKEN 


;SETZEN 


;KEIN ZEICHEN MEHR 


;FREQUENZ UND RESONANZ 


;FILTERFREQ.(NUR H-BYTE) 


;REALISIEREN 


;RESONANZFREQ. 


;SETZEN 
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;AUF STIMME IN Y WARTEN: 


III 
’ 


96D1 B9 71 C6 TU6 LDA WELLFO,Y 

Y6D4 4A LSR A 

9605 BO FA BCS TU6 ;STIMME NOCH IN BETRIEB 
9607 60 RTS 


nes 


;TABELLE DER TONWERTE EINER OKTAVE: 


III III III III III 
’ 


96D8 6A 835 TONTAB .WOR 33642 


;H-6 
Y96DA 3B 8B .WOR 35643  ;Cc-7 
96Dc 82 93 .WOR 37762  ;c#-7 
JEDE 48 9C .WOR 40008 ;D-7 
96EO 93 A5 .WOR 42387 ;D#-7 
96E2 6B AF .WOR 44907  ;E-7 
96E4 DA B9 .WOR 47578  ;F-7 
96E6 E7 CA .WOR 50407 ;F#-7 
96E8 9C DO „WOR 53404 ;6-7 
96EA 04 DD .WOR 56580 ;6#-7 
96EC 28 EA .WOR 59944 ;A-7 
96EE 14 FB .WOR 63508 ;A#-7 


; 
i 
;POINTERTABELLE FUER 3 STIMMEN: 


III III III 
‘ 


96F0O 00 07 OE POITAB .BYT 0,7,14 


mon ne m 


;DEFINITION EINIGER SPEICHER: 


HIHI III 
’ 


‘ 
00A4 T1ADR = $A4 
96F3 00 TIRVS «BYT O 
96F4 00 rıY2 .BYT 0 
96F5 00 TIYR .BYT 0 
0061 TICP = $61 
96F6 00 TICH .BYT O 


96F7 00 00 00 TIBUF .BYT 0,0,0,0,0,0,0,0 
96FF 00 00 00 TICHAD .BYT 0,0,0,0,0,0,0,0 
9707 00 TILEN  .BYT O 


ıYıYı ’ 


enn 
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9708 
970B 
970E 
9711 
9714 
9716 
9718 
971A 


97IC 
971F 
9722 
9725 
9728 


972B 
972D 
9730 
9733 
9734 
9736 


9739 
973C 
973E 
9740 


9742 
9744 
9746 
9749 


974C 
97LE 
9750 
9752 
9755 


9758 
975A 
975C 
975F 


A5 
A6 
85 
86 


20 
20 
8D 
8E 
8c 


A9 
8D 
20 
8A 


8D 


AO 
B1 


8C 


c9 
DO 
A9 
8D 
4c 


c9 
DO 
0E 
4c 


67 
9E 
A3 
07 
22 
23 
A& 
A5 


FF 
42 
43 
40 


00 
F3 
Fl 


01 
FF 


00 
A& 
F6 
F5 


12 
08 
80 
F3 
28 


92 
06 
F3 
28 


7C 
AD 
B6 


AE 
7F 
C6 
c6 
c6 


96 
B7 


96 


c6 


96 
96 


96 


98 


96 
98 


III 
‘ 


.%r 


“r 


’ 
;* BEFEHL: TEXT ** 


.%r 


v 
’ 
‚ 
T 


EXT 


=. 


TIILL 
TILPO 


. 
’ 


;AUF RVS 


’ 


# 
T1L2 


JSR 
JSR 
JSR 
STA 


LDX 
STA 
STX 


JSR 
JSR 
STA 
STX 
STY 


LDA 
STA 
JSR 
TXA 
AND 
STA 


LDA 
CMP 
BCS 
LDA 


LDY 
LDA 
STA 
sTY 


ar 


KIT a a 


STFLG ;MODUSFLAGS HOLEN 
FRMEVL ;AUSDRUCK BEARBEITEN 
FRESTR 

TILEN ;STRINGLAENGE 

$22 

$23 

TIADR 

T1ADR+1 ;STRINGADRESSE 


CHKCOM ;AUF KOMMA TESTEN 
TESCOR ;KOORDINATEN HOLEN 
x2L 

x2H 

Y2 ;SPEICHERN 


#0 
TIRVS  ;RVS-FLAG LOESCHEN 
CHKGET ;MODUS->X 


#1 
TICHAD ;UND MERKEN 


Y2 ;Y-KOORDINATE 

#7 

TIILL  ;>=7 

#8 ;KORREKTUR BEI ZU KLEIN 
#0 ;POINTER AUF STRING 
(TIADR),Y ;ZEICHEN HOLEN 

TICH ;SICHERN 

TIYR ;POINTER SICHERN 


ON/OFF TESTEN: 


CMP 
BNE 
LDA 
STA 
JMP 


CMP 
BNE 
ASL 
JMP 


#812 ;RVS ON? 

TIL2 ;NEIN > 

#380 

TIRVS ;RVS-FLAG SETZEN 
TNXTCH ;NAECHSTES ZEICHEN 


#592 ; RVS OFF? 
T1L3 ; NEIN => 
TIRVS ;RVS-FLAG LOESCHEN 
TNXTCH ;NAECHSTES ZEICHEN 


621 


622 


9762 
9764 


c9 
DO 


FF 
05 


9766 A9 DE 


9768 


976B 
976D 
976F 
9772 
9774 
9777 
9779 
977A 
9770 
977F 


9782 
9785 
9788 
978A 
978D 
978F 
9791 
9793 
9795 
9797 
9799 
9798 
9790 
979F 
97M 


97A3 
97A4 
97A6 
97A7 
9749 


97AB 
97AD 
9TAF 
9782 
9783 


9785 
9786 
9788 


8D 


29 
DO 
AD 
29 


29 
4A 


29 
8D 


AD 


AO 
AE 


78 
AS 
48 
29 
85 


AO 
B1 
99 
88 
10 


68 
85 
58 


F6 


20 
13 
F6 
BF 
F6 


F6 
7F 
F6 


F3 


61 


FB 
01 


07 
61 
F7 


F8 


01 


96 


96 


96 


96 


96 
96 


96 


96 


CMP 
BNE 
LDA 
STA 
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#sFF  ;P1? 

TIL3A  ;NEIN 

#222 _ ;DURCH ANDEREN CODE ERSETZEN 
TICH 


;ASCII-CODE IN BILDSCHIRMCODE UMWANDLEN: 


‘ 
TIL3A 


‘ 
TIL4 


TIL4A 


T1L5 


AND 
BNE 
LDA 
AND 
STA 
AND 
LSR 
ORA 
AND 
STA 


LDA 
ORA 
LDY 
LDX 
CPX 
BEQ 
LDY 
STA 
STY 
ASL 
ROL 
ASL 
ROL 
ASL 
ROL 


SEI 
LDA 
PHA 
AND 
STA 


LDY 
LDA 
STA 
DEY 
BPL 


PLA 
STA 
CLI 


#820 
TIL4 
TICH 
HSBF 
TICH 
#880 
A 

TICH 
HETF 
TICH 


TICH 

TIRVS ;RVS-FLAG BERUECKSICHTIGEN 
#S1A  ;8D0 / 3 

TICHAD ;MODUS 

#0 

TIL4A 

#81B 

TICP ;ADRESSE LOW-BYTE 
TICP+1 ;ADRESSE HIGH-BYTE 
TICP 

TICP+1 

TICP 

TICP+1 

TICP 

TICP+1 ;ADRESSE*8 


#SFB 
1 ;ROM AUS 


#7 
(TICP),Y 
TIBUF,Y ;ZEICHENMATRIX->BUFFER 


T1L5 


1 ;ROM AN 
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;ZEICHENMATRIX NACH GRAPHIK: 


‘ 


9789 AO 08 LDY #8 ;SPALTENZAEHLER 

97BB A2 07 T1LP1 LDX #7 ;ZEILENZAEHLER 

97BD BD F7 96 TILP2 LDA TIBUF,X ;MATRIX AUS BUFFER 

97C0 OA ASL A ;BIT HERAUSSCHIEBEN 

97C1 9D F7 96 STA TIBUF,X ;REST WIEDER ZURUECK 
97C4 08 PHP ;BIT MERKEN 

97C5 8E F4 96 STX TIY2 ;ZEILENZAEHLER MERKEN 
97C8 A9 07 LDA #7 

97CA 38 SEC 

97CB ED F4 96 sBc T1Y2 

97CE 8D F4 96 STA T1Y2 ;7-ZEILE 

9701 AD 40 C6 LDA Y2 

9704 38 SEC 

9705 ED F4 96 sBc TiY2 

9708 8D F4 96 STA TiY2 ;Y-(7-ZEILE) = Y+ZEILE-7 
970B 28 PLP ;BIT 

97D0C 90 14 BCC TIL6 ;NICHT GESETZT->KEIN PUNKT 
97DE 98 TYA 

97DF 48 PHA 

97EO 8A TXA 

97E1 48 PHA ;ZEILEN-/SPALTENZAEHLER MERKEN 
97E2 AE 43 C6 LDX X2H 

97E5 AD 42 C6 LDA X2L 

97EB AC FA 96 LDY T1Y2 ;KOORDINATEN HOLEN 

97EB 20 47 80 JSR PLOT. ;PUNKT SETZEN 

97EE 68 PLA 

Y7EF AA TAX 

97FO 68 PLA 

97F1 AB TAY ;ZAEHLER WIEDERHOLEN 
97F2 CA TIL6 DEX 

97F3 10 C8 BPL TILP2 ;NAECHSTE ZEILE 

97F5 EE 42 C6 INC  xX2L 

97F8 DO 03 BNE TIL? 

97FA EE 43 C6 INC xX2H ;X-KOORDINATE INCREMIEREN 


‘ 
97FD AS 02 T1L7 LDA GFLAG 


97FF 4A LSR A 

9800 AE 42 C6 LDX X2L 

9803 AD 43 C6 LDA X2H 

9806 BO 14 BCS TILY ;LGR 
9808 24 02 BIT GFLAG 


980A 30 08 BMI T1L10  ;MC 
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;AUF BILDSCHIRMRAENDER TESTEN: 


980C EO 40 CPX #<320 
980E E9 01 SBC #>320 
9810 90 10 BCC TIL8 

9812 BO 20 BCS TIEXIT 


9814 EO AO T1L10 CPX #<160 


9816 E9 00 sBc #>160 
9818 90 08 BCC TIL8 
981A BO 18 BCS TIEXIT 


’ 
98IC DO 16 T1L9 BNE TIEXIT 


981E EO 50 CPX #<80 
9820 BO 12 BCS TIEXIT 
’ 
‚ 
9822 88 T1L8 DEY 
9823 FO 03 BEQ TNXTCH ;NAECHSTE SPALTE 
9825 4C BB 97 JMP TILP1 


; 
;NAECHSTES ZEICHEN: 


9828 AC F5 96 TNXTCH LDY TIYR 


982B C8 INY 

982C CC 07 97 CPY TILEN 

982F FO 03 BEQ TIEXIT ;FERTIG 
9831 4C 44 97 JMP TILPO 


9834 4C C4 7F TIEXIT JMP PLTVAR ;TEST? 


nen. 


WB a a a a er 


nn nenn 


** ** 
** BEFEHL: CIRCLE ** 
“* ** 
Urin 
‘ 
; 
C65E CMODE = $I+SAD 
(668 CXc = $B+SAD 
C66A cYc = $D+SAD 
(665 CXG = $8+SAD 
C660 CYG = $3+SAD 
(661 cW1 = $4+SAD 


(663 cw2 = $6+SAD 
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9837 20 67 7C CIRC JSR STFLG ;HOLE MODI 

983A 20 79 00 JSR CHRGOT 

9830 C9 2C cmp #0," ;KOMMA? 

Y985F 08 CIRCO PHP 

9840 A9 02 LDA #2 ;2 FUER GENAUIGKEIT ALS VORGABE 
9842 85 OF STA HKFLGI1 ;FLAG LOESCHEN 

9844 28 PLP ;KOMMA? 

9845 FO 06 BEQ CIRCI ;JA->KEIN SCHRITTPARAMETER 

9847 20 9E B7 JSR GETBYT ;SCHRITTWEITE->X 

Y84A BA TXA ;SCHRITTWEITE PRO BERECHNUNG IN GRAD 
984B FO F2 BEQ CIRCO ;=0 DANN 2 (NORMAL) 


;MITTELPUNKTSKOORDINATEN HOLEN: 


Y984D 48 CIRCI PHA ;SCHRITTWEITE MERKEN 
984E 20 FD AE JSR CHKCOM ;AUF KOMMA TESTEN 
9851 20 FF 7F JSR TESCOR ;MITTELPUNKTSKOORDINATEN 
9854 8D 42 C6 STA X2L 
9857 8D 68 C6 STA CXC 
985A BE 43 C6 STX  X2H 
985D BE 69 C6 STX  CXC+1 
9860 8C 40 C6 sm y2 
9863 8C 6A C6 STY cCYc ;MITTELPUNKTSKOORDINATEN 
’ 
sX/Y-RADIUS HOLEN: 
’ 
9866 20 FD AE JSR CHKCOM ;AUF KOMMA TESTEN 
9869 A9 00 LDA #0 
986B 8D 67 C6 STA $A+SAD 
986E 8D 5D C6 STA $0+SAD 
9871 20 FF 7F JSR TESCOR ;X/Y-RADIUS HOLEN 
9874 8D 65 C6 STA CXG 
9877 BE 66 C6 STX CXG+1 
987A 8C 60 C6 STY CYG sX/Y-RADIUS 


START- UND ENDWINKEL HOLEN: 


9870 A9 00 LDA #0 
987F 8D 61 C6 STA CW1 
9882 8D 62 C6 STA CWi+1 ;FEHLPARAMETER STARTWINKEL 
9885 A9Y 68 LDA #<360 
9887 AO 01 LDY #>360 
9889 8D 65 C6 STA CW2 
988C 8C 64 C6 STY cwe+l ;FEHLPARAMETER ENDWINKEL 
’ 
988F 20 79 00 JSR CHRGOT ;LETZTES ZEICHEN HOLEN 


9892 FO 12 BEQ CL2 ;KEINE PARAMETER MEHR 


626 


9894 
9897 
Y89A 
989D 
Y8AO 
Y8A3 


98A6 
98A9 
YBAC 
YBAE 
Y8B0 
Y8B2 


98B5 
Y98B8 
Y8BB 
Y8BE 
98C1 
98C3 
98C5 
98C8 
Y8CA 
Y8CD 
YECF 


9801 

9802 
98D4 
98D7 
Y8DA 
Y8DD 


20 
8C 
8D 
20 
8C 
8D 


AC 
AD 
co 
E9 
90 
4c 


AC 
AD 
cc 
ED 
BO 
A9 
8D 
co 
AD 
E9 
BO 


68 
85 
20 
20 
20 
4c 


91 
61 
62 
91 
63 


63 
64 
61 
62 
05 
FF 
5D 
69 


01 
E1 


AE 
D4 
EO 
F7 
c4 


9A 
c6 
c6 
9A 


c6 


c6 
c6 


c6 


c6 


98 
7C 
7F 


- 


JSR 
STY 
STA 
JSR 
STY 
STA 


’ 


;WINKELWERTE 


. 
’ 


cL2 LDY 
LDA 
cPY 
SBC 
BCC 
CL4 JMP 


’ 

cL3 LDY 
LDA 
cPY 
SBC 
BCS 
LDA 
STA 

CLAW cPY 
LDA 
SBC 
BCS 


sonen 


PLA 
STA 
JSR 
JSR 
JSR 
JMP 


nenn 


GETGRA 
cw1 
CW1+1 
GETGRA 
CW2 
CW2+1 
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;STARTWINKEL 


;ENDWINKEL 


UEBERPRUEFEN: 


cW1 
CW1+1 
#<360 
#>360 
CL3 
QERR 


cw2 
CW2+1 
CcW1 
CW1+1 
CLQW 
HSFF 
$0+SAD 
#<361 
CW2+1 
#>361 
CL4 


HAUPTVERTEILER: 


SHP 
TAZ 
CNEXTS 
TZA 
PLTVAR 


;ENDWINKEL >= STARTWINKEL 


;FLAG FUER ENDWINKEL < STARTWINKEL 


;SCHRITTWEITE 


;ADRESSE HOLEN 
;ELLIPSE ZEICHNEN 
;ADRESSE RETTEN 
;TEST? 
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Y98EO 
Y98E3 
Y98E4 
Y8E6 
98E7 
98EA 
YBEC 
Y8ED 
9B8EE 


Y8Er 
Y8FO 
Y8F1 
98F3 


98F5 
Y8F8 
98F9 
YBFC 
Y8FD 
YBFE 
Y8FF 
9901 


9903 
9906 


9909 
Y9OC 


AD 61 C6 


18 
69 
AA 
AD 
69 
4A 
8A 
6A 


38 
AA 
E9 
BO 


AD 
4A 
AD 
6A 
38 
AB 
E9 
BO 


B9 


BD 
8D 


5A 


62 
00 


62 


61 


AB 
40 


AB 
56 


c6 


c6 


9A 
c6 


9A 
c6 


;ELLIPSE ZEICHNEN: 


;NACH DER FORMEL: 
»X = XR*SINCW) + MX 
Y = YR*SINCW) + MY 
’ 
;WOBEI: 

; X, Y: KOORDINATEN DES KREISPUNKTES 
SXR,YR= X,Y-RADIUS 

;MX,MY: MITTELPUNKTKOORDINATEN 

W: AKTUELLER KREISWINKEL 


‘ 
’ 
’ 


;BERECHNE SINCW1), COSCW1): 
;NACH COSCW1) = SINCW1+90) 
’ 
CNEXT5S LDA CW1 
CLC 
ADC #90 
TAX 
LDA CWi+1 
ADC #0 ;W1+90 BERECHNEN 
LSR A 
TXA 
ROR A ;/2 FUER TABELLE 


WERT AUF 0-89 BRINGEN: 


SEC 
CSUB1 TAX 

sBc #90 ;‚>=90? 

BCS CSUBI ;JA => 90 ABZIEHEN 


LDA CW1+1 

LSR A 

LDA CW1 

ROR A 

SEC 
CSUB TAY 

sBc #90 »>=90? 

BCS CSUB ;JA => 90 ABZIEHEN 
: 
;WERTE AUS TABELLE HOLEN: 


’ 
LDA CSTAB,Y ;SINCW1) (O<=SINCWI)<=1) 
STA Y2 ;NACH Y2 


LDA CSTAB,X ;SIN(W1+90) 
STA C1 ;NACH 8-BIT-FAKTOR 


627 


628 


990F AD 60 C6 


9912 AO 
9914 8D 
9917 8C 


991A 18 
991B 08 
991C A9 
991E 8D 
9921 8D 
9924 8D 


9927 A2 
9929 DE 
992C 2E 
992F 2E 


9932 0E 
9935 90 
9937 18 
9938 AD 
993B 6D 
993E 8D 
9941 AD 
9944 6D 
9947 8D 
994A AD 
994D 69 
994F 8D 


9952 CA 
9953 DO 
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LDA CYG ;Y-RADIUS 
00 LDY #0 ;HIGH-BYTE 
58 C6 STA C3 ;NACH 16-BIT-FAKTOR 
59 Cc6 STY C4 
; 
; 
;MULTIPLIKATION: 
‘ 
;8-BIT-WERT * 16-BIT-WERT -> 24-BIT-WERT 
; c1 * 03/04 -> C2/X2L/X2H 
’ 
;DABEI GILT: O0 <= C1 <= 1 
;UND DAMIT HAT DAS ERGEBNIS 
;8 NACHKOMMABITS (IN C2), 
;DIE VERNACHLAESSIGT WERDEN KOENNEN 
® 
; 
cLC ;FLAG FUER ERSTE MULTIPLIKATION 
CMUL PHP ;FLAG MERKEN 
00 LDA #0 
42 C6 STA X2L 
43 C6 STA X2H 
57 C6 STA C2 ;ERGEBNISSPEICHER=O 
’ 
08 LDX #8 ;8 DURCHLAEUFE (FUER JEDES BIT) 
57C6CMUL17 ASL C2 
42.06 ROL X2L ;ERGEBNISSPEICHER EINE DUAL- 
43 C6 ROL X2H ;STELLE WEITERSCHIEBEN 
: 
56 C6 ASL C1 ;EIN BIT AUS FAKTOR SCHIEBEN 
1B BCC CMUL16 ;FALLS O=>KEINE ADDITION 
cLC ;16-BIT-FAKTOR ZU ERGEBNIS ADDIEREN: 
57 C6 LDA C2 
58 C6 ADC C3 
57 c6 STA cC2 ;LOW-BYTE 
42.06 LDA X2L 
59 c6 ADC CA 
42.06 STA X2L ;MID-BYTE 
43 c6 LDA X2H 
00 ADC #0 
43 C6 STA X2H ;HIGH-BYTE 
‘ 
CMUL16 DEX ;BIT-ZAEHLER DECREMIEREN 
D4 BNE CMUL17 ;NAECHSTES BIT 
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;MULTIPLIKATION ZUENDE 


ZWEITE MULTIPLIKATION VORBEREITEN: 


9955 28 PLP ;FLAG 
9956 BO 23 BCS CMUL1 ;BEREITS 2. DURCHLAUF 

i 
9958 AD 40 C6 LDA Y2 
Y95B 8D 56 C6 STA cC1 ;SINCW1) NACH 8-BIT-FAKTOR 
995E AD 42 C6 LDA X2L ;ERSTES BYTE VOR DEM KOMMA 
9961 8D 40 C6 STA Y2 ;NACH Y2 
9964 AD 65 C6 LDA CXG 
9967 AC 66 C6 LDY CXG+1 
996A 8D 58 C6 STA C3 
996D 8C 59 C6 STY CA ;X-RADIUS NACH 16-BIT-FAKTOR 
9970 AC 43 C6 LDY X2H ;ZWEITES BYTE VOR DEM KOMMA>0? 
9973 DO 03 BNE CL101 ;JA->FERTIG, DA WERT ZU HOCH 
9975 38 SEC ;FLAG FUER 2. DURCHLAUF 
9976 BO A3 BCS CMUL ;UNBEDINGT Z. 2. MULT. 


9978 4C 89 9A CL101 JMP CEXIT 


‘ 

;MOMENTANE VARIABLENBELEGUNG: 

‚ 

;X2L: XR*SINCWI) //LOW-BYTE 

;X2H: XR*SINCW1) //HIGH-BYTE 

;Y2 : YR*COS(W1) 

, 

;GRADZAHL TESTEN: 
;(MITTELPUNKTKOORDINATEN BEARBEITEN) 


997B AC 61 C6 CMULI LDY CW1 ;WI=LAUFENDE GRADZAHL 

997E AD 62 C6 LDA CWwi+1 

9981 CO 5A cPY #90 

9983 E9 00 sBc #0 

9985 90 28 BCC CNEGY ;W1 < 90 => OBERE KREISHAELFTE 
9987 AD 62 C6 LDA CWwi+1 

998A CO OE CPY #<270 

998C E9 01 sBC #>270 


998E BO IF BCS CNEGY ;W1 >= 270 => OBERE KREISHAELFTE 
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9990 
9993 
9994 
9997 
Y99A 
999C 


999D 
Y99F 
99AO 
99A1 
99A3 
99AS 
99A7 


99A9 
99AB 
99AD 


99YAF 
Y9BO 
99B3 
99B6 
9989 


Y9BB 
9IBE 
99CO 
99C3 
99C5 


99c7 
99c8 
Y9CB 
YICE 
9901 
9902 
9905 
99D8 
99DB 


AD 6A C6 


18 
6D 
8D 
BO 
48 


A5 
4A 
68 
90 
c9 
90 
BO 


c9 
90 
BO 


38 
AD 


8D 
90 


AD 
DO 
AD 


BO 


AD 
6D 
8D 
A8 
AD 


8D 
BO 


40 
40 
DC 


02 


6A 
40 
40 


62 
3F 
61 
B4 
38 


42 
68 
42 


43 
69 
43 
DO 


c6 
c6 


c6 
c6 


C6 
c6 
c6 
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;Y-MITTELPUNKTKOORDINATE ZUADDIEREN: 
;CFUER UNTERE KREISHAELFTE) 


LDA CYC 

CLC 

ADC Y2 

STA Y2 ;Yc+Y2->Y2 
BCS CL101 ;ZzU HOCH 
PHA 


LDA GFLAG 

LSR A 

PLA 

BCC CI4 ;->HGR/MC 

CMP #50 ;LGR-TEST 

BCC CRDYY  ;Y<50 -> OK. 
BCS CL101 ;Y>=50 -> ENDE 


C14 CMP #200 ;HGR/MC 
BCC CRDYY  ;Y<200 -> OK. 
cL102 BCS CL101 ;Y>=200 -> ENDE 


;KOORD. V. Y-MITTELP.KOORD. ABZIEHEN: 
;CFUER UNTERE KREISHAELFTE) 
E 
CNEGY SEC 

LDA CYc 

sBc Y2 

STA Y2 ;YC-Y2->Y2 
CLIOE BCC CL1IOI ;Y<O -> ENDE 


‘ 
;GRADZAHL TESTEN: 
’ 
CRDYY LDA CW1+1 ;LAUFENDE GRADZAHL 
BNE CNEGX ;>180 -> LINKE KREISHAELFTE 
LDA CW1 
CMP #180 
BCS CNEGX ;>180 -> LINKE KREISHAELFTE 


; 
;X-MITTELP.KOORD. ZUADDIEREN: 
;CFUER RECHTE KREISHAELFTE) 


’ 


CLC 

LDA X2L 

ADC CXC 

STA X2L 

TAY 

LDA xX2H 

ADC CXC+1 

STA X2H ;XC+X2->X2 
BCS CL102 ;ZU HOCH 
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99DD 48 PHA 

’ 
99DE A5 02 LDA GFLAG ;GRAPHIKFLAG 
99EO 10 14 BPL CI6 ;">HGR 
99E2 4A LSR A 
99E3 68 PLA 
99E4 BO 08 BCS CI5 ;->LGR 
99E6 CO AO CPY #<160  ;MC 
99EB EI 00 SBC #>160 
99EA 90 28 BCC CRDYX  ;X< 160 -> OK. 
99EC BO BF BCS CL102 ;X>=160 -> ENDE 
99EE CO 50 c15 CPY #<80 
99FO E9 00 sBc #>80 
99F2 90 20 BCC CRDYX  ;X< 80 -> OK. 
99F4 BO B7 BCS CL102 ;X>=80 -> ENDE 
99F6 68 C16 PLA 
99F7 CO 40 CPY #<320 
99F9 E9 01 sBC #>320 
99FB 90 17 BCC CRDYX  ;X< 320 -> OK. 
99FD BO AE BCS CL102 ;X>=320 -> ENDE 


X-KOORD. V. MITTELP.KOORD. ABZIEHEN: 
(FUER LINKE KREISHAELFTE) 


Y9FF AD 68 C6 CNEGX LDA CXC 


Y9A02 38 SEC 

9A03 ED 42 C6 SBC X2L 

9A06 8D 42 C6 STA X2L 

9A09 AD 69 C6 LDA CXC+1 

9AOC ED 43 C6 SBC X2H 

9AOF 8D 43 C6 STA X2H ;XC-X2->X2 

9A12 90 A5 BCC CL103 ;X<O -> ENDE 
‘ 


;ZEICHNEN: 


9A14 AD 42 C6 CRDYX LDA X2L 


9A17 AE 43 C6 LDX xX2H 

9A1A AC 40 C6 LDY Y2 ;KOORDINATEN -> REGISTER 
9A1D 2C 67 C6 BIT $A+SAD ;ERSTFLAG 

9A2O 10 09 BPL CMOVE ;ERSTER ERRECHNETER PUNKT 
9A22 20 SE 80 JSR LINE. ;LINIE VOM LETZTEN PUNKT 
9A25 38 SEC 

9A26 BO OB BCS CCONT ;UNBEDINGT WEITER 


’ 
9A28 4C EO 98 CNEXT JMP CNEXTS ;NAECHSTEN PUNKT BERECHNEN 
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Y9A2B 
YA2E 
YA3O 


9A33 
9A34 
9A37 
9A39 
YASC 
YA3D 
YA4LO 
9AL2 


9A4S 
YA4B 


YALA 
YALC 
YALE 
YASO 
9A52 
9A55 
YAS8 
YASA 
YASD 
YASE 
YA61 
YA63 


9A66 
9A69 
YA6A 
YASD 
YA6F 
9A7O 


9A72 
9A7& 
9A76 
9A78 


20 
A9 
8D 


18 
AD 
65 
8D 
A8 
AD 
69 
8D 


10 


co 
E9 
90 
A9 


AD 
E9 
8D 
A8 
AD 
E9 


cc 


ED 
FO 
68 
90 


A5 
49 
85 
10 


BO 
FF 
67 


61 
AE 
61 


62 
00 
62 


5D 
IC 


69 
01 
D8 
00 
5D 
61 


61 
62 
01 
62 
63 


64 
1B 


B6 


OF 
FF 
OF 
OF 


7F 


c6 


c6 


c6 


c6 


c6 


c6 


c6 


c6 


c6 


;GRAPHIKCURSOR AUF ERSTEN PUNKT: 


’ 
CMOVE JSR SETCUR ;SETZE CURSOR 
LDA #$FF 
STA $A+SAD ;ERST-FLAG LOESCHEN 


non. 


;WINKEL ERHOEHEN: 
’ 
CCONT cLC 
LDA CW1 
ADC SHP ;WINKELABSTAND 
STA CWI1 ;ZU STARTWINKEL ADDIEREN 
TAY 
LDA CW1+1 
ADC #0 
STA CW1+1 ;HIGH-BYTE 


BIT $0+SAD ;FLAG 
BPL CLQ1 
; 
;ENDWINKEL WAR KLEINER ALS STARTWINKEL: 


CPY #<361 
SBC #>361 ;LFD. WINKEL > 360? 
BCC CNEXT  ;NEIN->WEITER 


LDA #0 ;JA->360 ABZIEHEN 
STA $0+SAD ;FLAG LOESCHEN 
LDA CWi ;c=1! 
SBC #<360 
STA CW1 
TAY 
LDA CW1+1 
SBC #>360 
STA CWi+1 ;W1-360->W1 
’ 
cLQ1 cPY CW2 
PHP ;ERGEBNIS FUER LOW-BYTES MERKEN 
SBC CW2+1 ;-ENDWINKEL 


BEQ CNEXTQ ;HIGH-BYTES GLEICH 
PLA 
BCC CNEXT ;NOCH NICHT FERTIG 


‘ 

CPSEX LDA HKFLGI ;FAST FERTIG: 
EOR #$FF 
STA HKFLG1 ;FLAG FUER NOCH EINMAL 
BPL CEXIT ;FERTIG 
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9ATA 
9A7D 
YABO 
9A83 
9AB6 


9A89 


YABA 
YA8B 
YA8D 
YABF 


9A91 
9A94 
9A97 
9YAYA 
Y9A9C 
YAIE 
YAAO 
9AA2 
YAAL 
YAA6 
YAAB 
YAAA 


AD 
8D 
AD 


4c 


60 


FO 
90 
BO 


20 
20 
20 
A& 
AS 
DO 
co 
FO 
co 
DO 
AO 
60 


63 
61 
64 
62 
EO 


9B 
99 
E1 


FD 
8A 
F7 
14 
15 
OA 
FF 
04 
FE 
02 


c6 
c6 
c6 
98 


AE 
AD 
B7 


;DAS LETZTE MAL BIS ENDGRAD ZEICHNEN: 


‘ 


LDA 
STA 
LDA 
STA 
JMP 

;FERTIG: 

CEXIT  RTS 

5 

;FERTIG? 


‘ 

CNEXTQ PLP 
BEQ 
BCC 
BCS 


none 


cw2 
cW1 
CW2+1 
CW1+1 
CNEXT5 


CNEXT 
CNEXT 
CPSEX 


;GRADZAHL HOLEN: 


‘ 

GETGRA JSR 
JSR 
JSR 
LDY 
LDA 
BNE 
CPY 
BEQ 
CPY 
BNE 

GETGR2 LDY 

GETGRI RTS 


CHKCOM 
$ADBA 
$B7F7 
$14 
$15 
GETGRI 
#255 
GETGR2 
#254 
GETGRI 
#253 


;BIS ENDGRAD ZEICHNEN 


;BEI GROESSER FERTIG 


;LOW-BYTE PRUEFEN 


;NAECHSTER PUNKT 
;->FAST FERTIG 


;HOLE GRADZAHL 


;TABELLE ALLER 8-BIT-SINUSWERTE 
;GEORDNET NACH GRAD VON 0-89 


;IN 2-GRAD-ABSTAENDEN: 


III 
’ 


’ 

;DIE WERTE SIND ALS WERTE VON 

;o BIS 1 (EXCL.) ZU VERSTEHEN 
;(ANGEGEBEN WERDEN ALSO STETS DIE 


nenne Se 


ERSTEN 8 BIT HINTER DEM KOMMA; 
S. AUCH MULTIPLIKATION) 


633 


634 


9AAB 00 
9ABS 57 
YABF A4 
9AC9 DD 
9AD3 FB 
9ADD FB 
Y9AE7 DD 
YAF1 A4 
9AFB 57 


9805 20 
9B08 A5 
9BOA 38 
9BOB EI 
9BOD AA 
9BOE A5 
9B10 E9 
9812 A8 


9813 AY 
9815 85 
9817 85 
9B19 4C 


9BIC 20 
9B1F 20 


9822 A5 
9B24 48 
9B25 A5 
9827 48 


D4 
2D 


02 
2E 
00 


00 
0A 
B9 
75 


8A 
F7 


7A 


78 


12 
68 
B1 
E5 
FE 
F7 
D3 
96 
46 


AD 
B7 
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CSTAB .BYT $00,809,$12,$18,$23,$20,$35,$3E ,546,$4F 
.BYT $57,360,368,$70,378,87F,587,$8F ,896,$9D 
.BYT $A4,$AB,$B1,887,$BE,$C3,$C9 ,$CE,$D3,$D8 
.BYT $DD,$E1,$E5,$E9,$EC,$FO,$F3,$F5,$F7,$F9 
.BYT $FB,$FD,$FE,SFE,SFF,SFF,SFF,SFE,SFE,SFO 
.BYT $FB,$F9,$F7,$F5,$F3,$F0,$EC,$E9,$E5,$E1 
.BYT $DD,$08,$03,$CE,$C9,$C3,$BE,$B7,$B1,$AB 
.BYT $A4,390,396,$8F ,387,880,$78,$70,368,$60 
.BYT $57,$4F,$46,83E ,835,$2C0,$23,$18,$12,809 


won nenn 


III 
‘ 


zer x* 
;”* BEFEHL: MERGE ** 
ET x* 


‘ 
III 


sonen 


MERGE JSR GETPAR ;FILEPARAMETER HOLEN 
LDA VARSTA ;START DER VARIABLEN 


SEC 


sBc #2 ;VARIABLENSTART-2 = STARTADRESSE 


TAX 
LDA VARSTA+1 


sBc #0 ;HIGH-BYTE 


TAY 


LDA #0 ;LOAD- FLAG 

STA $0A ;LOAD-FLAG DES INTERPRETERS 

STA SECADR ;SECUNDAERADRESSE=O 

JMP $E175  ;LADEN/ZEIGER SETZEN/ZEILEN BINDEN 


III 


“%r 


** BEFEHL: 
“r 


® 
. 
‘ 
‘ 
‘ 
‘ 


DTASET 


ar 


ar 


ar 


III 


’ 
‚ 
‚ 
DATAST JSR 

JSR 


LDA 
PHA 
LDA 
PHA 


FRMNUM 
FACINT 


PRGZG 


PRGZG+1 


;NUMERISCHER WERT->FAC 
;NACH INTEGER ($14/$15) 


;PROGRAMMZEIGER RETTEN 
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9B28 20 A3 AB JSR GOTO ;SUCHT ZEILE (GOTO-BEFEHL) 
9B2B AS 7A LDA PRGZG 

9B2D A4 7B LDY PRGZG+1 

9B2F 20 27 AB JSR $A827 ;DATA-ZEIGER SETZEN 

9832 68 PLA 

9833 85 7B STA PRGZG+1 

9835 68 PLA 

9836 85 7A STA PRGZG ;ALTER PROGRAMMZEIGER 

9838 60 RTS 


WR a a a a a a a a 
a% ax 
%* 


BEFEHL: RENUM ** 


*» * 


* ar 


’ 
‘ 
’ 
‘ 
’ 
‘ 
Pe Nar Nez Ne ne 1272 177 
‘ 
. 
’ 
’ 
R 


9B39 20 EB B7 RENUM JSR GETCOR ;STARTNUMMER/DIFFERENZ HOLEN 
9B3C 8A TXA ;DIFFERENZ 

9B3D DO 03 BNE RENUM. ;0K. 

9B3F 4C 48 B2 TSCHAU MP QERR ;=0-> ILLEGAL QUANTITY 


’ 


9B42 86 97 RENUM. STX FLG ;DIFFERENZ (MAX. 255) 
9B44 A5 14 LDA XK 
9B46 48 PHA 
9847 A5 15 LDA XK+1 
9B49 48 PHA ;STARTNUMMER IN XK RETTEN 
; 
;PASS 1: 


;TESTEN, OB ZEILENNUMMERN ZU HOCH WERDEN 


‘ 


9BAA A9 80 LDA #%80 

9B4C 85 96 STA FLG2 ;1.PASSFLAG 

9B4E 20 BF 9C JSR PASSES ;PASSDURCHGANG 1 

9851 BO EC BCS TSCHAU ;ZEILENNUMMER ZU HOCH! 
9853 A9 C1 LDA #8C1 

9855 AO FE LDY #$FE ;RTI-ADRESSE IM ROM 
9857 80 18 03 STA IRQ+4 


9B5A 8C 19 03 STY IRQ+5 ;NMI-VEKTOR AUF RTI 
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»2.PASS: 

;ALTE/NEUE ZEILENNUMMERN 
;REFERENZTABELLE ERSTELLEN 
;UND ZEILEN UMNUMERIEREN 


‘ 


9B5D A9 00 LDA #0 

9B5F 85 96 STA FLG2 ;2.PASSFLAG 

9861 68 PLA 

9862 85 15 STA XK+1 

9864 68 PLA 

9865 85 14 STA XK ;STARTNUMMER WIEDERHOLEN 

9867 20 BF 9C JSR PASSES ;2. PASS DURCHFUEHREN 
;3.PASS: 


;GOTO/GOSUB ETC. AENDERN 


‘ 
9B6A 20 BE A6 JSR $A68E ;PROGRAMMZEIGER AUF BASIC-START 
9B6D 4C 9E 9C JMP ENDZ1 ;STARTEINSPRUNG 


sen 


;PASS 3 - SCHLEIFE: 
;AENDERUNG VON GOTO/GOSUB ETC. 


9B70 AO 03 RENS LDY # 


9872 B1 7A LDA (PRGZG),Y ;ZEILENNR.-LOW 
9874 48 PHA ;AUS PROGRAMM HOLEN 
9875 C8 INY ;UND 
9876 B1 7A LDA (PRGZG),Y ;(HIGH) 
9878 48 PHA ;MERKEN 
9879 C8 INY 
9B7A 20 FB AB JSR $A8BFB ;Y ZU PROGRAMMZEIGER ADDIEREN 
’ 
9B7D A2 03 LDX #3 ;PUFFERPOINTER=3 
9B7F 86 OF STX $OF ;HOCHKOMMAFLAG LOESCHEN 
9B81 86 08 STX $08 ;REM-FLAG LOESCHEN 
‘ 
;ZEILENSCHLEIFE: 


RR 
. 


‘ 
9883 AO FF REN6 LDY #$FF ;Y ALS ZEIGER AUF ZEICHEN (OFFSET) 


. 
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;ZEICHENSCHLEIFE: 
PR aaE3 20205 2 25 22: 
; 
9885 C8 REN? INY ;NAECHSTES ZEICHEN IN PRG 
9886 EB INX ;NAECHSTES ZEICHEN IN PUFFER 
9887 B1 7A LDA (PRGZG),Y ;LAUFENDES BYTE 
9889 9D FC 01 STA $IFC,X ;IN PUFFER COPIEREN 
9B8C FO OD BEQ ENDZ2 ;=0 => ZEILENENDE 
i 
9BBE C9 22 CcMP_ #%22 ;ANFUEHRUNGSZEICHEN? 
9B90 DO OC BNE REN8.O ;NEIN 
; 
9892 AS OF LDA $OF ; HOCHKOMMAFLAG 
9B94 49 FF EOR #$FF ;UMDREHEN 
9896 85 OF STA $OF 
9B98 4C 85 9B JMP REN? ;NAECHSTES BYTE 


9B9B 4C 62 9C ENDZ2 JMP ENDZEI ;ZEILENENDE BEARBEITEN 


‘ 
9BIE 24 OF REN8.O BIT $0OF ;HOCHKOMMAFLAG 
9BAO 30 E3 BMI REN? ;BEREITS GESETZT! 
9BA2 24 08 BIT $08 ;REM- FLAG 
9BA4 30 DF BMI REN? ;BEREITS GESETZT! 
‘ 
9BA6 C9 BF CMP #$8F ;REM? 
9BAB DO 04 BNE REN8 ;NEIN 
9BAA 85 08 STA $%08 ;REM-FLAG SETZEN 
9BAC FO D7 BEQ REN? ;UNBEDINGT 


Ä 
;AUF BEFEHL MIT ZEILENNUMMER TESTEN: 


i 
9BAE 86 97 REN8 STX FLG ;PUFFERPOINTER RETTEN 
9BBO A2 04 LDX #4 
9BB2 DD BA 9C REN8.2 CMP RENDAT,X ;ZEILENNUMMERNBEFEHL? 
9BB5 FO 08 BEQ REN8.1 ;JA 
9BB7 CA DEX ;GANZE TABELLE TESTEN 
9BB8 10 F& BPL RENd.2 

‘ 
9BBA A6 97 LDX FLG ;PUFFERPOINTER WIEDERHOLEN 


9BBC 4C 85 9B JMP RENT ;NAECHSTES BYTE 
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9BBF 
9Bc2 
IBC4 
9BC6 
9BC8 
9BCA 
IBCC 
9BCE 
9BDO 
9BD2 


9BD4 
9BD7 
9BD9 
YBDB 
9BDD 


9BDF 
9BEO 
9BE2 
9BE3 
9BES 


9BE7 
12:13:} 
9BEA 
IBEC 
YBEE 
9BFO 


9BF2 
9BF4 
IBF6 
9BF8 
9BFA 
9BFB 
9BFD 
IBFF 


20 
A9 
A2 
85 


78 
A5 
48 
A9 
85 


38 
A5 
E5 
A5 
E5 
BO 


AO 
B1 
c5 
DO 
c8 
B1 
c5 
FO 


FB 


6B 
00 
D6 
AC 
AD 


01 


34 
01 


AC 
15 
15 


A8 


A9 


;BEFEHL MIT FOLGENDER 


;ZEILENNUMMER BEARBEITEN: 
ERRRERRETRERREREN 
’ 
RENd.1 JSR S$ABFB ;Y-REG. ZU PRGZG ADDIEREN 
RENd.4 INC PRGZG 
BNE REN8.5 
INC PRGZG+1 ;PROGRAMMZEIGER+1 
RENd.5 LDY #0 
LDA K(PRGZG),Y ;HOLE ZEICHEN AUS PROGRAMM 
CMP zuon 
BCC RENI1.  ;KEINE ZIFFER 
CMP #:" 
BCS RENII. ;KEINE ZIFFER 
: 
;ZEILENNUMMER AENDERN: 
‘ 
JSR $A96B ;ZEILENNR -> ADRESSFORMAT (XK) 
LDA #<TABTAB 
LDX #>TABTAB ;ADRESSE REFERENZTABELLE 
STA ADL 
STX ADH ;NACH ADL/ADH 
5 
sel 
LDA 1 
PHA 
LDA #334 ;RAM AUSWAEHLEN 
sta 1 
‘ 
;ZEILENNUMMER HINTER BEFEHL 
;IN REFERENZTABELLE SUCHEN: 
; 
REN9 SEC 
LDA ADL 
SBC USE ;USE=AKTUELLER POINTER AUF TABELLE 
LDA ADH ;ADRESSE-USE >= 0? 
SBC USE+1 ;=> ADRESSE >= USE? 
BCS RENI4 ;JA->FERTIG => NICHT GEFUNDEN 
‘ 
REN9.1 LDY #2 
LDA (ADL),Y ;ZEILENNUMMER IN TABELLE 
CMP XK ;MIT ZEILENNUMMER VERGLEICHEN 
BNE REN9.2 ;NICHT GLEICH->WEITER 
INY 
LDA CADL),Y ;HIGH 
CMP XK+l  ;MIT ALTER ZEILENNR. VERGL. 
BEQ RENIO ;GEFUNDEN->ERSETZEN 


- 
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9c01 
9c03 
9C04 
9C06 
9c08 
9COA 
9COC 
9COE 


9c10 
9c12 
9C14 


9C16 
9c18 
9C1A 
9ciB 
9cic 
9C1E 


9CIF 
9c20 
9c22 
9023 
925 
9c27 
9c29 
9C2B 
9c2D 
9C2E 
931 


9034 
9C36 
9c39 
9C3B 
9C5C 
9C5F 
9C40 


A5 
18 
69 
85 
AS 
69 
85 
90 


A2 
AO 
DO 


AO 
B1 


81 
AB 


68 
85 
58 


A2 
86 


A2 


20 
20 


A6 
B9 
FO 
E8 
9D 
c8 
DO 


AC 


04 
AC 
AD 
00 
AD 
D7 


F9 
FF 


AC 


01 
62 
OD 


63 
90 


DD 


97 
00 
07 


FC 


BC 


01 


01 


REN9I.2 LDA ADL 
CcLC 
ADC #4 
STA ADL ;INC TABELLENZAEHLER 
LDA ADH 
ADC #0 
STA ADH 
BCC RENY ;UNBEDINGT ->WEITERSUCHEN 
’ 
;ZEILENNUMMER NICHT GEFUNDEN: 
’ 
REN14 LDX #$F9 ;DEFAULT- 
LDY #$FF ;ZEILENNUMMER=63999 
BNE REN15 ;UNBEDINGT EINSETZEN 


’ 


;ZEILENNUMMER ERSETZEN: 


IR a a a 
‘ 


’ 
REN10 LDY #1 
LDA CADL),Y ;NEUE ZEILENNUMMER HIGH 


TAX ;AUS TABELLE 
DEY 

LDA CADL),Y ;LOW 

TAY ;NACH X/Y 


;INTEGER->ASCII UMRECHNEN: 


‚ 
REN15 PLA 
STA 1 ;ROM AN 
CLI 
STX 862 ;VORZEICHEN UEBERBRUECKEN: 
LDX #0 
STX $0D ; FLAG: NUMERISCH 
STY $63 ; ZEILENNUMMER 
LDX #890 ;VORZEICHEN: PLUS (FLAG) 
SEC 


JSR $BC49 ;ZEILENNR. (862/863) NACH FAC 
JSR $BDDD ;FAC NACH ASCII ($100 FF.) 


;UND NACH PUFFER UEBERTRAGEN: 


LDX FLG ;PUFFERPOINTER HOLEN 
REN11 LDA $100,Y ;ZEICHEN AUS ASCII-PUFFER 
BEQ REN12 ;FERTIG 
INX 
STA $1FC,X ;NACH ZEILENPUFFER UEBERTRAGEN 
INY 
BNE REN11 ;UNBEDINGT->NAECHSTES ZEICHEN 


-. 


639 
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942 86 97 REN12 STX FLG ;PUFFERPOINTER WIEDER RETTEN 


;SPEZIELLE ZEICHEN AKZEPTIEREN: 


‘ 
9C44 A2 00 RENII. LDX #0 


9C46 Al 7A LDA (PRGZG,X) ;LETZTES ZEICHEN HOLEN 

9C48 A6 97 LDX FLG ;PUFFERZEIGER HOLEN 

9C4A C9 2C cmp 4," ;KOMMA? 

9Cc4C FO OB BEQ RNd.4. ;F. ON... NAECHSTE ZEILENNR. 
9C4E C9 AB CMP #MINUS ;MINUS? 

9c50 FO 07 BEQ RNB.4. ;F. LIST...- (NICHT LIST-XXXX!) 
9c52 C9 20 cmp u“ ;LEERZEICHEN? 

954 FO 03 BEQ RN8.4. ;LEERZEICHEN NICHT IGNORIEREN 
9056 4C 83 9B JMP REN6 ;WEITER IM PROGRAMM 


;ZzEICHEN NACH PUFFER UEBERTRAGEN: 


959 E8 RNd.4. INX 

9C5A 86 97 STX FLG 

9c5c M FC 01 STA $1FC,X ;NACH PUFFER 

9C5F 4C C2 9B JMP REN8.4 ;NOCH EINMAL ZEILENNUMMER? 


none na 


;ZEILENENDE BEARBEITEN: 


IRRE 
‘ 


: 
9C62 20 FB AB ENDZEI JSR $A8FB ;Y-REG. ZU PRGZG ADDIEREN 
9C65 E8 INX 


9C66 BA TXA 
9C67 AB TAY ;PUFFERPOINTER IN Y 
‘ 
9C68 68 PLA ;AKT. ZEILENNR.-HIGH 
9069 85 15 STA XK+1 
YC6B 68 PLA ; LOW 
9c6c 85 14 STA XK ;NACH XK 
‘ 
9C6E AD 02 03 LDA EINGAB 
9c71 80 86 C6 STA ZAHL 
9Cc74 AD 03 03 LDA EINGAB+1 ;BASIC-VEKTOR FUER 
9c77 80 87 C6 STA ZAHL+1 ;EINGABEWARTESCHLEIFE RETTEN 
9C7A A9 87 LDA #<RENI3 
9C7C 80 02 03 STA EINGAB 
9C7F A9 9C LDA #>REN13 ;VEKTOR AUF WEITER 
9c81 80 03 03 STA EINGAB+1 


i 
;ALTE BASIC-ZEILE DURCH ZEILE IM 
;PUFFER ERSETZEN: 


® 


9C84 4C A2 AL JMP $A4A2 ;ERSETZEN DER ALTEN BASIC-ZEILE 
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‘ 
;WEITER: 


9Cc87 AD 87 C6 REN13 LDA ZAHL+1 


9C8A 8D 03 03 STA EINGAB+1 
9C8D AD 86 C6 LDA ZAHL 
9C90 80 02 03 STA EINGAB ;ALTEN VEKTOR WIEDERHOLEN 
’ 
9C93 20 BC AB JSR $A8BC ;SETZT PRGZG AUF START D. BEARB. ZEILE 
9C96 AO 05 LDY #5 ‚5 
9C98 20 FB AB JSR $A8FB ;ZU PRGZG ADDIEREN 
9Cc9B 20 3B A9Y JSR $AY3B ;ZEILENENDE SUCHEN 


9C9E AO 02 END21 LDY #2 


9CAO BI 7A LDA C(PRGZG),Y ;PROGRAMMENDE? 
9cA2 FO 03 BEQ ENDZ3 ;JA->FERTIG 
9CA4 4C 70 98 JMP REN5 ;NAECHSTE ZEILE 
‘ 
;PROGRAMMENDE: 


i 
9CA7 A9 AE ENDZ3 LDA #<NEWBRK 


9CA9 AO 7B LDY #>NEWBRK 

9CcAB 8D 18 03 STA IRQ+4 

9CAE 8C 19 03 STY IRQ+H5 ;ALTER NMI-VEKTOR 
9CcB1 20 59 A6 JSR $A659  ;CLR-BEF. 

9CB4 20 33 A5 JSR $A533  ;ZEILEN BINDEN 
9CB7 4C 85 E3 JMP $E385  ;WARMSTART 


’ 


’ 
;TABELLE DER TOKENS FUER: 


;GOSUB/GOTO/THEN/RUN/LIST 
;(CBEFEHLE MIT ZEILENNUMMERN) 


’ 

9CBA 8D 89 A7 RENDAT .BYT $80,$89,$A7,$8A,$98B 
; 
5 
;UNTERROUTINE ZUR DURCHFUEHRUNG 
;DER ERSTEN ZWEI PASSES: 


III 
. 


F 
9CBF A9 00 PASSES LDA #<TABTAB 


9cc1 A2 D6 LDX #>TABTAB 

9cc3 85 FD STA USE 

9Cc5 86 FE STX USE+1 ;TABELLE DER ZEILENNUMMERN (RAM) 
9cc7 78 SEI 

9cc8 AS 01 LDA 1 

9CCA 48 PHA 

ICCB AY 34 LDA #834 ;RAM AUSWAEHLEN 


9ccD 85 01 STA 1 
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ICcF 
9CD1 
9CD3 
9CD5S 
9cD7 
9cD9 
9CDB 


9CDD 
I9CDE 
9CEO 
9CE2 
9CE3 
9CES 


9cE7 
9CE9 
9CEB 
9CED 
9CEE 
9CFO 


9CF2 
ICF4 
9CF5 
9CF7 


9CcF9 
ICFB 
9CFD 
ICFF 
9D00 
9002 
9D04 
9005 
9006 
9D08 
9DOA 
9DOC 


9DOE 
9010 
9012 
9014 
9016 
9018 
9D1A 
9D1B 
9DIC 
9D1E 


A5 
A6 
85 


AO 
B1 


c8 
B1 
91 
c8 


91 


A5 


BO 
48 
24 
30 


91 


A5 
91 


AO 
A5 
91 
18 
65 
85 


68 
91 
69 
85 
BO 


A5 
69 
85 
90 


B1 
AA 
88 
B1 
4c 


2B 
2C 
Sf 
60 
01 
Sf 
44 


SF 
FD 


Sf 
FD 


SF 


14 
Sf 


00 
14 
FD 


97 
14 


FD 
00 
15 
1D 


FD 
04 
FD 
02 
FE 
Sf 


Sf 
D3 9C 


PASS1 


RENU2 


REN4 


LDA 
LDX 
STA 
STX 
LDY 
LDA 
BEQ 


INY 
LDA 
STA 
INY 
LDA 
STA 


LDA 
CMP 
BCS 
PHA 
BIT 
BMI 


STA 
DEY 
LDA 
STA 


LDY 
LDA 
STA 
CcLC 
ADC 
STA 
INY 
PLA 
STA 
ADC 
STA 
BCS 


LDA 
ADC 
STA 
BCC 
INC 
LDA 
TAX 
DEY 
LDA 
JMP 
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BASSTA 
BASSTA+1 ;ZEIGER AUF BASICSTART 


$5F 
$60 
#501 


($5F), 


PASS2 


($5F), 
(USE), 


($5F), 
(USE), 


XK+1 
HSFA 
RENU3 


FLG2 
RENU2 


($5F), 


XK 


($5F), 


#0 
XK 


(USE), 


FLG 
XK 


(USE), 


#0 
XK+1 
RENU3 


USE 
#4 
USE 
REN4 
USE+1 


($5F), 


($5F), 


PASS1 


;NACH $5F/$60 


Y ;LINK-ADR.-HIGH 
;FERTIG (PROGRAMMENDE ) 


;Y=2 

Y ; ZEILENNUMMER - LOW 

Y ;ALS ALTE NR. SPEICHERN 
;Y=3 

Y HIGH 

Y 


;NEUE HIGH 
MAX. 63999 
;FEHLER 


;PASS- FLAG 
;ZEILENNUMMER NUR TESTEN 


Y ;ZEILENNUMMER AENDERN 
;Y=2 
;NEUE LOW 

Y ;AENDERN (IM PROGRAMM) 
;Y=0 

Y ;NEUE IN TABELLE (LOW) 
;ZEILENNUMMER ERHOEHEN (LOW) 
;Y=1 

Y ;HIGH 


;HIGH-BYTE ERHOEHEN 
;ZEILENNUMMER ZU HOCH (C=1) 


;TABELLENADR. INC 


Y ;ADRESSE DER NAECHSTEN ZEILE 
;LOW 
;Y=0 

Y ;HIGH 
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;PROGRAMMENDE:: 


9021 AO 01 PASS2 LDY # 


9023 A9 FF LDA #$FF 
9025 91 FD STA (USE),Y ;ENDE-ZEICHEN: 2X$FF 
9027 c8 INY 
9028 91 FD STA (USE),Y ;NACH TABELLE 
9D2A 18 CLC ;OK-FLAG 
’ 
902B 68 RENU3 PLA 
902C 85 01 STA 1 ;ROM AUSWAEHLEN 
9D2E 58 CLI ;INTERRUPT EIN 
9D2F 60 RTS ;ZURUECK: ;C=0: OK // C=1: FEHLER 


une ne 


‘ 
KR a a a a a a 
‘ 


ze “r 
see BEFEHL: POS= ** 
.% r 


’ 
III a dr 
’ 


‚ 
‚ 
9030 20 9E B7 POSITI JSR GETBYT ;SPALTE HOLEN 


9033 EO 28 CPX #40 

9035 90 02 Bcc POS1 

9037 A2 27 LDX #39 ;KORREKTUR 
9039 86 D3 PoS1 STX $D3 ;CURSORSPALTE 
9D3B 20 FI B7 JSR CHKGET ;ZEILE HOLEN 
9D3E EO 19 cPx #25 

9040 90 02 BCC POS2 

9042 A2 18 LDX #24 ;KORREKTUR 


9D44 86 D6 POS2 STX $D6 ;ZEILE 
9046 4C 6C E5 JMP $E5S6C ;CURSOR SETZEN 


644 


Phadaiei id ind dnd 222 222 02.202.202.2 


.% “x 
‘ 


;* BEFEHL: KEY *%* 
ur x 


‘ 
III 


9049 20 9E B7 KEY JSR GETBYT 
9D4C CA DEX 
9D4D 8A TXA 
9D4E 29 07 AND #$07 
9050 OA ASL A 
9051 0A ASL A 
9052 DA ASL A 
9053 OA ASL A 
9054 48 PHA 
9055 20 FD AE JSR CHKCOM 
9058 20 9E AD JSR FRMEVL 
905B 20 A3 B6 JSR FRESTR 
905E 85 97 STA FLG 
9060 A2 10 LDX #16 
9062 86 AE STX  SHP 
9064 68 PLA 
9065 AA TAX 

‘ 

;STRING UEBERTRAGEN: 
9066 AD 00 LDY #0 
9068 B1 22 KEY1 LDA ($22),Y 
9D6A 9D BF Cc7 STA FUNKTI,X 
9D6D C& INY 
9D6E Ed INX 
9D6F C6 97 DEC FLG 
9071 DO 0B BNE KEY3 
9073 A9 AO LDA #$A0 
9075 9 8F C7 KEY2 STA FUNKTI,X 
9078 E8 INX 
9079 C6 AE DEC SHP 
9D7B DO F& BNE KEY2 
9D7D 60 RTS 
9D7E C6 AE KEY3 DEC SHP 
9D80 DO E6 BNE KEY1 
9082 60 KEY4 RTS 


mn. 
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;FUNKTIONSTASTE (1-8)->X 
;AUS 1-8 MACH 0-7 


; KORREKTUR 


;* 16 
;POINTER 


;AUF KOMMA TESTEN 
;STRINGPARAMETER (LAENGE->AKU) 
;STRINGVERWALTUNG 

;LAENGE 

MAX. 16 BUCHSTABEN 


;POINTER 


;HOLE STRINGBYTE 
;FUNKTION UEBERTRAGEN 


;REST MIT $AO AUFFUELLEN 
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IRRE 
‘ 


sur “%r 
;*® BEFEHL: DIRECTORY ** 
.r% “%r 
Denen 
’ 
; 
9083 A2 068 DIREKT LDX #808 ;GERAETEADRESSE 
9085 AO 00 LDY #0 ;SECUNDAERADRESSE 
9087 20 BA FF JSR $FFBA ;FILEPARAMETER SETZEN 
908A 20 F2 8E JSR SRCHFN ;FILENUMMER SETZEN 
9D8D A9 01 LDA #1 ;LAENGE 
9D8F A2 DB LDX #<DOLLAR 
9091 AO 90 LDY #>DOLLAR ;ADRESSE FUER FILENAME 
9093 20 BD FF JSR  SFFBD ;FILENAMENPARAMETER 
9096 20 C1 E1 JSR OPEN ;DATEI OEFFNEN 
9099 A6 B8 LDX FILENR ;FILENUMMER 
9098 20 1E E1 JSR CHKIN ;EINGABEGERAET SETZEN 
’ 
909E 20 12 E1 JSR BASIN ;ZEICHEN VON DISK 
9DA1 20 12 E1 JSR BASIN ;ERSTE 2 ZEICHEN AUSLASSEN 
IDA4 4C C4 9D MP DIRO 
; 
;HAUPTSCHLEIFE: 
; 
90A7 20 12 E1 DIRI JSR  BASIN 
90AA 85 FD STA USE 
9DAC 20 12 E1 JSR  BASIN 
9DAF A6 FD LDX USE ;HOLE SEKTORENZAHL->A/X 
9DB1 20 CD BD JSR INTOUT ;INTEGERZAHL IN A/X AUSGEBEN 
9084 A9 20 LDA #820 ;SPACE 
9DB6 20 OC E1 JSR BASOUT ;AUSGEBEN 
; 
9089 20 12 E1 DIR2 JSR BASIN ;ZEICHEN HOLEN 
9oBc FO 06 BEQ DIRO ;ZEILENENDE 
9DBE 20 0c EI JSR BASOUT ;AUSGEBEN 
9DC1 4C B9 90 MP DIR? ;NAECHSTES ZEICHEN 


; 
‚ 
9DC4 A9 OD DIRO LDA #80D ;CARRIAGE RETURN 


90C6 20 OC EI JSR BASOUT ;ZEICHEN IN A AUSGEBEN 

90c9 20 12 E1 JSR BASIN 

9Dcc 20 12 E1 JSR BASIN ;ERSTEN ZWEI BYTES UNNOETIG 
’ 

9DCF 20 Ei FF JSR CHKSTP ;PRUEFE AUF STOP-TASTE 

9DD2 FO 04 BEQ DIR3 ;BEI STOP -> ENDE 

90DA AS 90 LDA STATUS ;FEHLER ODER DATEI ENDE? 


9DD6 FO CF BEQ DIRI ‘WEITER 


- 
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;ENDE: 


‘ 
9DD8 4C 69 BE DIR3 MP GL2 ;CLRCHANNEL+CLOSE 


’ 
‘ 
‘ 


OPEN-FILENAME: 


‘ 
9DDB 24 DOLLAR ,ASc "gu 


. 
‘ 
SUR TERN SEEN 


we ar 
s® BEFEHL: PAINT ** 
.%r ar 
Zen 
4 
; 
9DDC 20 67 7C PAINT USR STFLG ;ZEICHENFLAG HOLEN 
9DDF 20 FF 7F JSR TESCOR ;KOORDINATEN HOLEN 
IDE2 48 PHA 
9DE3 A5 02 LDA GFLAG 
IDES 4A LSR A 
9DE6 BO OD BCS PAII ;LGR 
IDEB 68 PLA 
9DE9 20 AA 81 JSR HPOSN ;PUNKTADRESSE BERECHNEN 
IDEC 20 63 88 JSR GETES ;E5 BERECHNEN 
IDEF &D 15 C6 STA ES.ZW 
IDF2 4C F7 9M JMP PAI2 ;WEITER 
: 
9DF5 68 PAII PLA 
IDF& 60 RTS ;PAINT NICHT FUER LGR! 


’ 
9DF7 A9 00 PAI2 LDA #0 


90F9 85 58 STA STKPOI ;STACKPOINTER AUF NULL 

9DFB 80 91 C6 STA RUECK ;RUECKMELDEREGISTER AUF NULL 
‚ 

I9DFE 20 AA 9E JSR PUTSTK ;STARTPUNKT AUF STACK 
i 

9EO1 20 4C 9E JSR TESTE ;BEI X,Y PUNKT? 


9EOL 84 57 STY DO ; ZUSTAND MERKEN 
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;GROSSE SCHLEIFE (FELD AUSFUELLEN): 


III a a a 
’ 


;RAND SUCHEN 
9E06 


; 
9EO6 20 78 YE PAI3 JSR SAVREG ;PUNKTADRESSE MERKEN 


9E09 20 9A 9E JSR LINKS. ;%-1 

J9EOC 20 4C 9E JSR TESTE ;PUNKT BEI X-1,Y TESTEN 

JEOF CA 57 CPY DO ;RAND? 

9E11 FO F3 BEQ PAI3 ;JA!->ADRESSE ALS NEUE ADR. MERKEN 


’ 
;LINIE NACH RECHTS ZEICHNEN 


9E13 
9E13 20 89 9E PAIS JSR GETREG ;AKTUELLE ADRESSE HOLEN 
9E16 20 FA 86 JSR UNTEN ;Y+1 
9E19 20 FD 9E JSR TESTI ;TESTE PUNKT X,Y+1 
9EIC 20 35 87 JSR OBEN ;Y-1 
9EIF 20 FD 9E JSR TESTI ;TESTE PUNKT X,Y-1 
v 
9E22 20 18 82 JSR PLT ;PUNKT SETZEN 
9E25 4C 37 9E JMP PAI7 ;NAECHSTEN PUNKT 
‘ 
9E28 20 18 82 PAI6 JSR PLT ;PUNKT SETZEN 
9E2B 20 35 87 JSR OBEN ;Y-1 
JE2E 20 OA 9F JSR TEST2 
9E31 20 FA 86 JSR UNTEN ;Y+1 
9E34 20 OA 9F JSR TEST2 


‘ 
9E37 20 A2 9E PAI7 JSR RECHT. ;%+1 


9E3A 20 78 9E JSR SAVREG ;NAECHSTEN PUNKT RECHTS MERKEN 
9E3D 20 4C 9E JSR TESTE ;RAND? 
9E4O CA 57 CPY DO 
9E4L2 FO E4 BEQ PAI6 ;NEIN->WEITER ZEICHNEN 
; 
;JA: 
9E44 20 DA 9E JSR GETSTK ;ADRESSE VON STACK HOLEN 
9E47 90 BD BCC PAI3 ;AB DIESER ADRESSE WEITERZEICHNEN 


9EL9 4C CA 7F JMP PLTVAR ;FERTIG 
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;AUF PUNKT TESTEN: 


RR a a a 
. 


‘ 
JEAC 78 TESTE SEI 
9E4D AS 01 LDA 1 
YE4F 48 PHA 
9ES0 29 FC AND #SFC 
9E52 85 01 STA 1 ;ROM AUS 
; 
9E54 AO 00 LDY #0 
9ES6 AS AB LDA MSK ;MASKE HOLEN 
9E58 31 AC AND CADL),Y ;PUNKT HOLEN 
Y9ESA AD 08 LDY #8 
9ESC 4A TESTE2 LSR A 
9ESD BO 03 BCS TESTE3 
Y9ESF 88 DEY 
9E6O DO FA BNE TESTE2 
9E62 2A TESTE3 ROL A 
9E63 AB TAY 
9E64 AD 91 C6 LDA RUECK ;AUSSERHALB BILDSCHIRM? 
9E67 FO OA BEQ TESTEI ;NEIN! 
i 
9E69 AS 57 LDA DO 
Y9E6B 49 FF EOR #SFF 
JE6D AB TAY ;BILDSCHIRMRAND ALS BEGRENZUNG! 
JE6E A9 00 LDA #0 
9E7O 80 91 C6 STA RUECK ;RUECKMELDUNG LOESCHEN 
9E73 68 TESTEI PLA 
9E74 85 01 STA 1 
9E76 58 cLI ;ROM EIN 
9E77 60 RTS 


; 
’ 
;AKTUELLE PUNKTADRESSE SPEICHERN: 


IT 
’ 


‘ 
9E7& AS AC SAVREG LDA ADL 


Y9ETA 85 59 STA D2 
9ETC AS AD LDA ADH 
JETE 85 5A STA D3 
9EBO AS AB LDA MSK 
9E82 85 5B STA D4 
9EB4 AS 93 LDA E5 
9EB6 85 5C STA D5 


Y9EBE 60 RTS 


- 
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i 
;AKTUELLE PUNKTADRESSE HOLEN: 
Jens 


9E89 AS 59 GETREG LDA D2 


Y9ESB 85 AC STA ADL 
Y9EBD AS 5A LDA D3 

JEBF 85 AD STA ADH 
9E91 AS 5B LDA D4 

9E93 85 AB STA MSK 
9E9S A5 5C LDA D5 

9E97 85 93 STA ES 

9E99 60 RTS 


sen 


;GRAPHIKCURSOR LINKS+RECHTS: 
Dessassas 


’ 


JEYA A4 93 LINKS. LDY ES 


9E9C 20 B4 87 JSR LINKS 
JEIF 84 93 STY E5 
JEA1 60 RTS 


.. 


9EA2 A4 93 RECHT. LDY ES 


Y9EA4 20 80 87 JSR RECHTS 
9EA7 84 93 sTY 65 
9EA9 60 RTS 


’ 
i 
;AKTUELLE ADRESSE AUF STACK: 
Jesssnsals 


i 
JEAA A4 58 PUTSTK LDY STKPOI ;STACKPOINTER LADEN 


‘ 


JEAC 78 SEI 

9EAD A5 01 LDA 1 

JEAF 48 PHA 

9EBO 29 FC AND #$FC 
9EB2 85 01 STA 1 ;ROM AUS 
9EB4 AS AC LDA ADL 
9EB6 99 00 D6 STA STADL,Y 
9EB9 AS AD LDA ADH 
9EBB 99 00 D7 STA STADH,Y 
JEBE A5 AB LDA MSK 
9ECO 99 00 D8& STA STMSK,Y 
9EC3 A5 93 LDA E5 


9EC5 99 00 D9 STA STES,Y 


65 


YECE 
9EC9 
JECB 


YECC 
YECE 
9EDO 


9EDI 


Y9ED4 
9EDS 
9ED7 


9EDY 


JEDB 
YEDC 
JEDE 
YEDF 
YEEI 


YEE3 
YEE6 
YEE8 
YEEB 
YEED 
9EFO 
JEF2 
9EFS5 


9EF7 
YEFB 
JEFA 
JEFB 


JEFC 


68 
85 


E6 
FO 
60 


4c 


38 
c6 
FO 


A& 


78 
AS 
48 


85 
B9 
85 
B9 
85 
B9 
85 


85 
58 


60 


35 


58 
23 
58 


01 


01 


A& 
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PLA 
STA 1 
CLI ;ROM AN 


INC STKPOI ;STACKPOINTER + 1 
BEQ ERRO ;FEHLER 
RTS 


i 

ERRO JMP $A435  ;OUT OF MEMORY 
; 

; 

;AKTUELLE ADRESSE VON STACK: 
Faskalskaieheieiehsiehehsiaheielaheielaheeieinheiainhe) 


‘ 

GETSTK SEC ;FLAG FUER STACKENDE 
DEC STKPOI ;STACKPOINTER - 1 
BEQ RTS.. ;FERTIG 


LDY STKPOI ;STACKPOINTER LADEN 


-. 


SEI 

LDA 1 

PHA 

AND #$FC 

STA 1 ;ROM AUS 


-. 


LDA STADL,Y 
STA ADL 
LDA STADH,Y 
STA ADH 
LDA STMSK,Y 
STA MSK 
LDA STES,Y 
STA ES 


- 


PLA 

STA 1 

CLI ;ROM AN 

CcLC ;FLAG FUER OK. 


# 
RTS.. RTS 


nen 
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;ARBEITSUPRO 1 - TESTE MIT MERKEN: 


DR 2 2 2 2 2 202 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 271202027272 
e 


‚ 
JEFD 20 4C 9E TESTI JSR TESTE ;TESTE PUNKT 


9F0OO CA 57 cPY DO ;RAND? 

9F02 DO 03 BNE TES1 ;JA! 

9FO4 20 AA 9E JSR PUTSTK ;PUNKT AUF STACK 

9F07 4C 89 9E TESI JMP GETREG ;AKTUELLE ADRESSE HOLEN 


; 
;ARBEITSUPRO 2 - TESTE 2 MIT MERKEN: 


Da 2 2 2 22 22 2 2 2 2 a 2 a 2 2 a 2 22 2 2 2 2 22 2 22 22 202020 
‘ 


‘ 
9FOA 20 4C 9E TEST2 JSR TESTE ;PUNKT TESTEN 


9FOD C4 57 cPY DO ;RAND? 

9FOF DO 2C BNE TES3 ;JA! 

9F11 AS AC LDA ADL 

9F13 48 PHA 

9F14 AS AD LDA ADH 

9F16 48 PHA 

9F17 AS AB LDA MSK 

9F19 48 PHA 

YFIA AS 93 LDA E5 

YFIC 48 PHA ;ADRESSE MERKEN 
‘ 

9FID 20 9A 9E JSR LINKS. ;%-1 

9F20 20 4C 9E JSR TESTE ;PUNKT TESTEN 

9F23 C4 57 cpY DO ;RAND? 

9F25 FO 12 BEQ TES2 ;NEIN! 
’ 

9F27 68 PLA 

9rF28 85 93 STA ES 

YF2A 68 PLA 

9F2B 85 AB STA MSK 

9F2D 68 PLA 

YF2E 85 AD STA ADH 

9F30 68 PLA 

9F31 85 AC STA ADL ;ADRESSE HOLEN 

9F33 20 AA 9E JSR PUTSTK ;UND AUF STACK 

9F36 4C 89 9E JMP GETREG ;AKTUELLE KOORDINATEN HOLEN 

9F39 68 TES2 PLA 

YF3A 68 PLA 

9F3B 68 PLA 

YF3C 68 PLA ;STACK AUFRAEUMEN 


9F3D 4C 89 9E TES3 JMP GETREG ;AKTUELLE KOORDINATEN HOLEN 
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Und hier die Symboltabelle: 


ABS C610 ADH O0AD ADL OOAC 
ADRTAB 7B5SF ADRZW C64B AT 0091 
BO 7A29 B1 7ATB B3 TA6A 
BASIN E112 BASOUT E1OC BASSTA 002B 
BC1 8BFB BCOL C619 BCOLO. 8BE8 
BCOLOR 8BDF BEFEHL 7A20 BEFO 7A88 
BEFO1 TA8E BEFTAB 7A93 BGRDZW C616 
BIPO 86F9 BIPTB1 86C8 BIPTB2 86D0 
BRKO 7BC6 BRK1 78D4 BRKGET 78D2 
BRKSAV c62C Ci 0656 C2 c657 
c3 0658 C4 0659 C5 C65A 
c6 C65B C7 C65C CCONT 9A33 
CEXIT 9A89 FLAG C68B CHKCOM AEFD 
CHKGET B7F1 CHKIN EIIE  CHKOUT E118 
CHKSTP FFEI  CHKSTR AD8F CHRGET 0073 
CHRGOT 0079 CI4 99A9 CI5 YIEE 
c16 99F6 CIRC 9837 CIRCO Y85F 
CIRCI 984D CL101 9978 CL102 99AD 
CL103 9989 CL2 98A6 CL3 98B5 
CL4 98B2 CLOSE Eicc cLa1 9A66 
CLAW 98C8 CLRCH FFCC CLRCOL 92E1 
CMODE C65E CMOVE 9A2B CMUL 991B 
CMUL1 997B CMUL16 9952 CMUL17 9929 
CNEGX 9IFF CNEGY 99AF CNEXT 9A28 
CNEXTS 98EO CNEXTQ 9ABA COLI C61A 
coL2 C61B COL3 C6IC COL3ZW C675 
COLMEM C650 COLMM 0653 COLOR 0655 
COLTB1 82CC COMBT2 8509 COMBTB 8505 
CPSEX 9A7T2 CRDYX 9A14  CRDYY Y9BB 
CSTAB YAAB CSUB Y8FE CSUB1 Y8FO 
cW1 C661 Cw2 0663 CXC 0668 
CXG 0665 CYC C66A CYG C660 
D.O 8D0D D.1 8D40 D.2 8017 
D.3 8024 D.4 8031 D.5 8D3C 
D.6 8046 DO 0057 D1 0058 
D2 0059 D3 005A D4 0058 
D5 005C D6 005D D7 005E 
D8 8cBE DI 8cci DA 8057 
DATAST 9BIC DCOLTB 699 DE2 8F40 
DE2. 8F6C DE3 8F7B DE4 8F63 
DEFINE 8F10 DFABTB 7847 DIO 8DFE 
D11 80cE DI2 8DBC DI2.1 8E26 
D12.2 8619 DI3 80B1 DI4 8DAB 
DI5 80B9 DI7 8DE4 DIE 8DDD 
D19 8DEF DIRO 9DC4 DIRI 9DA7 
DIR2 90B9 DIR3 90D8 DIREKT 9083 
DISK 8DA3 DISK2 &8DFF DOLLAR 9DDB 


DRI 8C9E DR2 8cc7 DR3 8CE5 
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DRAW 8C7E DRAW. 8CEE DRAW2 8D4B 
DRAW3 8D4C DRAW4 8065 EO c610 
E1 c611 E2 612 E5 0093 
E5.ZW c615 E7 C613 EINGAB 0302 
ENDZ1 9C9E ENDZ2 9B9B ENDZ3 9cA7 
ENDZEI 9C62 ERRO 9EDI FABMEM 0651 
FABMM C654 FABRSC 8A53 FACINT B7F7 
FENSTR C6AA FIO 809E FI1 8198 
FI2 81A6 FI3 80C3 FILO Y6D0 
FILI 96B1 FILENR 00B8 FILL 809B 
FILON C670 FILTER 9690 FINIT 8155 
FINITO 8158 FLAGP1 C692 FLAGP2 0693 
FLG 0097 FLG2 0096 FRO 80DA 
FR3 8152 FR7 8145 FR8 8138 
FR9 8124 FRADIH 0065 FRADIL 0064 
FRAD2H 006E FRAD2L 006D FRAME 80C6 
FRESTR B6A3 FRFILL 8B36 FRMEVL ADIE 
FRMNUM ADBA FSTBEF 0057 FUNKTI C78F 
FUNVOR 780A GC1 8375 Gc2 8378 
6C3 8384 GC4 83A5 GC5 83BA 
6C6 8307 GCFLAG OOAE GCLEAR 8362 
GCLV 8383 GCOO 8454 GCO2 845E 
GCO3 8465 GCO4 844D GCO5 84F3 
GCO6 84F5  GCOAND 84A8 GCOCOP 84BF 
GCOEND 84A5 GCOEOR 8488 GCOJ 8493 
GCOMB 841E GCOOR 8481 GCOV 84DF 
GEND C617 GET 95F0 GETI 9257 
GET15 95ED GETBYT B79E GETCOR B7EB 
GETES 8863 GETES. 8871 GETGRI 9AAA 
GETGR2 YAAB GETGRA 9A9Y1 GETNR 9247 
GETPAR E1D4 GETRAI 8076 GETRAS 8064 
GETREG 9E8B9Y GETSTK 9ED4 GETSTR 8EFE 
GETTAB 8D9F GETZI 7C41 GETZ2 7015 
GETZ3 7CIE GETZ6 7C14 GETZ7 7c35 
GETZ8 7C3E GETZ9Y 7C3B GETZA 7BFC 
GETZEI 7BE4 GFLAG 0002 GFLAG2 C61E 
GLO 8ED9 GLO. 8EEC GLOO 8ED7 
GL 8661 GL2 8669 GL2. 8E68 
GL3 8E71 GLOAD 8E4B GLOAD. 8EB9 
GMOO 8A86 GMOOO 8A75 GMO1 8AA2 
GM1 8AAB GM12 8038 GM13 8C42 
GM2 8ABO GM2A 8AC1 GM2B 8Ac9 
GM2C 8ACD GM2C. 8AEO GM2D 8AF4 
GM2D. 8AEE GM3 8822 GM5 8B44 
GM9 8C1D GM9. 8032 GMODE 8A8B 
GMODEI 8A6C GMOVE 8874 GMTAB 8A5F 
GMTAB2 8A68 GMVO 88B6 GMV1 88AD 
GMV2 8906 GMV3 8922 GMV4 8925 
GMVS5 8911 GMV7 8895 GMV8 8889 
GMV9 88D7 GOTO AB8A3 GRADIH 0061 


GRADIL 0060 GRAD2H 006A GRAD2L 0069 
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GRAPHM 8AFA GRAPMI 8AFD GRIO 86A5 
GRI1 867F GRI2 868D GRI3 8698 
GRI4 86A2 GRIS 86A4 GRIGHT 8657 
GRMEM C64F GRMM2 C652 GROFF 7c59 
Gso 8E92 GSO. 8EB3 GS1 8E3E 
GSAVE 8E28 GSAVE. 8E77 GSTART C618 
H6 8205 H7 8208 HARD c400 
HKFLG1 000F HKFLG2 0008 HL4 881c 
HLINE 87E4 HPOSN 81AA HPS1 81BB 
10 7757 10. 7795 10.. 7712 
10... 772c 100 7728 100. 7748 
100.. 773C 100... 773F 1000 7747 
11 77eB 11. 7702 110 79A1 
110. 799F 111 79BA 112 7981 
12 77F6 13 78F7 13.A 7912 
13.B 7910 14 79355 14.2 7933 
I4.A 7948 14.B 79,A 14.C 7951 
15 795A 16 7961 16.A 7965 
17 7975 18 791E 19 7985 
IFZ 91c8 IFZ1 91CA IFZ2 9105 
IFZ3 91F9 IFZ4 91FC IFZ5 9208 
IFZ6 9213 1F27 9217 1FZ8 9228 
IFZDAT 9ic2 II 77EO ILLFE 8FOD 
INIT 7700 INTOUT BDCD INTPO 79C1 
INTPRT 78F1  INVI 83ED INV2 83F0 
INV3 83fc INV4 840E INVERS 83DA 
INVV 8409 IPL 8205 IRQ 0314 
IRQO 93F3 IRQ1 9413 IRQ2 Y4u5A 
IRQ3 943C IRQNEU 9307 IRQSAV C62A 
IRQWAR Y3F5  IRRSAV C68A JLINKS 8770 
JMPSCL 8896 JOBEN 8777 JRECHT 877A 
JUMPTI 9466 JUNTEN 8774 KEY 9D49 
KEY1 9068 KEY2 9075 KEY3 9D7E 
KEY4 9082 KOPF 7857 L.VFLG 0093 
L1 8831 L1. 8847 LIO 7E56 
L11 7E4D 112 TE6E L12D 7EI6 
L12E 7EBC LI2F 7EAD 113 7ESD 
L16 7EFO L2 8840 13 8075 
L& 8801 L5 88356 L6 884F 
L7 7EOA L8 7E17 19 TE6C 
LCOLO C6IF LGMVO 8934 LGMVI 896A 
LGMV2 8971 LGMV3 895B LGMV4 8953 
LGRMOV 892F LI 8780 LI2 87DA 
L13 870B LINE. 805E LINKS 8784 
LINKS. 9EYA LIPLOT TEEA LISO 7905 
L1s1 790D LIS2 79E0 LIS3 79E8 
LIS4 79F3 LIS5 7909 LIST 79C4 
LIVER 8974 LLINE 7FOO LLINE. 807E 
LLINKS 7F56 LLKI 7FSE LO1 7F&& 
LOBEN 7F3C LODOUT F5D2 LPL2 7E8D 


LPL4 7E78 LPL5 7E7C LPLOT. 8054 
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LPLT 7DF2 LPLTHP 7DF2 LPLTT 7EE2 
LR1 7F52 LRECHT 7F48 LRVI 8908 
LSTO 7906 LU 7F38 LUNTEN 7F2E 
LV1 8976 LV2 8980 LV3 8996 
LV4 899E LV5 89B0 LV6 89c9 
LV7 89DF LV8 89C7 LVC 89BC 
LZW C649 MCSC 8A43 MCSCI 8A4D 
MERGE 9B05 MINUS 00AB MSK 00AB 
MSKHG 8C5C MSKMC 8C60 MSKTB1 7027 
MSKTB2 7D2F MUL.H 7037 MUL.L 7051 
NEWBRK 7BAE NLPL 7EBE NPL 827A 
NPL2 827D NR C64E OB1 8744 
0B2 8753 0B3 8765 O0B4 8769 
OBEN 8735 OERR BYTE OFFS 8r7c 
OFFS1 8F88 OFFX 006D OPEN E1C1 
p1 7FE6 P2 7FFO PAIC 00c0 
PAIF 00D8 PA1G 00EO PA2C 00C8 
PA2F 00OcCC PA2G 00AOD PAGEIC 78EC 
PAGEIF 78ED PAGEIG 78EB PAGE2C 78EF 
PAGE2F 78F0O PAGE2G 78EE PAII 9DF5 
PAI2 9DF7 PAIS 9E06 PAIS 9E13 
PAI6 9E28 PAI7 9E37 PAINT 9DDc 
PASS1 9CcD3 PASS2 9021 PASSES 9CBF 
PCL1 8BA2 PCOLHG 8BBC PCOLMC 8BCA 
PCOLOR 8899 PDL 911A PDLI 912D 
PDL2 913B PDL3 9149 PFLAGS C6r9 
PINSEL C690 PLO 822E PLI 824A 
PL2 8281 PL3 8290 PL4 823C 
PL5 8240 PLOT 7FD9 PLOT. 8047 
PLOTMD 7055 PLT 8218 PLTT 82BC 
PLTVA. 7FCA  PLTVAR 7FC4 POITAB 96F0 
poS1 9039 POS2 9D44 POSITI 9030 
PRGZG 007A PRGZGR C68E PUTSTK YEAA 
QERR B248 R.L 8782 RASFLG 0694 
RASSPR 94i1F RASTI 0637 RAST2 0638 
RDAT 8068 REI 8789 RE2 87A8 
RE3 87A9 RECHT. 9EA2 RECHTS 8780 
REGTAB Y1AC RENIO 9C16 REN11 9C36 
REN11. 9C44 RENI2 9C42 RENI3 9c87 
REN14 9c10 RENIS 9CIF REN4 9018 
RENS 9B70 RENG 9B83 RENT 9B85 
REN8 9BAE REN8.O 9B9YE RENB.1 YBBF 
REN8.2 9BB2 RENB.4 9BC2 REN8.5 9BC8 
RENY 9BE7 REN9.1 9BF2 REN9.2 9c01 
RENDAT 9CBA RENU2 9CF9 RENU3 9D2B 
RENUM 9839 RENUM. 9B42 RETI 7A10 
RETIRQ 79F6 REVER 89E0 RNB.4. 9c59 
ROTCOL 8043 RSFLGI C695 RT C614 
RTS. 8ABA RITS.. JEFC RUECK C691 
RV1 89EC RV2 89F8 RV3 89FA 


RV4 8A04L RV5 8A11 RV6 8A35 
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RV7 8A28 RV8 8A33 RVC 8A1D 
S D400 SAD C65D SAVOUT F6BF 
SAVREG 9E78 SCALE 8079 SCLHG1 C6E7 
SCLHG2 C6F1 SCLMCI C6E5 SCLMC2 C6EF 
SCOL 8C09 SCOL1I 8C0OD SCOL3 8872 
SCOLOR 8869 SECADR 0089 SEITTA 84D0 
SERR AFO8 SERRI 81A7 SETCUR 7FBO 
SHP O0AE SIO 9500 SI1 9488 
sı2 9490 SI3 94BD SI4 Y4E6 
sI5 9405 SI6 940B SI7 Y4BA 
SIRQ 9469 SIRAGO 93F0 SKORDI C6C4 
SKORD2 C605 SLY 7FAC SLCOLO 8BD8 
SLD1 9396 SLD2 938F SLD3 9392 
SLD4 93A1 SLDCOR 937C SLINKS 7F94 
SLOW C630 SMO 907E SMI 9092 
SM. 9095 SM2 9084 SMS 909F 
SM6 90AD SM7 90AB SM8 90FO 
SMY YOCC SMODE 9048 SOBEN 7F6C 
SOFF16 93AE SOFFI7 93BB SOU1 9561 
sou2 9584 SOU3 95B4 SOUS Y5BB 
SOU6 YSBE SOUND Y54E SPLOT 820B 
SPMCI c72B SPMC2 c72C SPONI c729 
SPON2 C72A SPPRI1 c72D SPPRI2 C72E 
SPRDEF 0002 SPRET 8646 SPRI16 C6AB 
SPRIT1 C688 SPRIT2 C689 SPRPOW 90F1 
SPVEK c719 SPXEX1 c731  SPXEX2 c732 
SPYEX1 C72F SPYEX2 c730 SRO 8FE6 
SR1 8FAF SR2 8örBF SR3 8FDB 
SRA 8FDO SR5 8rF9 SR6 9013 
SR7 902B SRY 7F9O  SRCHFN 8EF2 
SRCHOU FSAF SRE1 9181 SREAD 8F93 
SRECHT 7F76 SREG D000 SREGIN 915F 
SREGSG 9162 SRUNS1 C66E SRUNS2 C66F 
sso 9292 SS1 926C SS3 92c0 
ss7 925B SS8 92DB SS9 92C6 
SS9A 92C9 SSCHRT C709 SSET 9258 
ssT1 9341 SST2 9324 SST3 932D 
SST4 9336 SST5 935C  SST6 9365 
SSTCOR 930E SSTCRI 9302 SSTCR2 9317 
STAB1 727 STAB2 7051 STADH D700 
STADL D600 STATAB 8087 STATB2 8093 
STATUS 0090 STES D9Y00 STEST Y2EE 
STFO 7c8c STF1 7CB5 STF1. 7CBD 
STF2 7Ccc1 STF3 7C74 _STF4 7CC9 
STF5 7CcB2 STF6 7CD1 STFLG 7C67 
STIMME 95F4  STIMMM 95FE STKPOI 0058 
STKSAV C6AE STMSK D800 STRERR 8658 
STU 7020 STUCOL 7013 STUD& 7018 
STUGR 7D1D SUNTEN 7F62 SWAIT 9366 
SWAITI 9373 SWAITI 936C SXH C63A 


SXL C639 SY C63B T1 8028 
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T1ADR 00A4 TIBUF 96F7 TICH Y6F6 
TICHAD 96FF TICP 0061 TIEXIT 9834 
TIILL 9742 TILIO 9814 TIL2 9758 
T1L3 9762 TIL3A 976B TIL& 9782 
TIL4A 9793 TAL5 97AD TILE 97F2 
T1L7 97FD TIL 9822 TIL9 98BIC 
TILEN 9707 TILPO 9744 TALPI 97BB 
T1LP2 97BD TIRVS 96r3 TIY2 Y6F4 
TIYR 96r5 T2 8016 T3 8024 
T4 8033 T5 803E TABTAB D600 
TAUO 8622 TAUSCH 8620 TAZ 7CD4 
TCOL C61D TESI 9F07 TES2 9F39 
TES3 YF3D TESCOR TFFF TESGR 8038 
TESHGR 8029 TESTI Y9EFD TEST2 9FOA 
TESTE 9E4C TESTEN 9E73 TESTE2 9ESC 
TESTE3 9E62 TEXRAM 0400 TEXT 9708 
TEXTM 8B4F TIMEH C634 TIMEL C631 
TLPL 7ECB TNXTCH 9828 TO 00A4 
TOO 9535 TOo1 9508 TONIRQ 9506 
TONTAB 96D8 TPL 82A4 TRI 7D6F 
TR2 7DDD TR& 70B6 TRAO 82EF 
TRA1 82F5 TRA2 8306 TRA3 830C 
TRA4& 831F TRAS 833D TRA6 835C 
TRANS 7D5A TRANSS 8200 TRCOL 7005 
TRSB1 7DB4 TRSBEF 7D9C TSCHAU IYB3F 
TITT 8BA5S TUO 9629 TU 9634 
TU3 9663 TU4 965C TUS 9673 
TU6 96D1 TU7 960c TU8 9614 
TUNE 9602 TZA 7CF7 U.O 8733 
UNI 870B UN2 8724 UN3 8728 
UNTEN 86FA UPL 8244 USE OOFD 
V DO00 VARADR C6AD VARSTA 002D 
VKTNEW 77FC  VKTOLD 0300 VKTSAV C620 
vo1 9545 VOLUM C674 VOLUME 9538 
VRAD1H 0063 VRADIL 0062 VRAD2H 006C 
VRAD2L 0068 W DDOO WARM1 7054 
WARM2 7C51 WARMST 7C44 WELLFO c671 
WERROR 861D WINO 85DF WINOO 8511 
WIN 858A WIN2 8577 WIN3 857F 
WING 8551 WINS 8533 WIN8 85CD 
WINI 85DA WINIT 8512 WINITO 8593 
WINIT2 85E0 WINITS 85A2 WXIH 0058 
WXIL 0057 WX2H 005B WX2L 005A 
WXAH 005E WXAL 005D WY1 0059 
wY2 005C WYA 005F X.SREG C676 
X1H C63F XIL C63E X2H C643 
x2L C642 X3H C647 X3L C646 
XK 0014 XXX 955C Y1 C63C 
Y2 C640 Y3 C64h ZA 005F 


ZAHL C686 ZIELAD 86D8 ZLNR C68C 
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Im AnschluP an das große Listing der Supergraphik wollen wir Ihnen im folgenden 
- wie vereinbart - kurz noch die 3 Source-Lisitings der Hardcopyroutinen 
vorstellen, mit denen die Supergraphik ausgestattet ist: 


Zunächst eimmal zeigen wir Ihnen hier die Hardcopy-Routine für alle 7-Nadel- 
Drucker und Epson-Kompatible mit DATA-BECKER-Interface: 


‚ 
;HARDCOPY 7-NADELDRUCKER: 


III a a 
’ 


® 
C400 A9 23 HARD.B LDA Hug 
C402 86 FD STX USE 
C404 20 FF AE JSR $AEFF ;PRUEFT AUF ZEICHEN 
C407 20 9E B7 JSR GETBYT 
C40A 86 67 STX $67 
c40C 20 OF F3 JSR $F30F ;SUCHT LOG. FILENR. 
C40F 20 IF F3 JSR $F31F ;SETZT FILEPARAM. 
c412 A6 67 LDX $67 
C414 20 C9 FF JSR $FFC9  ;KANAL OEFFNEN 
C417 A9 FF LDA #$FF 
C419 85 61 STA $%61 ;MASKE 
C41B A9 07 LDA #7 
C41D 85 FD STA USE ;PACKENGROESSE 
C41F AY IC LDA #28 
c421 85 97 STA FLG ;ZEILENZAEHLER 
C423 A9 00 LDA #0 
c425 8D 48 C6 STA ZWIS sYK-MERKER 
C428 A9 28 SEVI LDA #40 
C42A 85 96 STA FLG2 ;PACKENZAEHLER 
C42C A2 04 LDX #4 
C42E BD C2 C4 SEVI. LDA SEVTAB,X ;MITTENZENTRIERT 
C431 20 D2 FF JSR $FFD2 
C434 CA DEX 
c435 10 F7 BPL SEVI. 
c437 A9 00 LDA #0 
C439 85 63 STA $63 
C43B 85 64 STA $64 ;XK=0 
C43D AD 48 C6 SEV2 LDA ZWIS 
C440 85 65 STA $65 ‚YK 
C442 A9 00 LDA #0 
C444 85 FE STA USE+1 
C446 A5 01 LDA 1 
C448 48 PHA 


C449 29 FC AND #$FC 


C44B 
C44C 
C44E 
C450 
c452 
C454 
c457 
c459 
C45B 
C45D 
C460 
C462 
0463 
C465 
C467 
C469 
CA6A 
C46C 
C46D 
C46F 
c471 
C473 
C476 
c477 
c478 
CA7A 
C47C 
C47E 
c481 
c482 
C484 
C486 
c487 
C489 
C48B 
C48D 
c48F 
c491 
C493 
C495 
c498 
C49B 
C49C 
C49E 
C4A1 
C4A3 
C4AA5 
C4AB 
C4AA 
CAAC 
C4AE 


78 
85 
A5 
A6 
A& 
20 
AO 
B1 
A6 


E6 
E8 
86 
E4 
DO 
68 
85 
58 
A9 
AO 
A6 
1E 
2A 
CA 
10 
25 
09 
20 


10 
A5 
18 
69 
8 
90 
E6 
c6 
DO 
A9 
20 
AD 


69 
8D 
C6 
FO 
4c 
A9 
6 
FO 
85 
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SEI 
01 STA 1 
63 SEV3 LDA $63 
64 LDX $64 
65 LDY $65 
c7 c4 JSR HPOSN 
00 LDY #0 
AC LDA (ADL),Y 
FE LDX USE+1 
00 c6 STA $C600,X 
65 INC $65 
INX 
FE STX USE+1 
FD CPX USE 
E5 BNE SEV3 
PLA 
01 STA 1 
CLI 
00 LDA #0 
07 LDY #7 


FD SEV4 LDX USE 


00 C6 SEVS ASL $C600,X 


ROL A 
DEX 
F9 BPL SEV5 
61 AND $61 
80 ORA #$80 
D2 FF JSR $FFD2 
DEY 
ED BPL SEV4 
63 LDA $%63 
CcLC 
08 ADC #8 
63 STA $%63 
02 BCC SEV6 
64 INC $64 
96 SEV6 DEC FLG2 
AA BNE SEV2 
OD LDA #8D 
D2 FF JSR $FFD2 
48 C6 LDA ZWIS 
cLC 
07 ADC #7 
48 C6 STA ZWIS 
97 DEC FLG 
03 BEQ SEVB. 


28 C4 SEV8 JMP SEVI 
04 SEVB. LDA #4 


FD CMP USE 
oc BEQ SEV7 
FD STA USE 


SXK-L 

SXK-H 

YK 

;POSITION BERECHNEN 


;IN BUFFER 
;YK 


;BEI LETZTER ZEILE=#$0F 
;HIGH-BYTE 
;SENDEN 


IXK-L 


;MERKER+7 


;LETZTE ZEILE 


659 


660 


C4B0 
C4B2 
C4B4 
C4B6 
C4B8 
C4BA 
C4BC 
C4BF 


c4c2 


C4c7 
c4c9 
C4CB 
CAcc 
C4CD 
C4CE 
CAcF 
c4D0 
C4D3 
C4D5 
C4D6 
C4D8 
C409 
C4DC 
C4DE 
CADF 
C4E1 
C4E2 
C4E4 
C4E6 
C4E8 
C4EA 
C4EC 
C4EF 
C4Fi 
CAF3 
CAF4 
CAF6 
CAF8 
CAFA 
CAFC 
CAFE 
c500 


c501 
c5or 
C51A 


A9 


DO 


85 


98 
4A 
4A 
4A 
AA 


85 
8A 
29 


BD 
85 
98 
29 
18 
65 
85 
A5 
29 
85 
AD 
05 
85 
18 
A5 
65 
85 
AS 
65 
85 
60 


00 


00 


01 

97 

Or 

61 

EB 

Or SEV7 
D2 FF 

cc FF 


® 
00 10 SEVTAB 


14 HPOSN 
15 


01 c5 


1A C5 
AC 


07 


4F Cc6 


01 02 MUL.H 
12 14 
40 80 MUL.L 


’ 


LDA 
STA 
LDA 
STA 
BNE 
LDA 
JSR 
JMP 


.BYT 


STA 
STX 
TYA 
LSR 
LSR 
LSR 
TAX 
LDA 
STA 
TXA 
AND 
TAX 
LDA 
STA 
TYA 
AND 
CcLC 
ADC 
STA 
LDA 
AND 
STA 
LDA 
ORA 
STA 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
RTS 
’ 
.BYT 
-BYT 
.BYT 
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# 

FLG 

Hs 

$61 ;MASKE 

SEV8 

#15 ;NORMAL MODUS 
$FFD2 

$FFCC ;SCHLIESST KANAL 


80,0,16,27,8 


XK ;S. HAUPTPROGRAMM 
XK+1 


A 
A 
A 


MUL.H,X 
ADH 


#3 


MUL.L,X 
ADL 


#7 


ADL 

ADL 

XK 

HSF8 

OFFX 

GRMEM ;LAUFENDE GRAPHIKSEITE 
ADH 

ADH 


ADL 
OFFX 
ADL 
ADH 
XK+1 
ADH 


0,1,2,3,5,6,7,8,10,11,12,13,15,16 
17,18,20,21,22,23,25,26,27,28,30 
0,$40,$80,$C0 
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Die folgende Routine für die beiden Drucker CBM 1526 und MPS 802 nutzt die 
Möglichkeit der Drucker, ein einziges Sonderzeichen zu definieren. Nach der 
Ausgabe dieses Sonderzeichens muP zunächst wieder an den Zeilenanfang und dann 
zur aktuellen Position gesprungen werden. Dies erhöht entsprechend den 
Programmieraufwand: 


; 
;HARDCOPY CBM 1526: 


RR a a a 


’ 
0068 HHZF = $68 


C400 A9 23 HARD.A LDA Hd 


C402 86 FD STX USE 

C404 20 FF AE JSR $AEFF ;PRUEFT AUF ZEICHEN 
C407 20 9E B7 JSR GETBYT 

C40A 86 67 STX 367 

C40C 20 OF F3 JSR $F30F ;SUCHT LOG. FILENR. 
c40F 20 IF F3 JSR $F31F ;SETZT FILEPARAM. 
c412 A9 05 EIGHT LDA #5 

C414 20 39 C5 JSR OPENCH ; OPEN FUER SA=5 
c417 A9 06 LDA #6 

C419 20 39 C5 JSR OPENCH ; OPEN FUER SA=6 
C4ic A2 16 LDX #816 

C41E 20 C9 FF JSR SFFC9 

c421 A9 14 LDA #20 ; ZEILENABSTAND FUER GRAFIK 
c423 20 D2 FF JSR $FFD2 

C426 A9 OD LDA #13 ; ENDEZEICHEN 

c428 20 D2 FF JSR $FFD2 

C42B 20 CC FF JSR $FFCC ; KANAL LOESCHEN 
C42E AO 19 LDY #25 ; ANZAHL ZEILEN 
C430 84 64 STY 364 ; SETZEN 

c432 A9 02 HA10 LDA #2 ; DOPPELT HOCH 
C434 85 68 STA HHZF ; WIEDERHOLZAEHLER 
C436 A9 00 HA10A LDA #0 ; ZAEHLER FUER FUEHRENDE BLANKS 
c438 85 65 STA $65 ; SETZEN 

C43A AY 28 LDA #40 ; ANZAHL SPALTEN 
C43C 85 63 STA $%63 ; SETZEN 

C43E A9 19 LDA #25 

C440 38 SEC 

C441 ES 64 SBC $64 ;ZEILEN NOCH ZU DRUCKEN 
C443 AA TAX 

C444 BD 42 C5 LDA MUL.H,X 

C447 OD 4F C6 ORA GRMEM 

CA4A 85 AD STA ADH 

C44C 8A TXA 

C44D 29 03 AND #3 


CA4F AA TAX 
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c450 
C453 
c455 
c457 
c459 
C45A 
C45C 
C45D 
C45F 
C461 

0463 
C466 
C468 
CA6A 
C46C 
C46D 
CA6F 
c470 
c472 
C473 
C475 
c477 
CA7A 
c47B 
C47Cc 
C47E 
c481 

C484 
C485 
c487 
C489 
C48C 
C48E 
c491 

0493 
C495 
c497 
C499 
C49B 
C49D 
C49F 
C4A2 
CAA4 
C4A7 
C4A9 
C4AC 
CAAF 
C481 

C4B4 
C4B6 
C4B9 


BD 
85 
A2 
AO 
78 
A5 
48 


85 
Al 
9 
E6 
DO 
E6 
88 
DO 


85 


DO 
AO 
20 
AO 
20 
c6 
DO 
c6 
DO 
c6 
DO 
A2 
20 
A9 
20 
A9 
20 
20 
A9 
20 
A9 
20 
60 


5c 
AC 
00 
08 


01 


FC 
01 
AC 
00 
AC 
02 
AD 


F2 


01 


08 
08 
00 


F9 


08 


EE 
08 
BA 
04 


63 
co 
68 
9D 


95 
16 
c9 
24 
D2 
0D 
D2 
cc 
16 
c3 
19 
c3 


c5 


c6 


c6 


c5 
c6 


C4 


C4 


FF 


FF 


FF 
FF 


FF 


FF 


HA11 


HA1L2 


HA1LO1 


HA1L4 
HA1L3 


HA1L02 


HA1L50 


LDA 
STA 
LDX 
LDY 
SEI 
LDA 
PHA 
AND 
STA 
LDA 
STA 
INC 
BNE 
INC 
DEY 
BNE 
PLA 
STA 
cLI 
LDY 
LDX 
ASL 
ROL 
DEX 
BNE 
JSR 
STA 
DEY 
BNE 
LDY 
JSR 
LDY 
JSR 
DEC 
BNE 
DEC 
BNE 
DEC 
BNE 
LDX 
JSR 
LDA 
JSR 
LDA 
JSR 
JSR 
LDA 
JSR 
LDA 
JSR 
RTS 


MUL.L,X 
ADL 

#0 

#8 


1 


#SFC 

1 
(ADL,X) 
$C600,Y 
ADL 
HA1L01 
ADH 


HA1L2 
1 


#8 

#8 
$C600,X 
A 


HA1L3 
BSPLIT 
$C608,Y 


HAIL4 
#8 
PRDFCH 
# 
PRDFCH 
$63 
HA11 
HHZF 
HA10A 
$64 
HA10 
#816 
$FFC9 
#36 
$FFD2 
#13 
$FFD2 
SFFCC 
#816 
$FFC3 
#25 
$FFC3 


2 


-. 


-. - neo. 


ns 


none 


GRAFIKDATEN HOLEN 


GRAFIK DRUCKEN 


ZEILENZAEHLER ERNIEDRIGEN 
NOCH NICHT FERTIG 


SA=6 


ZEILENABSTAND TEXT 


ENDEZEICHEN 


SA=6 


CLOSE FUER SONDERZEICHENKANAL 
FERTIG 
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C4BA A9 00 PRDFCH LDA #0 


C4BC 85 66 STA $66 

C4BE A2 15 LDX #815 

C4c0O 20 C9 FF JSR $FFC9  ; KANAL FUER ZEICHENDEFINITION 
c4c3 98 TYA 

C4C4 48 PHA 

C4c5 A2 04 LDX #4 

C4c7 B9 08 C6 HA62 LDA $C608,Y 

CACA 20 D2 FF JSR $FFD2 

C4CcD 20 D2 FF JSR $FFD2 

C4D0 05 66 ORA $66 

C4D2 85 66 STA $66 

C4D4 88 DEY 

C4D5 CA DEX 

C4D6 DO EF BNE HA62 

C4D8 20 CC FF JSR $FFCC ; KANAL SCHLIESSEN 
C4DB AS 66 LDA $66 

C4DD FO 31 BEQ HA61 

C4DF A6 67 LDX $67 

C4E1 20 C9 FF JSR $FFC9 ; DATENKANAL 
C4E4 AS 65 LDA $%65 ; ANZAHL BLANKS 
C4E6 FO 09 BEQ HA63 ; KEINE 

C4E8 AA TAX 

C4E9 A9 20 LDA #820 

C4EB 20 D2 FF HA64 JSR $FFD2 

C4EE CA DEX 

C4EF DO FA BNE HA64 

C4F1 A9 FE HA63 LDA #254 ; SONDERZEICHEN 
C4rF3 20 D2 FF JSR $FFD2 

C4F6 68 HA61A PLA 

C4F7 Cc9 04 CMP #4 

C4F9 DO OA BNE HA75A 

C4AFB AS 63 LDA $63 

C4rFD C9 01 cMmP #1 

C4AFF DO 04 BNE HA75A 

c501 A9 OD LDA #13 

c503 DO 02 BNE HA75 

c505 A9 8D HA7SA LDA #141 

c507 20 D2 FF HA75 JSR $FFD2 

C50A 20 CC FF JSR $FFCC  ; KANAL SCHLIESSEN 
c50D E6 65 INC $65 

c50F 60 RTS 

c510 A6 67 HA61 LDX $67 ;LEERDEFINITION 
c512 20 C9 FF JSR $FFC9 

0515 4C F6 C4 JMP HA61A 

c518 A6 68 BSPLIT LDX HHZF ; ZEILENFLAG 
c51A EO 01 cPX #1 ; DRUCK DER ZWEITEN ZEILE PRINT 
c5ic FO 04 BEQ HA9YO ; JA 

C5IE 4A LSR A 


C5S1F 4A LSR A 
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c520 
c521 
c522 
0524 
c525 
0528 


c529 
C52A 
c52B 
c52C 
c52D 
c52E 
c52F 
c530 
c531 
c532 
0533 
0534 
c535 
0536 
0537 
0538 


c539 
c53B 
c53D 
c53F 


c542 
c550 
c55C 


Ga 
GA 
29 
AA 
BD 
60 


00 
03 
oc 
OF 
30 
33 
3c 
3F 
co 
c3 
cc 
CF 
FO 
F3 
FC 
FF 


85 
09 
85 
4c 


00 
11 


LSR 
LSR 
OF HA9O AND 
TAX 
29 C5 LDA 


HATAB1 .BYT 


# 


B9 OPENCH STA 

10 ORA 

B8 STA 

co FF JMP 
; 

01 02 MUL.H «BYT 

12 14 .BYT 


00 40 80 MUL.L «BYT 
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A 
A ; OBERES HALBBYTE NACH UNTEN 
HSOF ; TABELLENINDEX BILDEN 


HATAB1,X ; SPLITWERT HOLEN ] 


%000000900 
%0000001 1 
%00001100 
%00001111 
%00 110000 
%00110011 
%00111100 
%00111111 
%11000000 
%110000 11 
%11001100 
%11001111 
%11110000 
%11110011 
%11111100 
%11111111 


$B9 
#810 
$B8 
$FFCO 


0,1,2,3,5,6,7,8,10,11,12,13,15,16 
17,18,20,21,22,23,25,26,27,28,30,31 
0,340,$80,$C0 
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Die letzte Hardcopy-Routine bringt ein farbiges Bild mit dem Drucker Seikosha 
GP 700A zu Papier: 


r 
;HARDCOPY'": FARBDRUCKER 


I a a a a 
‘ 


. 


C400 *= $C400 

C400 C9 44 CMP FD" ;DEFINITIONPRINT 
c402 DO 18 BNE FARBDR 

C404 20 73 00 JSR CHRGET ;FARBANPASSUNG 
C407 20 9E B7 JSR GETBYT 

CA0A 8A TXA 

c40B 29 OF AND #$F 

C40D 48 PHA ;BILDSCHIRMFARBE 
C40E 20 Fi B7 JSR CHKGET 

C411 8A TXA 

c412 29 07 AND #7 

C414 A8 TAY ;DRUCKFARBE 

c415 68 PLA 

C416 AA TAX 

C417 98 TYA 

c418 MD 99 C6 STA DCOLTB,X ;BILDSCHIRMFARBE ZUORDNEN 
C41B 60 RTS 

C41c 20 73 00 FARBDR JSR CHRGET 

C41F AY 23 LDA Hu" 

C421 86 FD STX USE 

C423 20 FF AE JSR $AEFF ;PRUEFT AUF ZEICHEN 
C426 20 9E B7 JSR GETBYT 

C429 86 67 STX $67 

C42B 20 OF F3 JSR $F30F ;SUCHT LOG. FILENR. 
CA2E 20 IF F3 JSR $F31F ;SETZT FILEPARAM. 
C431 A6 67 LDX $67 ;LOG. FILENUMMER 
Cc433 20 C9 FF JSR $FFC9  ;KANAL OEFFNEN 
C436 20 Fi B7 JSR CHKGET 

C439 CA DEX ;1 ODER 2 -PUNKTGRAPHIK 
C43A 8A TXA 

C43B AO OF LDY #15 

C43D 4A LSR A 

C43E BO 01 BCS FDO 

C440 88 DEY ; PUNKT 

C441 2A FDO ROL A 

C442 AA TAX 

C443 E8 INX 

C444 86 63 STX $63 

C446 86 97 STX FLG ;DOPPLUNGSZAEHLER 
C448 BY 44 C5 FD1 LDA DRCKTB,Y 

C44B 20 D2 FF JSR $FFD2 ;SENDEN":ESC P 640400 


CA4E 88 DEY ;BZW.  ESC P 480200 
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C44F 88 DEY 

c450 10 F6 BPL FD1 

c452 A2 00 LDX #0 

C454 8E 48 C6 STX ZWIS ;ZEILENZAEHLER 

C457 BD 54 C5 FD2 LDA MUL.H,X 

C45A OD 4F C6 ORA GRMEM 

C45D 85 AD STA ADH 

CA5F 8A TXA 

C460 29 03 AND #3 

C462 AA TAX 

C463 BD 6D C5 LDA MUL.L,X 

C466 85 AC STA ADL ;ADRESSE ERRECHNEN 

C468 AY 08 LDA #8 

C46A 85 FD STA USE ;REIHENZAEHLER 

C46C AY 28 FD4 LDA #40 

C46E 85 AB STA MSK ;REIHENBYTEZAEHLER 

C470 A6 63 LDX $63 

c472 CA DEX 

c473 DO OA BNE FD5 

Cc475 A2 AO LDX #160 ; 1-PUNKTGRAPHIK 

C477 A9 00 LDA #0 ;=> IN DIE MITTE SCHIEBEN 
c479 20 D2 FF FD3 JSR $FFD2 

CA7C CA DEX 

C47D DO FA BNE FD3 

CA7F AS AC FD5 LDA ADL 

C481 85 61 STA $%61 

C483 A5 AD LDA ADH 

C485 4A LSR A 

C486 66 61 ROR $61 

C488 4A LSR A 

0489 66 61 ROR $61 

C48B 4A LSR A 

C48C 66 61 ROR $61 ‚8 

C48E 49 DC EOR #%11011100 ;JEWEILIGES VIDEORAM 
C490 85 62 STA $%62 ; FARBADRESSE 

C492 AO 00 LDY #0 

C494 B1 61 LDA ($61),Y ;HOLE WERT 

C496 48 PHA 

C497 29 OF AND #$F ;HGRUND IN HGR/COLT IN MC 
C499 AA TAX 

C49A 68 PLA 

C49B 4A LSR A 

C49C 4A LSR A 

C49D 4A LSR A 

C49E 4A LSR A ;CcOL1 IN HGR/COL2 IN MC 
C49F 80 01 C6 STA $C601 ;COL1 

C4A2 24 02 BIT GFLAG 

C4A4 10 18 BPL FD6 ;HGR 

C4A6 8E 02 C6 STX $C602 ;COL2 / ACHTUNG! UNSTIMMIGKEIT 
C4A9 A5 62 LDA $62 ;CcOL1+2 NACH HOLZHACKERMETHODE 


C4AB 29 03 AND #3 ;BEHOBEN! 
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C4AD 09 D8 ORA #%D8 ; FARBRAM 
CAAF 85 62 STA $%62 

C4B1 B1 61 LDA ($61),Y ;COL3 

C48B3 29 OF AND #$F 

C485 8D 03 C6 STA $C603 

C4B8 AD 21 DO LDA V+33 ; HGRUND 

C4BB 29 OF AND #$F 

C4BD AA TAX 

C4BE 8E 00 C6 FD6 STX $C600 ;HGRUND 

C4c1 AS 01 LDA 1 

C4C3 AA TAX 

C4Cc4 29 FC AND #$FC 

C4c6 78 SEI 

c4c7 85 01 STA 1 

C4c9 A9 08 LDA #8 

C4cB 85 96 STA FLG2 ;BITZAEHLER 
C4CD B1 AC LDA CADL),Y ;HOLE BYTE 
CAcF 48 PHA 

C4D0 8A TXA 

C4D1 85 01 STA 1 

C403 58 cLI 

C4D4 A9 00 FD7 LDA #0 

C4D6 85 FE STA USE+1 

C4D8 68 PLA 

C4D9 24 02 BIT GFLAG 

C4DB 10 05 BPL FD8 ;HGR 

C4DD OA ASL A 

C4DE 26 FE ROL USE+1 

C4EO C6 96 DEC FLG2 ;BITZAEHLER 
C4E2 0A FD& ASL A 

C4E3 26 FE ROL USE+1 

C4E5 48 PHA ;REST MERKEN 
C4E6 A6 FE LDX USE+1 ; FARBNUMMER 
C4E8 BD 00 C6 LDA $%C600,X ;BILDSCHIRMFARBE 
C4EB AA TAX 

C4EC BD 99 C6 LDA DCOLTB,X ;ZUGEORDNETE DRUCKFARBE 
C4EF 48 PHA 

CAFO AS 63 LDA $63 

C4rF2 24 02 BIT GFLAG 

C4r4 10 01 BPL FD9. 

C4F6 OA ASL A 

CAF7 AA FD9. TAX 

C4r8 68 PLA 

C4F9 20 D2 FF FD9 JSR $FFD2 

CAFC CA DEX 

C4FD DO FA BNE FD9Y ;2*2-PUNKTE/MC":2PUNKTE 
CAFF C6 96 DEC FLG2 ;BITZAEHLER 
c501 DO D1 BNE FD7 

c503 68 PLA 

c504 A5 AC LDA ADL 


c506 18 CLC 
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c507 
c509 
c50B 
c50D 
c50oF 
c511 
c513 
c516 
c517 
c519 
c51B 
c51D 
c5iF 
c521 
0523 
0524 
c526 
c528 
C52A 
c52C 
c52E 
c530 
0533 
0536 
0537 
C53A 
c53C 
C53E 


c541 


0544 
0552 
0554 
0562 
C56D 


69 
85 
90 
E6 
c6 
FO 
4c 
18 
c6 
DO 
AS 
85 
c6 
FO 
38 
A5 
E9 
85 
A5 
E9 
85 
4c 
AE 
E8 
8E 
EO 
FO 
4c 


4c 


30 
1B 


11 
00 


08 
AC 
02 
AD 
AB 
03 
7F 


97 
09 
63 
97 
FD 
10 


AC 
3F 
AC 
AD 
01 
AD 
6C 
48 


19 
03 
57 


cc 


02 
14 
80 


FD10 


FD11 


FD12 


FD13 


nn“ 
o 
oa 
n 


sen 


ADC 
STA 
BCC 
INC 
DEC 
BEQ 
JMP 
CcLC 
DEC 
BNE 
LDA 
STA 
DEC 
BEQ 
SEC 
LDA 
SBC 
STA 


SBC 
STA 
JMP 
LDX 
INX 
STX 
CPX 
BEQ 
JMP 


JMP 


#8 
ADL 
FD10 
ADH 
MSK 
FD11 
FD5 


FLG 
FD12 
$63 
FLG 
USE 
FD13 


ADL 
#<319 
ADL 
ADH 
#>319 
ADH 
FD4 
ZWIS 


ZWIS 
#25 
FD14 
FD2 


$SFFCC 
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;ADRESSE+8 
;BYTEZAEHLER 


;NAECHSTES BYTE 


;DOPPLUNGSZAEHLER 


;REIHENZAEHLER 


;319/320 ABZIEHEN 
;NAECHSTE REIHE 
;ZEILENZAEHLER 


;NAECHSTE ZEILE 


;KANAL SCHLIESSEN 


;IPUNKTGR": ESC P 480200 
52PUNKTGR": ESC P 640400 


‘ 
DRCKTB 
MUL.H 


MUL.L 


„ASC "000024008446Pp"! 
.BYT 27,27 
.BYT 0,1,2,3,5,6,7,8,10,11,12,13,15,16 
.BYT 17,18,20,21,22,23,25,26,27,28,30 
.BYT 0,$40,$80,$C0 
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7. Anhang 


71 Bits and Bytes - Kleine Computermathematik 


Um die vielen verschiedenen Faktoren festzulegen, mit denen Sie die 
zahllosen Möglichkeiten der Graphikvariation bestimmen können, 
werkeln Sie direkt in der Speicherstruktur Ihres Gerätes bzw. mit den 
unterschiedlichen Registern (s.u.) der integrierten Schaltkreise. Be- 
kommen Sie keinen Schreck! Wir wollen Sie nicht etwa mit elektroni- 
schen Einzelheiten bombardieren. Zum Verständnis dieser Dinge be- 
darf es nur etwas Mathematik, die relativ einfach zu durchschauen ist 
und oft schon zum Stoff von 5- oder 6-Klässlern gehört. Es geht 
unter anderem um die Darstellung von Zahlen im sogenannten Binär- 
oder Dualsystem. 


Für einen gewöhnlichen Computer, der ja bekanntlich aus einer Un- 
zahl von elektronischen Leitungen und Bausteinen besteht, gibt es 
lediglich zwei Zustände, aus denen seine ganze kleine Welt besteht: 
Strom ein - Strom aus. Da wir Menschen nun aber von ihm eine ganze 
Menge mehr verlangen, mußten wir uns etwas einfallen lassen, um mit 
diesem Mangel zu leben. Wollen wir zum Beispiel eine Zahl im Com- 
puter darstellen, so kommen wir nicht mit diesen beiden Zuständen 
aus. Wir könnten zwar dem Zustand "Strom aus" die Zahl 0 und 
"Strom ein" die Zahl I zuordnen, werden damit aber wohl nicht weit 
kommen, da wir außer 0 und I noch unendlich viele andere Zahlen 
darstellen wollen. 


7.1.1 Dezimalsystem 


Im alltäglichen Leben stehen uns 10 Ziffern (0-9) zur Verfügung 
(deshalb der Name "Dezimal"-System von decem lat. - zehn), mit 
denen wir durch einen kleinen Trick sämtliche weiteren Zahlen dar- 
stellen können: Wir reihen einfach mehrere Ziffern zu einer großen 
Zahl zusammen. Wollen wir beispielsweise bis 1000 zählen, so sind wir 
bereits bei der Ziffer 9 am Ende unseres Ziffernvorrates. Jedem ist 
bekannt, daß wir danach einfach wieder von vorne (bei 0) anfangen 
zu zählen, wobei wir jedoch als Kennzeichen, daß wir bereits einmal 
bei 9 angelangt sind eine 1 vor die laufende Ziffer schreiben. Die 
nächsten Zahlen nach 9 lauten bekanntlich 10 (eins null), 11 (eins 
eins), 12 (eins zwei) usw. Bei 19 sehen wir uns dem gleichen Problem 
gegenübergestellt. Doch wieder beginnen wir bei 0 und erhöhen ledig- 
lich die vorgestellte Ziffer um eins. Das Ergebnis: 20 (zwei null). Sind 
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wir bei dieser ersten Ziffer ebenfalls bei 9 angekommen (99), so be- 
ginnen wir hier gleichfalls einfach wieder bei 0 und stellen davor die 
Zahl 1 (100). Nach diesem Prinzip werden schließlich sämtliche 
ganzen Zahlen dargestellt. Dabei werden die einzelnen Ziffern einer 
Zahl Stellen genannt und diese wiederum als Einer, Zehner, Hunder- 
ter, Tausender, ... bezeichnet. Eine Zahl z, deren Ziffern (d*1, d?2....) 
bekannt sind, läßt sich somit wie folgt errechnen: 


0 1 2 
z=d,’10 +.d,*10 + d,*10 +. 


wobei d jeweils die Einer-, Zehner-, Hunderter-, ... -stellen bezeich- 
net (eine kleine Anmerkung: eine Zahl hoch O ergibt stets 1, also 10 
hoch 0 ist gleich 1, genauso wie z.B. 5 hoch O gleich eins ist - Aus- 
nahme: O0 hoch O0 ist nicht definiert). Eine andere Darstellung ist die 
folgende (hier an dem Beispiel der willkürlich gewählten Zahl 3124): 


NNMN.KAMNNS.ANNDN..N.S.NDNAN 
NNN.SANANNAANANNANN.KDSANDN AN 





Die obere Zeile nennt dabei den Wert der einzelnen Stellen, die untere 
Zeile den Faktor d. 


7.1.2 Dualsystem 


Wir besitzen, wie gesagt, zehn Ziffern, um unsere Zahlen einiger- 
maßen übersichtlich darzustellen. Unser armer Computer muß sich je- 
doch mit 2 Ziffern begnügen (0 und 1), wie oben dargelegt. Wie aber 
zählt er dann bis 1000° Ganz einfach: genauso wie wir! Also: 


0,1 


damit ist sein Ziffernschatz "verbraucht" und er startet wieder bei 0, 
setzt aber gleichfalls als Kennzeichen eine l davor und erhält: 


10 
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Es geht weiter mit: 
11,100,101,110,111,1000,1001,1010,1011,1100,1101..... 

Wie Sie sehen, ist das sogenannte Binärsystem völlig analog zu dem 

uns vertrauten Dezimalsystem aufgebaut. Entsprechend läßt sich der 


Wert einer Dualzahl durch die folgende Formel errechnen: 


0 1 2 
Zz= by" 2 + b,*2 + b,*2 +... 


wobei die Parameter b,, bu: ba» -- die einzelnen Ziffern, angefangen 
von der ersten (Einerstelle) bis zur höchsten Dualstelle, darstellen. 
Kennen Sie also die Ziffern einer Dualzahl, so ist es Ihnen mit Hilfe 
dieser Formel möglich, sie in eine Dezimalzahl umzurechnen. Wie 
oben kann dies ebenfalls durch die folgende Tabelle erreicht werden 
(hier an dem Beispiel der Zahl 10110100): 





Eine solche Stelle nennt man nun in der Computerfachsprache ein Bit, 
d.h. eine Informationseinheit. Unter Informationseinheit (oder Bit) 
versteht man also die Möglichkeit zweier Zustände (ja oder nein bzw. 
1 oder 0). In Ihrem Rechner sind nun 8 solcher Bits (oder Dualstellen) 
zu einer Einheit zusammengefaßt, dem sogenannten Byte. Mit diesen 8 
Bits lassen sich also Zahlen von 0-255 darstellen. Mit zwei Byte (=16 
Bits) dagegen schon von 0-65535. Wollen wir ein Byte also in eine 
Dezimalzahl umrechnen (was notwendig wird, wenn wir von Basic aus 
Änderungen direkt an bestimmten Speicherstellen vornehmen wollen), 
so verwenden wir selbstverständlich wieder unsere Tabelle (oder die 
Formel). 
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Wollen wir dagegen umgekehrt eine Dezimalzahl in eine Dualzahl 
umrechnen, so gehen wir wie folgt vor (am Beispiel der Zahl 180): 


180 | 128 | = | 1 Rest 52 
52| & | = | 0 Rest 52 
52 | 32 | = | 1 Rest 20 
20 | 16 | = | I Rest 4 
«| 8]|=|0ORest 4 
4| 4]|=|1Rest 0 
0| 2]|=|ORest 0 
0| 1]|=]|PORest 0 
18074) = 10200, 


Hier wurde also die umzurechnende Zahl 180 nacheinander durch die 
Potenzwerte aus der Tabelle geteilt. Das Ergebnis stellt dabei jeweils 
eine Ziffer der gewünschten Dualzahl dar, der Rest dieser Division 
wird für die übrigen Rechnungen weiterverwendet. 


Eine zweite Methode ist die folgende. Sie eignet sich besonders für 
Computerprogramme, da sie rekursiv und damit besonders einfach und 
schnell ist: 


180 | 2 = 90 Rest 0 
90 | 2 = 45 Rest 0 
45 | 2 = 22 Rest 1 
22 | 2 = 11 Rest 0 
1112= 5 Rest 1 

5|2= 2 Rest 1 
2 | 2= 1 Rest 0 
1j2= 0 Rest 1 


Hier wird, wie Sie sehen, ständig durch 2 geteilt. Der jeweilige Rest 
stellt dabei startend von der Einerstelle eine Dualziffer dar. Das Er- 
gebnis der Divison wird weiter für die folgenden Rechnungen ver- 
wandt, solange, bis es 0 wird. 


Um zu kennzeichnen, daß es sich bei einer bestimmten Zahl um eine 
Dualzahl handelt, setzen wir vereinbarungsgemäß ein Prozentzeichen 
(%) vor die jeweilige Zahl. Dies ist üblich und wird auch im weiteren 
verwendet. 
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Wie Sie in den ganzen Ausführungen sehen, werden unsere Zahlen auf 
die Dauer umständlich lang und unübersichtlich. Der Computer kann 
damit sehr viel besser umgehen. Wir aber sehnen uns nach unserer 
guten alten Dezimalschreibweise. Doch hier ist die Umrechnung stets 
etwas schwierig, wie Sie sahen. Aus diesem Grunde hat man sich 
etwas anderes ausgedacht, das: 


7.1.3 Hexadezimalsystem 


Das Hexadezimal- oder l6er-System bietet hier einige Vorteile, die Sie 
im folgenden kennenlernen werden. Es besitzt 16 verschiedene 
Ziffern. Da wir von unserem Dezimalsystem her jedoch nur 10 
Ziffern kennen, müssen wir sechs weitere erfinden. Alle verfügbaren 
Ziffern lauten: 


Dez 0] 1| 2] 3] 4] 5] 6| 7| 8] 9[10111]12]13]14]15 
Hex $0|$1|82|83|84|85|86]87|58|89|sA|sB |Sc|s |SE|SF 


Die fehlenden Ziffern wurden also durch Buchstaben symbolisiert. 
Um eine Hexadezimalzahl als solche zu kennzeichen, ist es üblich, ein 
$ (Dollarzeichen) vor diese Zahl zu setzen. Wie Sie sich denken 
können, läuft die Berechnung oder Umrechnung zwischen den einzel- 
nen Systemen völlig analog. Mithilfe der folgenden Tabelle rechnen 
Sie eine Hexadezimalzahl in eine lI0er-Zahl um (am Beispiel $FE2A): 












Diese Verwandlung ist ebenfalls rekursiv möglich. 
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Die umgekehrte Rechnung lautet dagegen: 


65066 | 4096 = | 15 | Rest 3626 

3626 | 256 = | 14 | Rest 42 
42| 1%=| 2| Rest 10 
10] 1=|10|Ret 0 
65066 


(9) ° #2Ah) 


Sie sehen, diese Umrechnung folgt den selben Gesetzmäßigkeiten, wie 
unter Dualzahlen beschrieben. Die dort erwähnte rekursive Methode 
ist hier selbstverständlich ebenfalls anwendbar. 


Welchen Vorteil bietet nun das beschriebene Hexadezimalsystem? 
Zunächst einmal ist es durch dieses System möglich, Zahlen sehr kurz 
und übersichtlich anzugeben. Dies allein ist jedoch noch nicht aus- 
schlaggebend. Wichtig ist, daß sich die Umrechnung von Hexadezi- 
mal- in Dualzahlen äußerst einfach gestaltet. Jeweils 4 Binärziffern 
nämlich ergeben stets eine Hexadezimalziffer. Ein Byte kann also 
durch 2 Hexziffern festgelegt werden, z.B.: 


% 1101 0110 
s$ D 6 


Sie sehen, wie einfach und übersichtlich so eine sonst umständlich 
lange Dualzahl beschrieben werden kann. Hier im Anhang finden Sie 
zu Ihrer Unterstützung Dez-Hex-Dual-Konversionstabellen. 


7.1.4 Logische Operationen 


Um später die Inhalte bestimmter Bytes oder Speicherstellen zu verän- 
dern oder zu manipulieren, sind verschiedene logische Operationen 
nützlich, die auch vom Commodore-Basic aus angewählt werden 
können und von denen hier drei kurz beschrieben werden sollen: 
AND, OR und EOR. Bei allen dreien sind stets zwei miteinander zu 
verknüpfende Dualzahlen notwendig. 


Anhan 67 
a) AND: 


Nehmen wir einmal an, Sie wollen ein bestimmtes Bit in einem Byte 
nur dann erhalten, wenn es gleichzeitig in einem anderen Byte steht. 
In diesem Falle verwenden Sie die AND-Verknüpfung. Sie wird Bit 
für Bit vorgenommen und kann durch die folgende Verknüpfungs- 
tabelle beschrieben werden: 


BIEILZLTEER 


2 RR 
AAG LINZ varırırır PX 
NN NR 


Y N 
NKAKKKKA 


« «“ 





In der obersten und in der äußerst linken Reihe stehen jeweils die 
beiden zu verknüpfenden Werte. Im Schnittpunkt der jeweiligen 
Zeilen und Spalten finden Sie dann das Ergebnis der logischen Ver- 
knüpfung. Sie sehen also, daß das Ergebnis nur dann gleich 1 ist, 
wenn beide verknüpften Bits ebenfalls gleich I sind, andernfalls bleibt 
alles 0. Wollen wir nun zwei vollständige Bytes (bestehend aus je 8 
Bits) miteinander "ANDieren", so sieht das Ganze so aus: 


10110010 
AND 01100111 


00100010 


Hier wurde also jedes einzelne Bit des ersten mit dem korrespon- 
dierenden Bit des zweiten Bytes durch AND miteinander verknüpft. 


Diese Operation wird neben der als nächstes beschriebenen ständig 
verwendet, um z.B. lediglich ein Bit eines Bytes zu verändern, wäh- 
rend die anderen erhalten bleiben. 
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b) OR: 


Die OR-Verknüpfung kann - wie auch AND - durch eine sogenannte 
Verknüpfungstabelle dargestellt werden: 


U 
Ü 


SONNIG, 


KPPLLLEEEREE FERN 
OILGALGAGGAGAHGHAHGAGLE 





Wie ersichtlich wird das Ergebis schon dann 1, wenn bereits eines der 
beiden zu verknüpfenden Bits gleich I ist. Ein Byte kann somit etwa 
so geÖRt werden: 


10110010 


OR 01100111 
11110111 


b) EOR: 


Die EOR oder exklusiv-ODER-Verknüpfung wird wie folgt in einer 
Verknüpfungstabelle dargestellt: 


AnMans 7 


Bei dieser Verknüpfung wird nur dann ein Ergebnisbit gleich Il, wenn 
beide Ausgangsbits unterschiedlich sind. Haben Sie beide den gleichen 
Wert (beide I oder beide 0), dann wird das Ergebnis 0. Die exklusiv- 
ODER-Verknüpfung eines Bytes sieht dann wie folgt aus: 


10110010 
EOR 11110111 
01000101 


NYAAARAAARHRN 


excel. 
oder 


EEE 
RN N REDEN 
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7.2 Anhang zur allgemeinen Graphik 


7.2.1 Programmoptimierung 


In den einzelnen Kapiteln haben wir Ihnen viele Basicprogramme vor- 
gestellt. Doch stört uns oft Ihre Langsamkeit, was nicht selten schöne 
Effekte verschleiert. Im folgenden werden Ihnen einige Tips gegeben, 
wie Sie Ihre Basicprogramme friesieren können. 


Man unterscheidet grundsätzlich zwei Methoden der Geschwindig- 
keits-Aufbesserung: 


1.) Das Optimieren des Basicprogrammes selbst 
2.) Das Ersetzen von langwierigen Basicroutinen durch entspre- 
chende Assemblerprogramme. 


Zum ersten Punkt seien hier einige geraffte Informationen gegeben: 


- Vermeiden Sie REM-Zeilen (zumindest oder besonders in oft zu 
durchlaufenden Schleifen). 


- Vermeiden Sie zu viele Zeilen. Oft zu durchlaufende Schleifen etc. 
sollten in möglichst wenigen Zeilen untergebracht werden (nutzen 
Sie die Befehlsabkürzungen, um möglichst viele Befehle in eine 
Zeile zu bekommen). 


- Vermeiden Sie Leerzeichen zwischen oder in den Befehlen, die 
nicht syntax- oder programmnotwendig sind. 


- Verringern Sie den Rechenaufwand in zeitkritischen Schleifen, 
indem Sie wenn dies möglich ist, Rechnungen oder Teilrechnungen 
bereits vor Aufruf der Schleife durchführen und die Ergebnisse in 
Zwischenspeichern bereithalten. 


- Vermeiden Sie das direkte Rechnen mit Zahlen (Konstanten) in 
Schleifen; besser ist, wenn Sie diese vor Aufruf der Schleife in 
entsprechende Zischenspeicher packen, da Zahlen immer erst in das 
rechnerinterne Floatingpoint-Format umgerechnet werden müssen. 


- Vermeiden Sie Unterprogrammaufrufe (GOSUBs) oder GOTOs in 
zeitrelevanten Schleifen. 
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- Konstruieren Sie Schleifen möglichst nur mit FOR...NEXT - Ver- 
meiden Sie IF. 


- Definieren Sie viel gebrauchte (vor allem in Schleifen verwendete) 
Speicher möglichst zuerst. Es genügt z.B. ein X=0 am Programm- 
anfang, wenn Sie diese Variable im Laufe des Programmes sehr 
häufig verwenden. 


- Packen Sie zusammengehörige Programmteile möglichst nahe bei- 
einander, um langes Suchen des Rechners nach der Zeilennummer 
bei GOTO und GOSUB abzukürzen. 


- Legen Sie DATA-Zeilen möglichst zusammen und ebenfalls in 
möglichst wenigen Zeilen an. 


Leider vertragen sich (fast) alle diese Maßnahmen nicht mit der 
geforderten Übersicht über das Programm und sollten deshalb teil- 
weise möglichst erst dann durchgeführt werden, wenn das Programm 
läuft’. Dieses ’speed up’ Ihres Programms sollte also sein letzter 
Schliff sein. 


Der zweite Punkt, das Ausführen von Maschinenprogrammen, ist na- 
türlich etwas schwieriger, stellt aber bei vielen nicht arithmetischen (= 
nicht mathematischen) Prozessen eine sinnvolle und die effektivste 
Maßname dar, um Programme zu beschleunigen. Das Maschinenpro- 
gramm steht dazu in DATA-Zeilen und wird vor der Ausführung des 
eigentlichen Basicprogramms durch READ ausgelesen und in den je- 
weiligen Speicherbereich gePOKEt, in dem das Programm laufen soll, 
das später durch SYS aufgerufen wird (s. Zeichenformer, Spriteeditor 
und die vielen Beispiele, die von Assemblerprogrammen unterstützt 
werden). 


Am eindrucksvollsten zeigt sich der Nutzen dieser Technik bei be- 
stimmten graphischen Routinen (s. Graphik-Paket). Hier sollen die in 
Basic wohl zeitaufwendigsten Arbeiten mit der Graphik kurz durch 
entsprechende Assemblerroutinen ersetzt werden. Es sind dies: das 
Löschen der Graphik und die Farbgebung: 
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Graphik löschen 


100 FOR I = 51200 To 51221 

110 READ X : POKE I1,X : S=S+X : NEXT 

120 DATA 169, 32,133,254,160, 0,132,253,162, 32,152,145 
130 DATA 253,200,208,251,230,254,202,208,246, 96 

140 IF S <> 3772 THEN PRINT "FEHLER IN DATAS I!" : END 
150 PRINT "OK" 


Farbe setzen 


100 FOR I = 51222 TO 51261 

110 READ X : POKE 1,X : S=St+X : NEXT 

120 DATA 32,241,183,134,151,162, 3,169, 4,133,254,160 
130 DATA 0,132,253,132, 2,165,151,145,253,200,196, 2 
140 DATA 208,249,230,254,202,240, 3, 16,242, 96,162,232 
150 DATA 134, 2,208,235 

160 IF S <> 5970 THEN PRINT "FEHLER IN DATAS II : END 
170 PRINT "OK" 


Diese beiden Einleseroutinen können Sie in Ihre Programme einbauen, 
wenn Sie sich nicht die Mühe gemacht haben, das Graphik-Aid in 
Ihren Rechner zu tippen. Die Syntax der beiden neuen Graphikbefehle 


lautet: 

SYS 51200 : REM GRAPHIK LOESCHEN 

SYS 51222,16*PF+HF : REM FARBE SETZEN 
Dabei bedeuten: 


PF: Punktfarbe 
HF: Hintergrundfarbe 


Wie sie anzuwenden sind, zeigen Ihnen die Erläuterungen in Kapitel 


5.7. 


Anhang 681 
7.2.2 Graphikspeicheraufbau 


Im folgenden wird Ihnen der Aufbau der zwei wichtigsten Graphik- 
Speicherfunktionen dargestellt: Videoram und Graphikspeicher. Zu 
den am Rand angegebenen relativen Adressen der jeweiligen Zeilen- 
anfänge müssen Sie stets noch die Basisadresse hinzuzählen. Diese 
hängt von der Lage des Speichers ab und lautet nach dem Einschalten 
für den Videoram: 1024 ($0400). Der Farbram besitzt den gleichen 
Aufbau wie der Videoram und hat die Basisadresse: 55296 ($D800). 


Bei dem Schaubild für den Graphikspeicher müssen Sie jeden Kasten 
noch einmal in 8x8 Kästchen unterteilen, um die einzelnen Punkte zu 


symbolisieren. Den genauen Aufbau entnehmen Sie bitte dem 3. 
Kapitel. 
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72.2.1 Graphikspeicher 
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7.2.2.2 Video - RAM 
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7.2.3 Farbtabelle 


Der Commodore 64 besitzt in allen verfügbaren Modi 16 Farben. 
Jeder dieser Farben ist ein sogenannter Farbcode zugeordnet, der in 
die entsprechenden Register gePOKEt wird, die für Farbangelegen- 
heiten zuständig sind. Gleichzeitig können Sie aber auch alle 16 
Farben im Textmodus für das Aussehen der Zeichen von Hand 
(Tastatur) aus anwählen. Dementsprechend gibt es für jede Farbe 
einen ASCII-Code, der die Bestimmung der Textfarbe auch von Pro- 
grammen aus ermöglicht. In PRINT-Statements erscheinen die typi- 
schen Graphikzeichen. Die folgende Tabelle vereinigt alle Ansteue- 
rungsmöglichkeiten übersichtlich zum schnellen Nachschlagen. 


Taste ASCII Ausgabe Codes Farbe 

Dez Hex Dez Hex 
<ctrl> 1 144 $90 R 00 $00 schwarz 
<ctrl> 2 005 $05 3 01 $01 weiß 
<ctrl> 3 028 $IC 2 02 $02 rot 
<ctrl> 4 159 $9F % 03 $03 zyanblau 
<ctrl> 5 156 $9C 3 04 $04 violett 
<ctrl> 6 030 $1E & 05 $05 grün 
<ctrl> 7 031 $1F E 06 $06 blau 
<ctrl> 8 158 $9E u 07 $07 gelb 
<c=>> 1 129 $81 Se 08 $08 orange 
<c=> 2 149 895 E 09 $09 braun 
<c=>> 3 150 896 u 10 $0A hellrot 
<c=>> 4 151 $97 E 11 $0B dunkelgrau 
<c=> 5 152 $98 ı3 12 $OC mittelgrau 
<c=> 6 153 899 E 13 $0D hellgrün 
<cz> 7 154 $9A aa 14 $OE hellblau 
<c=> 8 155 $9B u 15 $0F hellgrau 


Anhang 685 
7.2.4 Bildschirmcodes 


Jedem Zeichen des Bildschirms ist ein bestimmter ASCII-Code, aber 
auch ein Bildschirmcode zugeordnet. Letzterer ist der Code, mit dem 
das Zeichen im Videoram abgespeichert wird. Wollen Sie also ein 
Zeichen direkt in diesen Textspeicher POKEn, so verwenden Sie jene 
Werte. Die Codes für die inversen Zeichen erhalten Sie, indem Sie 128 
zu denen der normalen Zeichen hinzuaddieren. 
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7.2.5 Dez/Hex/Dual-Konversionstabelle 


%0010 0000 
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Anhang 687 
7.2.6 Spriteentwurfsblatt 


Mit Hilfe dieses Formblattes ist es Ihnen möglich auf einfache Art 
und Weise Sprites zu erstellen, indem Sie die einzelnen Kästchen, die 
jeweils einen Punkt darstellen, ausmalen und die oben stehenden 
Werte zu einem Byte (drei Bytes pro Zeile) zusammenzählen. Multi- 
colorsprites erstellen Sie, indem Sie für einen Punkt zwei nebeneinan- 
der liegende Kästchen (möglichst die 3 verschiedenen Multicolorfar- 
ben auch in drei verschiedenen Farben zeichnen) ausmalen. 
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7.2.7 Zeichenentwurfsblatt 


Ebenso wie beim Spriteentwurfsblatt können Sie auch mit der folgen- 
den Tabelle Multicolorzeichen erstellt werden, indem Sie für einen 
Punkt jeweils zwei Kästchen ausmahlen. 
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7.2.8 VIC-Register- Übersicht 


[registerf adresse |eit? Bits Bits Bit4 Bit3 Bit2 Bit Bito 
[oed ner | oe ve In a 2 0% 8 4 2 1 
53243 $D000 Sprite 0 --- x - Koordinate (Bits 0-7) (0-255) 





53249 $D001 Sprite 0 --- y - Koordinate (0-255) 








= 80002 Sprite I --- x - Koordinate (Bits 0-7)(0--255) 


j $02 





53251] $D003 Sprite 1 --- y - Koordinate (0-255) 












53252] $D004 Sprite 2 -- x - Koordinate (Bits 0-7)(0-255) | 
05] 805 | 53253] $D005 Sprite 2 --- y - Koordinate (0-255) | 


Sprite 3 --- x - Koordinate (Bits D-7)(0-255) 













Sprite 3 y - Koordinate (0-255) 





06|806 | 53254| 80005 
07|$07 53255 80007 
En ie Sprite 4 --- x - Koordinate (Bits 0-7)(0-255) 


53257| $D009 Sprite 4 --- y - Koordinate (0-255) 


san 


$DO0A Sprite 5 --- x - Koordinate (Bits 0-7)(0-255) 


| 


— 1 





























Sprite 5 --- y - Koordinate (0-255) | 
12ls0c | 53260 Sprite 6 --- x - Koordinate (Bits 0-7)(0-255) | 
13|80D | 53261 |$D00D Sprite 6 --- y - Koordinate (0-255) | 
Ar ns $DOOE Sprite 7 --- x - Koordinate (Bits 0-7)(0-255) | 
15[$0F | 53263 |$DooF Sprite 7 --- Y - Koordinate (0-255) | 
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[sie] ae _ Tai» Je nes Jona [ee Jo» foren Jo 
ur 





Dez|tex | Dez [hex | 128 al w| s| 4a] 2] 


























































15j810 | 33264 = Sprite 0-7 --- x - Koordinaten (Bit 8) (#256) 
Sp. 7 | sr. 6 |sp- 5 |sp. 4 | sp. 3 | sr. 2 
17|$11 | 5326580011 | Raster | extend.| Hi-Res-| Bild | 25/24 y-Scrolling 
Bit 8 | Color a aus | Zeilen 
18[812 | 53266] $0012 Rasterzeile (aktuelle/Vorgabe) (Bits 0-7) (0-259 
191813 | 53267] $DOL3 Lightpen --- x - Koordinate (0-255) | 





u eo Lightpen --- y - Xoordinate (0-255) | 
aulsıs | 5326>[spo1s Sprite --- an / aus 
so. 7 [sp 6 | sv. 5 |. A [se 5 |. 2 | so. ı |. 0 
































































































Kulticolor - Sprites 


| 221816 | 53270|$D016 nicht benutzt Kulti-| 40/38 x-Scrolling 
ar ee | 

| 231817 | 53271| $D017 Sprite --- y - Vergrößerung 
sp. ? |sp- 6 | Sp. 5 [sp 4 | sp. 3 | so. 2 | sp. ı |sp. 0 

| 2alsıs | 53272| 0018 | Bildschiraspeichefadr. (#1024)| Zeichengen.adr.(#2048) | nicht | 
sit ıs| Bit 12] sit 11 |Bit a benutzt 

| 251819 | 53273|$D0019 | IRO- nicht benutzt Light-| Sp.-Sp} Sp.-Hg.| Raster 
Flag pen 2 Kollis.| zeilen 

| 2%6i$1A | 532741 $DOIA nicht benutzt Light- | Sp.-Spj Sp.-Hg.| Raster 

en Kollis| zeilen 
27818 | 53275} $D018 Sprite - Hintergrund - Priorität 
| Sp. 7 |Sp- 6] Sp- 5 |sp- 4| Sp- 3 [ sp. 2 | Sp. ı = 


Sp. 6| 5p. 5 |sr- 4] sp. 3 | 9. 2 | sp. ı | sp. 0 


Sprite --- x - Vergrößerung 
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Sprite - Sprite - Kollision 
sp. 5 | sp. 4 | sp. 3 | sp. 2 
Sprite - Hintergrund - Kollision 
Sp. 4 [5p. 3 |5p. 2 [sp. ı |5p. 0 


32820 | 53280| 0020 Rahmenfarbe (0-15) 
z3lszı | 53281 = Hintergrundfarbe Wr. 0 (0-15) 
341322 | 53282|$0022 Hintergrundfarbe Kr. 1 (0-15) 


Hintergrundfarbe Nr. 2 (0-15) 
36/824 | 53284|$D024 Hintergrundfarbe Kr. 3 (0-15) 


53285 |8D025 Gemeinsame Sprite-Farbe Nr. 0 in Multicolor (0-15) 


Gemeinsane Sprite-Farbe Nr. 1 in Nulticolor (0-15) 


Farbe für Sprite Nr. 0 (0-15) 


Farbe für Sprite Nr. 1 (0-15) 


53283 |8D029 Farbe für Sprite Nr. 2 (0-15) 


Farbe für Sprite Nr. 


Farbe für Sprite Nr. 


53292 |$D02E Farbe für Sprite Nr. 5 (0-15) 


Farbe für Sprite Nr. s (0:15) 


53294 |$D02E Farbe für Sprite Nr. 7 (0-15) 
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7.2.9 Weiterführende Literatur 


Commodore 64: 


Sally Greenwood Larsen 

Sprite Graphics for the Commodore 64 
Micro Text Publications 

ISBN: 0-13-838144-5 


Computel’s First Book of Commodore 64 
Compute! Books Publication 
ISBN: 0-942386-20-5 


C. Lorenz 

Beherrschen Sie Ihren Commodore 64 
Hofacker Verlag 

ISBN: 3-88963-147-9 


Stan Krute 

Commodore 64 Graphics & Sound Programming 
Tab Books Inc. 

ISBN: 0-8306-0140-6 


Shaffer 

Commodore 64 Color Graphics: A Beginners Guide 
The Book Company 

ISBN:0-912003-06-5 


Angerh./Brück./Eng./Gerits 
64 intern 

DATA BECKER GmbH 
ISBN: 3-89011-000-2zIn] 
Graphik-Fachbücher: 


Faux/Pratt 

Computational Geometry for Design and Manufacture 
Ellis Horwood Limited 

ISBN: 0-85312-114-1 


Hearn/Baker 

Computer Graphics for the IBM Personal Computer 
Prentice-Hall, Inc. 

ISBN: 0-13-164335-5 
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Encarnacao 

Computer Aided Design-Modelling, Systems Engineering, 
CAD-Systems 

Springer-Verlag 

ISBN: 0-387-10242-6 


Encarnacao 

Computer-Graphics - Programmierung und Anwendung von 
graphischen Systemen 

R.Oldenbourg Verlag 

ISBN: 3-486-34651-2 


Brodlie 

Mathematical Methods in Computer Graphics and Design 
Academic Press 

ISBN: 0-12-134880-6 


Barnhill/Boehm 

Surfaces in Computer Aided Geometric Design 
North-Holland 

ISBN: 0-444-86550-0 


Myers 

Microcomputer Graphics 
Addison-Wesley Publishing Company 
ISBN: 0-201-05092-7 


Besonders zu empfehlen: 


David F. Rogers 

Procedural Elements for 
Computer Graphiks 

Mc Graw-Hill Book Company 
ISBN 0-07-053534-5 


Steven Harrington 

Computer Graphics 

A Programming Approach 
Mc Graw-Hill Book Company 
ISBN 0-07-026751-0 
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Günter Spur/Frank-Lothar Krause 
CAD-Technik 

Carl Hanser Verlag München Wien 
ISBN 3-446-13897-8 


Roy A. Plastock/Gordon Kalley 
Theory and problems of 
Computer Graphics 

Mc Graw-Hill Book Company 
ISBN 0-07-050326-5 


Braun 

Atari ST 

3D Grafik Programmierung 
DATA BECKER GmbH 
ISBN 3-89011-130-0 


Norbert Treitz 

Spiele mit Computer Grafik 
für Phantasie und Logik 
Hagemann Verlag 

ISBN 3-544-53003-1 
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7.3 Anhang zur Supergraphik 


7.3.1 Kurzbeschreibung der Supergraphik-Befehle 


A. Grundbefehle: 


a) Zeichenmodi: 


zm| Wirkung |Beispiel 
| Figur zeichnen |PLOT 0,160,100 
| Figur loeschen |PLoOT 1,160,100 
2] Figur invertieren |pLOT 2,160,100 
3| Figur punktieren |pLoT 3,160,100 
4| Graphikcursor bewegen|PLOT 4,160,100 


b) Secundärbefehle: 


ie - Zeichnen mit Farbsetzung 


Beispiel: PLOT C 1,100,150 


B m, - Pinselwahl 


Beispiel: PLOT B 45,,20,40 


T var, - 
PLOT (zm),x,y 
PLOT C (zm),x,y 
PLUT Bm, (zm),x,y 
PLOTCBm, (zm),x,y 
PLOT T var, (zm),x,y 
PLOT C T var, (zm),x,y 
PLOT Bm, T var, (zm),x,y 
PLOT CBm, T var, (zm),x,y 
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c) Befehle: 


PLOT 


Befehl: PLOT zm,x,y 
Beispiel: PLOT 1,100,199 
Parameter: zm: Zeichenmodus 
x:  x-Koordinate 
y:  y-Koordinate 
Funktion: Setzen (Loeschen etc.) eines Punktes 


PLOT ... TO ... 


Befehl: PLOT zm,xl,yl TO x2,y2 (TO x3,y3 TO ...) 
Beispiel: PLOT 0,100,199 TO 0,20 
Parameter: zm: Zeichenmodus 
xl: x-Startkoordinate 
yl: y-Startkoordinate 
x2: x-Zielkoordinate 
y2: y-Zielkoordinate 
Funktion: Setzen (Loeschen etc.) einer oder mehrerer Linien 


PLOT TO ... 


Befehl: PLOT zm, TO x2,y2 (TO x3,y3 TO ...) 

Beispiel: PLOT 2, TO 100,199 

Parameter: zm: Zeichenmodus 
x2: x-Zielkoordinate 
y2: y-Zielkoordinate 

Funktion: Setzen (Loeschen etc.) einer Linie vom Graphik- 
cursor 


CIRCLE 


Befehl: CIRCLE zm,,xm,ym,xr,yr 
Beispiel: CIRCLE 0,,160,100,80,90 
Parameter: zm: Zeichenmodus 
xm: x-Mittelpunktskoordinate 
ym: y-Mittelpunktskoordinate 
xt: x-Radius 
yr: y-Radius 
Funktion: _ Setzen (Loeschen etc.) einer Ellipse, Kreis 
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Bögen: 


Befehl: CIRCLE zm,(sl),xm,ym,xr,yr,wa,we 
Beispiel: CIRCLE 0,2,160,100,80,90,30,130 
Parameter: zm: Zeichenmodus 

sl: Seitenlänge (0-255) 

xm: -Mittelpunktskoordinate 

ym: -Mittelpunktskoordinate 

xt: -Radius 

yr: y-Radius 

wa: Anfangswinkel (0-360) 

we: Endwinkel (0-360) 
Funktion: Setzen (Loeschen etc.) von Kreis-, Ellipsen- oder 


Vieleck-Bögen 
DRAW 


Befehl: DRAW zm,str$ ON x,y 
Beispiel: DRAW 2,A$ ON 160,100 
Parameter: zm: Zeichenmodus 
str$: Definitionsstring 
x:  x-Koordinate 
y:  y-Koordinate 
Funktion: Setzen (Loeschen etc.) einer frei definierbaren Figur 


0 = hoch 

l = rechts 

2 = runter 

3 = links 

Befehl: DRAW zm,str$ 


Beispiel: DRAW 2,A$ 

Parameter: zm: Zeichenmodus 
str$: Definitionsstring 

Funktion: Setzen (Loeschen etc.) einer frei definierbaren Figur 
Graphikcursor aus 
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FRAME 


Befehl: FRAME zm,d,xl,yl TO x2,y2 
Beispiel: FRAME 0,10,100,100 TO 200,150 
Parameter: zm: Zeichenmodus 
d: Rahmendicke 
xl: x-Eckkoordinate 1 
yl: y-Eckkoordinate | 
x2: x-Eckkoordinate 2 
y2: y-Eckkoordinate 2 
Funktion: Setzen (Loeschen etc.) eines Rahmens definierter 
Dicke 


FILL 


Befehl: FILL zm,xl,yl TO x2,y2 
Beispiel: FILL 0,100,100 TO 200,150 
Parameter: zm: Zeichenmodus 
xl: x-Eckkoordinate 1 
yl: y-Eckkoordinate | 
x2: x-Eckkoordinate 2 
y2: y-Eckkoordinate 2 
Funktion: Setzen (Loeschen etc.) eines Feldes 


TEXT 


Befehl: TEXT zm,str$,x,y,m 
Beispiel: TEXT 0,"HALLO",100,130,0 
Parameter: zm: Zeichenmodus 
str$: zu schreibender Text 
x:  x-Koordinate 
y:  y-Koordinate 
m: Textmodus (0,1) 
Funktion: Setzen (Loeschen etc.) eines Textes als Graphik 


0: Groß/Graphikmodus 


m 
m = I: Groß/Kleinschrift 
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PAINT 


Befehl: PAINT zm,x,y 
Beispiel: PAINT ,160,100 
Parameter: zm: Zeichenmodus 
x:  x-Koordinate des 
Testpunktes 
y:  y-Koordinate des 
Testpunktes 
Funktion: Ausfüllen einer beliebigen geschlossenen Fläche 
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B. Weitere Graphikbefehle: 


GMODE 


Befehl: GMODE (s)(,‚m)(,or,ur) 
Beispiel: GMODE 0,1 
oder: GMODE 2,7,30,70 
Parameter: s: Seitenmodus (s.u.) 
m: Graphikmodus (s.u.) 
or: oberer Textrand bei m=7/8 
ur: unterer Textrand bei m=7/8 
Funktion: bestimmen des Graphikmodus 


s=0: Graphikseite 1 wird angezeigt und befehligt 

s=|: Graphikseite I wird angezeigt, Seite 2 aber befehligt 

s=2: Graphikseite 2 wird angezeigt und befehligt 

s=3: Graphikseite 2 wird angezeigt, Seite 1 aber befehligt 

m=0: Textmodus bzw. LGR werden angezeigt und auch be- 
fehligt 

m=]| HGR wird angezeigt und befehligt 

m=2 MC wird angezeigt und befehligt 

m=3 HGR wird angezeigt, LGR jedoch gefehligt, d.h. die 
Graphikbefehle beziehen sich auf die unsichtbare Low- 
Graphik 

m=4: MC wird angezeigt, jedoch LGR befehligt 

m=S: LGR und normaler Text werden angezeigt, die Befehle 
gelten aber für die hochauflösende Graphik 

m=6: LGR bzw. Text werden angezeigt, MC jedoch befehligt 

m=17: Gemischte Text- und Graphikanzeige, LGR wird be- 


fehligt. Im Anschluß wird die Angabe der Fensterposi- 
tion verlangt 


m=8: Gemischte Text- und Graphikanzeige, HGR wird be- 
fehligt; Angabe der Fensterposition 
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GCLEAR 


Befehl: 
Beispiel: 


Parameter: 


Funktion: 


INVERS 


Befehl: 
Beispiel: 


Parameter: 


Funktion: 


GCOMB 


Befehl: 
Beispiel: 


Parameter: 


Funktion: 


GCLEAR (m)(‚xl,yl TO x2,y2) 
GCLEAR 

GCLEAR 255 

GCLEAR 4,30,40 TO 50,70 

m:  Löschmaske 

xl: x-Koordinate Fenster oben links 
yl: y-Koordinate Fenster oben links 
x2: x-Koordinate Fenster unten rechts 
y2: y-Koordinate Fenster unten rechts 
Löschen des Graphikbildschirms bzw. eines Bild- 
schirmfensters 


INVERS (m)(‚x1,yl TO x2,y2) 
INVERS 

INVERS 240 

INVERS 240,20,30 TO 60,70 

m: Invertierungsmaske 

xl: x-Koordinate Fenster oben links 
yl: y-Koordinate Fenster oben links 
x2: x-Koordinate Fenster unten rechts 
y2: y-Koordinate Fenster unten rechts 
Invertieren des Graphikbildes oder eines Graphik- 
fensters mit 256 verschieden Masken 


GCOMB m (‚x1,yl TO x2,y2 (TO x3,y3)) 
GCOMB I 

GCOMB 2,20,30 TO 50,120 

GCOMB 3,40,10 TO 90,130 TO 30,50 

m: Verknüpfungsmodus (0-7) 

xl: x-Koordinate Fenster oben links 

yl: y-Koordinate Fenster oben links 

x2: x-Koordinate Fenster unten rechts 

y2: y-Koordinate Fenster unten rechts 

x3: x-Koordinate Zielfenster oben links 

y3: y-Koordinate Zielfenster oben links 
Verknüpfung beider Graphikseiten, zweier Bild- 
schirmfenster, Verschiebung eines Graphikfensters 
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=4: UND-Verknüpfung zweier Seiten 

=5: ODER-Verknüpfung zweier Seiten 

6: EXKLUSIV-ODER-Verknüpfung der Seiten 

7: Copieren eines Bildschirmfensters in die andere Seite 


Befehl: TRANS m 

Beispiel: TRANS 1 

Parameter: m: Zeichensatz (0/1) 

Funktion: Copieren der Textseite in die Graphik 


m=0: Groß-/Graphiksatz 
m=1: Groß-/Kleinschrift 


GMOVE 


Befehl: GMOVE m,za,ze 
Beispiel: GMOVE 0,10,20 
Parameter: m: Verschiebemodus (0-3) 
za: Anfangszeile (0-24) 
ze: Endzeile (0-24) 
Funktion: Horizontales Rollen/Verschieben des Bildschirms 


m=0: Links rollen 
m=1: Rechts rollen 
m=2: Links verschieben 
m=3: Rechts verschieben 


SCALE= 


Befehl: SCALES= r,s 

Beispiel: SCALES= 1,5 

Parameter: r: Rotationswinkel 
s Größe 


Funktion: _Rotieren und Vergrößern einer DRAW-Figur 
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B. Farbbefehle: 


COLOR= 


Befehl: COLOR= r,h 
Beispiel: COLOR= 2,6 
Parameter: r: Rahmenfarbe (0-15) 
h:  Hintergrundfarbe (0-15) 
Funktion: Festlegen der Rahmen- und Hintergrundfarbe 


SCOL= 


Befehl: SCOL= n,‚f 
Beispiel: SCOL= 1,14 
Parameter: n: Farbregister (0-3) 


f: Farbe 
Funktion: Festlegen der Zeichenfarbe für den gesamten Bild- 
schirm. 
PCOL= 
Befehl: PCOL= n‚f 


Beispiel: PCOL= 1,14 
Parameter: n: Farbregisternummer/Registermodus (0-4) 


f: Farbnummer (0-15)/Farbregisternummer (0-3) 
Funktion: Festlegen der Zeichenfarbe 
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D. Eingabe/ Ausgabebefehle: 


GSAVE 
Befehl: 


Beispiel: 
Parameter: 


Funktion: 


GSAVE (LGCF),s,"filename"(,ga) 
GSAVE GCF,1,"MULTICOLOR",8 
LGCF : Formatsteuerung (s.u.) 

s: Angesteuerte Graphikseite 

ga: Geräteadresse 

Speichern der Graphik, Farbe oder Text 


L: Low-Graphik (Text) (1000 Bytes) 
G: Graphikspeicher (8000 Bytes) 

C: Farbvideoram (1000 Bytes) 

F: Farbram (1000 Bytes) 


GLOAD 


Befehl: 
Beispiel: 
Parameter: 


Funktion: 
HCOPY 

Befehl: 

Beispiel: 


Parameter: 
Funktion: 


GLOAD (LGCF),s,"filename"(,ga) 
GLOAD GCF,1l,"MULTICOLOR",8 
LGCE: Formatsteuerung (s.u.) 

s: Angesteuerte Graphikseite 

ga: Geräteadresse 

Laden der Graphik, Farbe oder Text 


HCOPY#n 

HCOPY# | 

n: logische Filenummer 

Fertigen einer Hardcopy der Graphikanzeige 


- HCOPYD cf,df - Farbzuordnung (Nur Farbdrucker) 
- HCOPYC#n,d - HCOPY nur für Farbdrucker 
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E. Sprite-Befehle: 


SREAD 


Befehl: SREAD str$ 

Beispiel: SREAD A$ 

Parameter: str$ : Zielstringvariable 
Funktion: Einlesen von 63 Spritedaten 


SDEFINE 


Befehl: SDEFINE s,str$ 

Beispiel: SDEFINE 9,A$ 

Parameter: s: Spritenummer (0-15) 

str$: Definitionsstring 

Funktion: _Spritedefinition-Einschalten/Ausschalten 


SPOWER 


Befehl: SPOWER or,ur 

Beispiel: SPOWER 100,150 

Parameter: or: oberer Fensterrand 

ur: unter Fensterrand 

Funktion: Zuschalten des zweiten Spritesatzes 


Befehl: SPOWER 
Beispiel: SPOWER 
Parameter: --- 


Funktion: Abschalten des zweiten Spritesatzes 


SMODE 


Befehl: SMODE s,m,fl (‚f2,f3) 
Beispiel: SMODE 1,3,7 
oder SMODE 1,8,7,2,14 
Parameter: s: Spritenummer 
m: Spritemodus (s.u.) 
fl: Farbe I (individuell)(0-15) 
f2: Farbe 2 (Multicolor-einheitlich)(0-15) 
f3:  FArbe 3 (Multicolor-einheitlich)(0-15) 
Funktion: Bestimmen der Spriteeigenschaften 
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m|m| Vergrößerung | Priorität 
MC|HGR|x-Richtung|y-Richtung|vor dem Hintegrund 


| nein | ja 
9 1] ja | nein | ja 
10| 2| nein | ja | Ja 
11| 3] ja l ja | ja 
12| 4| nein | nein | nein 
13| 5] ja | nein | nein 
14| 6| nein | Ja | nein 
151 7 ja | ja } nein 
SSET 

Befehl: SSET s,x,y (,sp) 
Beispiel: SSET 1,100,120 

oder SSET 1,100,120,4 
Parameter: s: Spritenummer 


x:  Sprite-x-Koordinate 

y:  Sprite-y-Koordinate 

sp: Geschwindigkeit für 
Spritebewegung 

Funktion: Positionieren eines Sprites 


SSET...TO... 
Befehl: SSET s,x1,yl TO x2,y2 (,sp) 
Beispiel: SSET 1,100,120 TO 50,40 
oder SSET 1,100,120 TO 50,40,4 


Parameter: s: Spritenummer 
xl: Sprite-x-Startkoordinate 
yl: Sprite-y-Startkoordinate 
x2: Sprite-x-Zielkoordinate 
y2: Sprite-y-Zielkoordinate 
sp: Geschwindigkeit für 
Spritebewegung 
Funktion: Bewegen eines Sprites von xl,yl nach x2,y2 
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SSET TO... 
Befehl: SSET s TO x2,y2 (,sp) 
Beispiel: SSET I TO 50,40 
oder SSET 1 TO 50,40,4 
Parameter: s: Spritenummer 


x2: Sprite-x-Zielkoordinate 
y2: Sprite-y-Zielkoordinate 
sp: Geschwindigkeit für 
Spritebewegung 
Funktion: Bewegen eines Sprites von der momentanen Position 
nach x2,y2 


SWAIT 
Befehl: SWAITSs 
Beispiel: SWAIT 2 
Parameter: s: Spritenummer 


Funktion: Warten bis Sprite s steht 
IF# ... THEN ... 


Befehl: IF# par THEN ... 

Beispiel: IF# U,l THEN .. 

Parameter: par: Secundärfunktion 

Funktion: DBedingtes Verzweigen unter definierten Bedingun- 
gen 


IF# U p THEN ...: 
Verzweigung bei Joystick in Port p nach oben gedrückt wird. 


IF# Dp THEN ..: 
Verzweigung bei Joystick nach unten. 


IF# Rp THEN ...: 
Verzweigung bei Joystick nach rechts. 


IF# L p THEN ....: 
Verzweigung bei Joystick nach links. 


IF# B p THEN ...: 


Verzweigung, wenn der Feuerknopf (Button) Ihres Joysticks ge- 
drückt ist. 
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IF# CN THEN ....: 
Verzweigung, wenn gerade im Augenblick eine Kollision eines 


Sprites mit einem anderen Sprite oder mit einem Hintergrund- 
zeichen stattfindet. 


IF# C THEN ...: 
Einschalten des Kollisionsinterrupt-Modus. 


IF# CC THEN ...: 
Ausschalten des Kollisionsinterrupt-Mouds. 


IRETURN 


Befehl: IRETURN 
Beispiel: IRETURN 
Parameter: /// 


Funktion: _Beenden der Unterbrechungsroutine 


Anhang 709 


F. Ton-Befehle: 


VOLUME= 


Befehl: VOLUMES= v 

Beispiel: VOLUME-= 15 
Parameter: v: Lautstärke 
Funktion: Einstellen der Lautstärke 


SOUND 
Befehl: SOUND st,w,a,d,s,r (‚f (,p)) 
Beispiel: SOUND 1,3,12,11,5,5 
oder SOUND 1,3,12,11,5,5,1 
oder SOUND 1,3,12,11,5,5,1,100 


Parameter: st: Stimme (1-3) 
w:  Wellenform (0-8) 
a: Attack (Anschwellzeit) 
d Decay (Abschwellzeit) 
s Sustain (Haltelautstärke) 
r: Release (Ausklingzeit) 
f: Filter an/aus (0-1) 
p:  Pulsrate (Tastverhältnis)(0-4095) 
E 


Funktion: instellen des Klangbildes 


ul 
oO 


San AWND- 


: Stimme ist stumm 

: Dreiecksschwingung 

: Sägezahn 

: Dreieck und Sägezahn 

: Rechteck 

: Dreieck und Rechteck 

: Sägezahn und Rechteck 

: Dreieck, Sägezahn und Rechteck 
: Rauschen 


ZELLE zgE LE 


FILTER 


Befehl: FILTER fa (‚ff,rf) 
Beispiel: FILTER 4 
oder FILTER 4,1000,14 
Parameter: fa: Filterart (0-7) 
ff:  Filtergrenzfrequenz (0-2047) 
rf: Filterresonanzfrequenz (0-15) 
Funktion: Einstellen der Filter 


710 Das Supergraphikbuch zum C64 


fa=0: kein Filter an 

fa=1: Tiefpass 

fa=2: Bandpass 

fa=3: Tief- und Bandpass 

fa=4: Hochpass 

fa=5: Hoch- und Tiefpass (Bandsperre) 
fa=6: Hoch- und Bandpass 


fa=7: Hoch-, Band- und Tiefpass (Bandsperre) 
TUNE 


Befehl: TUNE st;l,n,o (,v) 
Beispiel: TUNE 2,30,3,4 
oder TUNE 2,30,3,4,14 


Parameter: st: Stimme (1-3) 
l: Länge des Tones (0-65535) 
n: Note (0-12) 
o: Oktave (0-7) 
v: Verstimmung (0-255) 
Funktion: Spielen eines Tones 


ce ‚eis, d ‚dis, e, f ‚„fis, g ‚gis, a ‚ais, h 
12345678 990 11 122 


v=1-127: Verstimmung um v nach oben 
v=255-128: Verstimmung um 256-v nach unten 
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G. Utilities: 


DIRECTORY 
Befehl: DIRECTORY 
Beispiel: DIRECTORY 
Parameter: --- 


Funktion : Anzeigen des Disketteninhaltsverzeichnisses ohne 
Programmverlust 


MERGE 


Befehl: MERGE "filename",ga 

Beispiel: MERGE "HUSTENBONBON",8 

Parameter: ga: Geräteadresse 

Funktion: Anhängen eines Basicprogrammes von Diskette an 
ein im Speicher befindliches 


RENUM 


Befehl: RENUM sz,a 
Beispiel: RENUM 10,50 
Parameter: sz: Startzeile der neuen Version 
a: Abstand der Basiczeilen (1-255) 


Funktion: _Umnumerierung eines Basicprogrammes 


DTASET 


Befehl: DTASET zn 
Beispiel: DTASET 100 
Parameter: zn: Zeilennummer 


_____Funktion: _Setzen des DATA-Zeigers auf eine bestimmte Zeile 
KEY 


Befehl: KEY ft,"definition" 

Beispiel: KEY 2,"LIST"+CHR$(13) 

Parameter: ft: angewählte Funktionstaste (1-8) 
"definition": 16 Zeichen-Wort 


Funktion: _Umprogrammieren der Funktionstasten 
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PADDLE 


Befehl: PADDLE var,pn 
Beispiel: PADDLE A,2 
Parameter: var: Zielvariable 

pn: Paddlenummer (1-4) 


Funktion: _ Auslesen der A/D-Wandler (Paddle-Werte) 
POS= 


Befehl: POS= s,z 
Beispiel: POS= 10,15 
Parameter: s: Spalte (0-39) 
z: Zeile (0-24) 
Funktion: Positionieren des Text-Cursors 
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7.3.2 Befehlsabkürzungen: 


Zusätzlich zu den bekannten Kürzeln (s. Handbuch) können Sie für 
die Befehle Ihrer Supergraphik 64 noch folgende Abkürzungen ver- 
wenden (zusätzliche Buchstaben werden an das Kürzel angehängt). * 
bedeutet, dieser Buchstabe wird gleichzeitig mit der <shift>-Taste ge- 
drückt. Weiterhin haben Sie hier eine Übersicht über die Befehlsto- 
kens, mit denen die Supergraphik jeden Befehl im Programmspeicher 
abgekürzt vermerkt (s. auch Supergraphik-Listing): 


Befehl Kürzel Tokens 
CIRCLE „ocuenenunnn C’T .... $F2 
COLOR= „nunnunnen . C*0 .... $F5 
DIRECTORY „ou... D’/I 2... 3507 
DRAW onueneenunne . D/R .... $ED 
DTASET ...enu000.. D’T .... $DA 
FILTER „. ser n0... FI ı:u, SE3 
FILL: 2=20#.44 4200 FITL ... $EE 
FRAME „neue uonennn FÜR „2... $EF 
GCLEAR „onccccenn GC’L ... $EA 
GCOMB „nous aennn0. G’C .... $D9 
GLOAD „„ooeenunnnn G’L .... $F9 
GMODE „nncnun. un. GM .... SEI 
GMOVE „oueneunnune GMO”V .. $EB 
GSAVE „nun. unun G’S „... $FB 
HCOPY „ooooooccnne H’C „2... $FA 
IR en IF 2... SFC 
INVERS „uuu00000n IN „2... $FO 
IRETURN „.ooruu0000 IR 2... $FB 
KEY sen K’E .... $DD 
MERGE ....u0..... . M’E .... $DB 
PADDLE „..nuu0u000 PA .... $F3 
PAINT „.ooooccooo.. PA’I „.. $FD 
PCOL= „20000. ee PC SFT 
PLOT esse P’L .... $EC 
RENUM „.oooooon0nn R’E „... $DC 
SCALES „.ooocnnuna STC 2... $F& 
SCOLZ „nenn nnnunn Sc’O ... $F6 
SDEFINE „ouuceune. S’D .... $E5 
SMODE „.ocnunn00n. SM „u... $E8 
SOUND „nununonunes S’O .... $EI 
SPOWER „weununnnnn S’P .... $D8 
SREAD „.nnuuuunan “SR .... SEA 
SSET aussen S’S „... $E6 
SWAIT onunnanenunne SW .... $E7 
TEXT aaa anne T’E 2... $F1 


TRANS onneaneeeuna TUR au. $SDE 
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TUNE oenneeeennnnn TAU 2... SEO 
VOLUME= „ueereenne V/O „u... $E2 


7.3.3 Speicherbelegungen 


Im folgenden sei eine kurze Übersicht über die Speicherbereiche ge- 
geben, die Supergraphik 64 im Computer belegt (gemeint ist stets 
RAM): 


$0000-00FF: diverse Arbeitsspeicher 

$0100-01FF: normaler Stack 

$0200-03FF: unverändert genutzt 

$0400-07E7: Text-LGR-Speicher 

$0800-....: Basic-Speicherbereich 

$7700-9FFF: Supergraphik - Betriebssystem 

$A000-BFFF: Graphikseite 2 

$c000-C3FF: Graphikseite 1-Farbe (Videoram) 
Spritevektoren 

$C400-C5FF: Hardcopy-Routine 

$c600-C7FF: diverse Speicher 

$c800-CBFF: Graphikseite 2-Farbe (Videoram) 

$CCOO-CFFF: Graphikseite 2-Farbe (Farbram) 

$D000-DIFF: Spritebewegungsregister 

$0200-D5FF: Spritedefinitionen 

$D600-DFFF: diverse Massen-Hilfsspeicher 
(f. RENUMBER/GMOVE/PAINT) 

$EO00-FFFF: Graphikseite 1 


überlagert: 
$D800-DBFF: originaler Farbram 1 


Sie sehen, bei der Konzeption der Supergraphik mußte auf jedes Byte 
geachtet werden. Der zur Verfügung stehende Speicherplatz wurde 100 
prozentig genutzt: Sage und schreibe 34K RAM werden von der 
Supergraphik zusätzlich genutzt. Trotzdem gehen dem Basic-Program- 
mierer nur ganze 10K Speicherplatz verloren. Auch an anderer Stelle 
holt die Supergraphik 64 gerade noch das aus Ihrem Rechner, was 
möglich bzw. vertretbar ist - ich hoffe, zu Ihrem Nutzen! 


Anhang 715 


7.4 CAD-Zeichner 


7.4.1 Vollständiges Listing: CAD-Zeichner 


Im folgenden finden Sie ein vollständiges Listing des im 2. Kapitel 
vorgestellten CAD-Zeichners. Wie Sie wissen, wurde er dort durch das 
gesamte Kapitel hindurch entwickelt und damit aus Gründen der 
Platzersparnis nie vollständig abgedruckt. Das wird hiermit nachgeholt: 


100 
110 
120 
130 
140 
150 
160 
170 
175 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 


REM Re 


REM ** ur 

REM ** CAD-ZEICHNER ** 

REM ** sr 

RENT 

REM 

GMODE 0,1 : GCLEAR : SCOL= 0,0 


X=160 : Y=100 :REM KOORDINATEN INIT 
XA=320 : YA=200 :REM X- UND Y-AUFLOESUNG 
POKE 650,255 :REM ALLE TASTEN AUF REPEAT 
REM 
REM EINGABESCHLEIFE: 
REM 
FL=0 :REM FLAG ZURUECKSETZEN 
PLOT 2,X,Y : PLOT 2,X+1,Y :REM PUNKT INVERTIEREN 
FL=ABS(FL-1) :REM FLAG O<->1 WECHSELN 
FOR Z=1 TO 30 
GET A$ : IF A$="" THEN NEXT Z : GOTO 230 
IF FL=1 THEN : PLOT 2,X,Y =: PLOT 2,X+1,Y :REM PUNKT WIEDER 


ZURUECKSETZEN 


280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 


REM 

REM 

REM VERZWEIGUNG: 

REM 

A=ASC(A$) 

IF A=17 THEN GOSUB 1300 :REM RUNTER 
IF A=145 THEN GOSUB 1240 :REM HOCH 
IF A=29 THEN GOSUB 1340 :REM RECHTS 
IF A=157 THEN GOSUB 1390 :REM LINKS 
IF A=133 THEN GOSUB 1010 :REM F1 

IF A=137 THEN GOSUB 1040 :REM F2 

IF A=134 THEN GOSUB 1070 :REM F3 

IF A=138 THEN GOSUB 1100 :REM F4 

IF A=135 THEN GOSUB 1130 :REM F5 

IF A=139 THEN GOSUB 1160 :REM F6& 

IF A=136 THEN GOSUB 1190 :REM F7 

IF A=140 THEN GOSUB 1220 :REM F& 

IF A= 19 THEN CF=ABS(CF-1) :REM SCHNELL/LANGSAM 
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460 
470 
480 
490 
500 
510 
520 
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IF A$="Q" THEN:GMODE 0,0 : END 

IF A$="L" THEN FZ=1 = GOSUB 1450 :REM LINIE 

IF A$="R" THEN FZ=2 : GOSUB 1450 :REM RECHTECK 

IF A$="B" THEN FZ=3 : GOSUB 1450 :REM BOX 

IF AS="N" THEN GOSUB 5040 :REM NETZ ZEICHNEN 

IF A$="K" THEN FZ=4 : GOSUB 1450 :REM KREIS 

IF AS="T" THEN FZ=5 : T$="" 2 GOSUB 1450 :REM TEXT SCHREIBEN 


900 GOTO 220 

960 REM 

970 REM 

980 REM AUSFUEHRUNG: 
990 REM 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 


REM Fi: PUNKT SETZEN UND RECHTS 
PLOT ‚X,Y : GOTO 1340 

REM 

REM F2: PUNKT LOESCHEN UND RECHTS 
PLOT 1,X,Y : GOTO 1340 

REM 

REM F3: PUNKT SETZEN UND LINKS 
PLOT ‚X,Y : GOTO 1390 

REM 

REM F4: PUNKT LOESCHEN UND LINKS 
PLOT 1,X,Y : GOTO 1390 

REM 

REM F5: PUNKT SETZEN UND HOCH 
PLOT ‚X,Y : GOTO 1240 

REM 

REM F6: PUNKT LOESCHEN UND HOCH 
PLOT 1,X,Y : GOTO 1240 

REM 

REM F7: PUNKT SETZEN UND RUNTER 
PLOT ‚X,Y : GOTO 1300 

REM 

REM F8: PUNKT LOESCHEN UND RUNTER 
PLOT 1,X,Y : GOTO 1300 

REM 


REM CURSOR HOCH: 

IF CF=1 THEN Y=Y-9 

Y=Y-1 : IF Y<O THEN Y=YAt+Y 
RETURN 

REM 

REM CURSOR RUNTER: 

IF CF=1 THEN Y=Y+9 

Y=Y+1 : IF Y>=YA THEN Y=Y-YA 
RETURN 

REM 

REM CURSOR RECHTS: 

IF CF=1 THEN X=X+9 

X=X+1 : IF X>=XA THEN X=X-XA 
RETURN 


REM 
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1390 REM CURSOR LINKS: 

1400 IF CF=1 THEN X=X-9 

1410 X=X-1 : IF X<O THEN X=XA+X 

1420 RETURN 

1430 REM 

1440 REM OBJEKTE ZEICHNEN: 

1450 X1=X : Y1=Y :REM STARTKOORDINATEN 

1455 IF FZ=4 THEN X=10 : Y=189 :REM KEIS 

1460 X2=X : Y2=Y :REM ENDKOORDINATEN 

1465 SL=2 : WA=0 : WE=359 :REM INITIALISIERUNG CIRCLE 
1470 ZM=2 : FL=0 :REM FLAG ZURUECKSETZEN 

1480 GOSUB 1730 :REM LINIE, FRAME, FILL,... 

1490 FL=ABSCFL-1) 

1500 FOR 2=1 TO 30 

1510 GET A$ : IF A$="m THEN NEXT Z : GOTO 1480 

1520 IF FL=1 THEN GOSUB 1730 :REM WIEDER ZURUEKSETZEN 
1530 A=ASC(A$) 

1540 IF A=17 THEN GOSUB 1300 :REM RUNTER 

1550 IF A=145 THEN GOSUB 1240 :REM HOCH 

1560 IF A=29 THEN GOSUB 1340 :REM RECHTS 

1570 IF A=157 THEN GOSUB 1390 :REM LINKS 

1580 IF A=133 THEN ZM=0 : GOTO 1740 :REM Fi 

1590 IF A=137 THEN ZM=1 : GOTO 1740 :REM F2 

1600 IF A=134 THEN ZM=0 : GOSUB 1740 :REM Fi 

1610 IF A=138 THEN ZM=1 : GOSUB 1740 :REM F2 

1620 IF A= 20 THEN X=X1 : Y=Y1 : RETURN :REM DEL => NICHT ZEICHNEN 
1630 IF A= 19 THEN CF=ABSCCF-1) 

1640 IF (A>=32 AND A<=127) OR A>=160 THEN IF LENCTS)<=40 THEN T$=T$+A$ 
:REM TEXT 

1690 REM 

1700 X2=X : Y2=Y 

1710 GoTO 1470 

1720 REM 

1730 ON FZ GOTO 1800,1900,1900,2050,2100 :REM SPRUNG ZU: LINIE, FRAME, 
FILL, 2... 

1740 ON FZ GOTO 1800,1900,2000,2050,2100 :REM SPRUNG ZU: LINIE, FRAME, 
FILL, =. 

1770 REM 

1780 REM 

1790 REM LINIE ZEICHNEN/LOESCHEN: 

1800 PLOT ZM,X1,Y1 TO X2,Y2 

1810 RETURN 

1870 REM 

1880 REM 

1890 REM RAHMEN ZEICHNEN/LOESCHEN: 

1900 FRAME ZM,1,X1,Y1 TO X2,Y2 

1910 RETURN 

1970 REM 

1980 REM 

1990 REM BOX ZEICHNEN/LOESCHEN: 

2000 FILL ZM,X1,Y1 TO x2,Y2 


Ri 
Ri 
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2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
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RETURN 

REM 

REM 

REM KREIS ZEICHNEN/LOESCHEN: 

CIRCLE ZM,SL,X1,Y1,X2,199-Y2,WA,WE 

RETURN 

REM 

REM 

REM TEXT ZEICHNEN/LOESCHEN: 

IF T$="n THEN:PLOT ZM,X2,Y2 : GOTO 2120 

TEXT ZM,T$,X2,Y2,1 

RETURN 

REM 

REM 

REM NETZ BZW. RASTER ZEICHNEN 

REM 

GMODE ‚8,161,250 :REM TEXTFENSTER OEFFNEN 
PRINT CHR$C147) :REM TEXT LOESCHEN 

POS= 0,20 

PRINT "PUNKT-/LINIEN-NETZ (P/L)" 

PRINT "NETZPUNKTE-EINHEIT" 

POS= 26,20 

INPUT PF$ : IF PF$<>"L" AND PF$<>"pn THEN 5090 
POS= 26,21 
INPUT NES 
GMODE „1 
NE=VALCNE$) 

IF PF$="L" THEN 5220 

REM 

REM PUNKTNETZ: 

FOR XN=0 TO 319 STEP NE 

FOR YN=0 TO 199 STEP NE 
PLOT 2,XN,YN : PLOT 2,XN+1,YN 
NEXT YN 

NEXT XN 

RETURN 

REM 

REM PUNKTNETZ: 

FOR XN=0 TO 319 STEP NE 
PLOT 2,XN,O TO XN,199 

NEXT XN 

FOR YN=0 TO 199 STEP NE 
PLOT 2,0,YN TO 319,YN 

NEXT YN 

RETURN 


IF VAL(NE$)<2 THEN 5110 
REM GRAPHIK WIEDER VOLL 
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7.4.2 Kurzanleitung 


Im Hauptmodus reagiert das Programm auf die folgenden 
Kommandos: 


CRSR hoch - bewegt blinkenden Punkt hoch 

CRSR runter - bewegt blinkenden Punkt hinunter 
CRSR rechts - bewegt blinkenden Punkt nach rechts 
CRSR links - bewegt blinkenden Punkt nach links 
fl - Punkt setzen und CRSR rechts 


f2 - Punkt löschen und CRSR rechts 
f3 - Punkt setzen und CRSR links 
f4 - Punkt löschen und CRSR links 


f5 - Punkt setzen und CRSR hoch 


f6 - Punkt löschen und CRSR hoch 

f7 - Punkt setzen und CRSR hinunter 

f8 - Punkt löschen und CRSR hinunter 
clr/home - Wechsel zwischen schnell und langsam 


L - Linie zeichnen 

Rechteck zeichnen 

Ausgefülltes Rechteck (Box) zeichnen 
- Kreis zeichnen 

- Text schreiben 

- Rasternetz in die Graphik einzeichnen 
- Beenden des Programmes 


D zZ HA Do 


Figurermodus (Linie, Rechteck, Box, Kreis, Text): 


CRSR hoch - Figurenendpunkt hoch 

CRSR runter - Figurenendpunkt hinunter 
CRSR rechts - Figurenendpunkt nach rechts 
CRSR links - Figurenendpunkt nach links 


clr/home - Cursorgeschwindigkeit 
DEL » Figurermodus abbrechen 
fl - Figur zeichnen 


f2 - Figur löschen 

f3 - Figur zeichnen und mit gleichem 
Startpunkt die nächste Figur 

f4 - Figur löschen und mit gleichem 


Startpunkt die nächste Figur 
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8. Stichwortverzeichnis 


3-dimensionale Graphik ..........zucsssssssssssnonnnnnnonnsnnnnnnnnnnnnnonnnnnnnsnsnsnnnnnnne 245 
OS 10. nieneharetsategesest age nkedstneehssreneeunen dene laenedestentersrssshteererretkente 315 
AND mesesnssinnsstiongeunssnesisnisuin 675 
Anımation.d.acsisccknkisuhesinstknänininsnennslsiensen 278 
Attack nu... nennen nlennssssendahseen sine 223 
bewegen ...ea...2 ale essen iilneeiabesehussenistsecnnahten 123 
bewegte-Graphiken u nlesrssesiniinssdenns ee esneetie nennen ensreresen ern ereherkeserneee 44 
Bildschirmfenster ...........n02sss nenn ana 147,288, 302 
Bit... nis as Eminrhrnesesr eher seeike teten 671 
Bögen.....:=:-l20 en lines aesehhne Selbe anni enhanenahhee nern neRarr le 90 
Bytes ae srennteeevensnesentndtsäshernennnscnneeen sun se rer sets" 671 
G=ETWEILELUN De heneege deweneehertetss tn seereenlertesrn hacker essehrtes 175 
CAD-Zeichner...........nssnnnknmeniinns 35, 77, 105, 121 
GIAussssssesenstwensanesngetsennerengereneesnetnsreeshennsssnne sense nes 308, 320, 326, 384 
GIRCEEre N Anus eletehesseeleresehelsrettenetee 83 
COLORS: anne nnsunnneheltentesssissstssnkssheeni 60, 169 
(a ON EEE LE TEE EEE TERTEEN 315, 318, 437 
Desay.....nn nennen unse nen nnwensiieersnesssseiegernnn 223 
Def initionsstring.a..nrsae een nisnmeinanrehletaiese 143 
Dezimälsystem...aseeeseseeseesnessineesrgensinenneanslenssaennesnsunenenstesensernhe 669, 669 
DIRECTORY. 2.3208 rn nn none 227 
DRAW. HE ee nennen tresteeinangreniesetege 123, 125, 299 
Drehünp..a.e.ssndieknenenessn ni inesinenreltrenn 117, 252, 461 
DTASET. are seinelerensneessnenteresekscerns essen 230 
Düalsystem::5:.cssisessieneeteseeunnesneenserssssdtsnennsessnrerssresssnnerssrshesehnepetektenhäihehe 670 
Einzelpünktmodüs:.......... 28a rein B an 310 
Ellipse:.:.::.:..::s#5eeneisderinnsisssesseresshuesafuaheees 83, 267 
EOR. u. ee ee enageetaee tens Sthasbentesneanesunn ses seen rerehererteee? 676 
Extended Color Modus.......essesssseeeseeeeeeneeeonnnnnenennnnnnnnnnenennn 304, 313, 353 
Barb-RAM. sun Runnin raenniniennn 323 
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Farbnummer.....uu.. 828er sem ansnah am sinn 174 
Beld :..siissssesesseanteeunsensecentssnsenen sen gsäversenessesatgun een ehem Te ean denen ehe sertestsanteet 76 
FIEL 222.222 nen alsheneshnnsslindseßanelsene 76 
Eilter..sssn ee nA es eures Reeseheen ren 223f 
Flächen :ausfüllen:...cesssssensscssessensesnenesnsseessstensssensseerssseresse sets entrestrere 133 
Elüchtpunkt:a::...: une enassnsennussetsinssisiensitetee 253 
FRÄME..:...3 22 NENNE ER ORT IE res ensheesreehsssesnesäheese 75 
Funktion ..sscsssisieeslere seele shanssnedehnnnnen en kein une na ah hnanaRennaressnreehrrese tragen 234 
Funktionstasten... 288 easislaneninibnieehin 27, 229 
GCLEAR... a Beesskselestenskenhrnnenaesssneedeintiesssetsttheinssteie 55 
GCOMB...nsehneltäsessenedieekeseitneenssäneennenesnsnsssehstesttsnsettuedeisen 193 
GCOMB=Befehles .......500.00ns00Hlare eines nnnnne nn 300 
GEM ss Nee sehn etlese ee 288 
GEOS nn enaneiesninessunin ernennen enhlelredsnnetsserngeeneshentene 288 
(seräteadresse ..dssesnsessssessessssactsannninn indem en nn asn nennen nen e erh ennaasserseen ee 208 
@zeschwindigkeiti:.cnsserstiessenssesssiiessniessdensessensieunshinsnnassneneansnnehenäshnnen 147 
GLOAD.....: 2 RSS en sssesnsssnasss lien täteehätkdsteeeeiteke 210 
GMODE..... nen iRulnnsbanmneenmehrseliisrbbgenset 50 
GMOVE: un kenistneshegenssngesersessrastenstenenihssshelsnsansestsstesekeeektnessärele 203 
Graphik.......usesessosnesnsnneunsshaisansnsginshasssnes 213 
Gräphikfenster:...... et 8 nee seen nen gaasseasn anlagen esenre her eRensereeen 47 
Graphikmodüuswähl...a.uuurssen nen seisiuhunneiissehliusn 50 
Graphikseite......cnesaaiinserestsschteknn nina nshngnsstnnannnnesnehts 50, 193, 208 
Graphikspeicher....:,228:2neaeeniiiessennten 323, 330 
Graphiksymbole:.........:02...08n nase nn 39 
GSAVE.Gen seen nern sseiteinsteen jesssnridesnhtnegtesssteees 208 
Härdcopy..... a SEI eeelansenes 213, 217, 459 
HEOPY. nenn entalten ihnen near 214 
HGR. nennen essen 23, 30, 332 
HGR-Sprites.. ass sssssinsishenlihltlsnssrneistnn 140 
Hıi=zEddi:plus:.,n%25000200408880300 ers innsestaktageistreredegeree N ertesteheeseerartehlsthhe 212 
Hintergrundfärbe :....secssseerseneceosäntensssskennenesbennnssnn nis enknnenesnn 169, 307, 355 
IE#.....IHEN ans anrelnsetkeietrenn 156 
IMR.:esu2 Mi estessesnenenileehreeknserns esse rrneseshssssrtetene 306 
Interrüpt:....n....0e een den sananeannbe saenatnennekdesenduhee 320 
Invertieren an re RT EnsgersssreNege re 189 
IRETURN. 2.22.0880. ädichäinaineNgsiihe nie 160 
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IRQ SER EIN 47, 158, 223, 305f, 368, 462f 
IRQ-Routine. use ea ART na teren Ber sn nBR essen 151 
IRR.....2.:20 2er sinne 306, 351, 368 
Joysticki..u.aseesinsesntenssnnlehlaniinnnsngs 156, 300, 308 
Kernali.cr 72:8 aaa aR ann een eelehltnherbessiniezan dh 317 
KEY.:222 Ware al eeesbenmresslsniagententriee 229 
Ko3la=P3d: 4... ern REIT ana lasnetsehn nen 211 
Kollision... 2:22. 2 a ersehnte 141, 307, 435, 351, 462 
Koordinatensystem.....unseseseesssssenssssnnnssssnnsnnnennennnnnnnssssnnnnnnnnenenn 21, 25, 234 
Kreisu..secn ne annaeneuegerseetagerlersrnsehsätegtesessntgen enter 72, 82f, 267, 403 
Kuüchendiagramme 4... u2tu32. 0a aranesanshetitten 266 
Kurvenstatistik:..unesenrsiekegeahesrninesdeheenseneksishetgere 262 
Laden. ..n..u0 22 ninasisshlauhniungisssinsshunksiißen 208, 456 
Laufschriften.......:20000eannenakelnienaukaninardn 271 
Lautstärke... sn age Haus nlgiearsseihhensseseiente 223 
EGR:u22.2200 een seaistengsetieereetinesee 21, 30 
Lighitpen.....u.:...eensseinesensaheiesunaunnsse 305f, 462, 465 
Einlesen nfresseeis ssenneinter aan 62, 392 
MC... einen aiinahimsaiewailinnen 25, 30, 170, 337 
Menuepunkt...ecussediasesntech eh fenesssshenetisesseeenTiesknarerdte 300 
Menuezeile.........0.canssenie nennen 300 
MERGE... sauren kekkuihsssuchhensshunssrntine 227 
Modul... eu sen niuuettsnstenetrreheschesssnnälenersuesenee 317 
Multicolor .....eessseeeeeeessssnssssensssensionsnennnsumsonnnnne 30, 179, 307, 311, 353, 430 
Multicolor-Sprites ........... ee se haare Trans Deo ssanes Eee 140, 341 
Multicolorgraphik.............. a N a ee 170 
OR. nssneenelnunssnnantnesunnenegertuegenshennurenurnVesgerenerereheten 676 
Paddleu...: en. na nesgalgeshrnilks 230, 308 
PAINT 4.4.52: 0 nes sterne eheser Teaser at 133 
PEOE =... tessentenigeeianeeneteanegetennelkrngenteguntnttnsenenegserteennhette 174 
Pinselwahl...........ssssesigesanssisehenentisannnensssun 42 
PLOT 22:20. ee sleniininsrelenheiesehtteiseeen 28 
PLEOT >: TO: neh leeres sense eknsneseeheesederteende 63 
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Pölygone..neses gen dkandeesesissheansesnehene elenssetesnnsnesteseheredheehaeteengeretee 87 
1 0) PRRRSPEEEI EEE ERSIRNRIFRRERIEEREEH OEL S ER RENEERR ERNEEEIESEANEHERUEUEL EEE EISEERRSE EEE 39 
POSE..a nein seeie denn hnenatee here edesn en e then str aestsnentenstehsertreen 379 
Posterhärdcopy.:....n.. nennen ensentpehs es serreantee 217 
PRINT. 4... wesen lnennshinssstsnsgesänteneg 39, 371 
Priorität aan ie unsinn saanshisen 141, 306, 429 
Pull-down-Menue .....ussssssnssnnnnnnnnnnnnnnnnsnnnnnnnnennnnnnnnnnnnnsnnnnnnnnnnnnnnnnnnnnnnnne 300 
Pülsräte...iecsnsintssseseeeesnetenennnenlnsee nassen ner tnensr essen heesrnesnner en 223 
Punkt... nennen nnkerseinlähegireiseekhenssen 388 
Pünkte>zählen... seele nee heeenenanngareseshennenn 60 
Dünktiert...ucuusnainna innen sahen urkasn ne ae Hansa her hen Tann awanrers antenne header 185 
Radius... essen ne ein esse sarensireil 83, 267 
Rahmen...» anna ai nukeseales 75 
Rahmenfarbe..r....cr sn eaennasnndeewenensneneenrunnnenenrhedeer derer 169, 307 
RAM.&niineninnessreengee en ehren eneterestereneneenn es gwee rennen 319, 437 
Räster-Interrußt. al RNTNERSENRBE 47, 151 
Rästerzeile...u.......0utennn dei heaslanissiiedessnäinsisiiien 367 
Raum. en in ee lenken daweeela dann denne 120 
Rechtecke..n.....r nesnneekesuulerigente hen len essen dnradeatagene 73, 185 
Registern. nes secnnnenaennnnneges aeslaiettenen een dee naceteauneerennhgudeNegesereredeeden 303 
Release nun aa Be 3 223 
RENUM.....seseireserengrsnnederasgereöngnsengretennennegee herr edereereeerHeens ser een eehegeee 228 
Rollen....s.scercseiieesriensheeisein denn snesundenunsenengsndennenedtesnennektnestetessen re erbergerhee 203 
ROM. slässlisstenleslgsnnidenstentennennebnnasstesesteseesteekescee 316, 320. 437 
TOLIETEN asersesssehaskeetensenssniesesnnstsehennnntendenghesdenenhnensssasenseennernhersketeneh 123, 126 
SCALE nein nleeretegadertneisnrer rn eRerteeree tech reente ee rerehrern 126, 299 
Scalierung .u.unu seen een bannen ran dauernden ae 236 
SCOLE: en esnendeenentnnnnssuegeesktennsnännnentssnsetennndnnenätendnte enge ssdendeen ten ensehee 170 
SCHOlINBi.uns essen net nnanenenssnbedkn nenne snehneenkenseen ses 203, 282 
SDEEINE. esse sssneeiankicenesn nun sense ann ntngent ns ars entre krer ehe ente rear denne 143 
Shapes ran sseecanesetanadnngensarnennegetngeen een en ehren een neTe nee need Tree RT RE ET TTLER TEE Tee 122 
SID Yu lakssitsieneneletnnäununsiresestsaespeeiekentertessstessstiee 224, 320 
Sinuskurven..ussnsesesesgenuugesseennenhssnnneneenesmannnenedensrTenenesheset eeneeee 44, 70, 379 
SMODE:N se En slesen seen 145, 223 
Söundbefehle..un..en Maschine sseeheekesheheeräreinsnssstehneee 222 
SPEICHEEN Yan ee een reeenekeeneee here eLesneesnTeRe reeee 208 
Spiegeln tntensensäsekndekdennnenndeesrhdeseenenssennenehherersrhtsneerareereere 112 


Spiele... nennen nes el eh aeeeirese 56, 277 
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SPOWER 2:4 es nnenedteneeshuresgesenstenßesäiretnden 163, 164 
Spritebewegung nun. wenn seen nkeseereesesnenn 147 
Spritedefinition...scsssssseescrsetsrsnssnänienenennännes es tinsnennennereen 324, 343, 428 
SPTILEEMOAUS nes säsantssanshessnnenetaen cken anwesenden sreensenennns sach engere 145 
SPEI ES ee eeleseesstssgiunsse 138, 304, 309, 311, 339, 406 
Spritesätz..isussiesäsinessenssinsseinseignnnänerseneesantnsenseskentsesahtensennsedhenensdsrneedäheen 164 
SREA De sn erhrsteeschenssestenssuhssttese 142 
SSET. 2... aan ana Hinslanisanesrassurs ll 147 
SSET:TO. lernen genen hauen nnssheenhe rt resredentenna Tee 152 
SSET.. TO... Dissen sigensseenitemerehesleetesentttigussen 151 
Standart Bitmap Mode:.sieescscenoneasacensännsnnnennssneiennenädentnnenensrtessnssee 304, 309 
StAItEN uns naeiinankresenensbe th ih inertseee 20 
Statistik rasen asnesn kcnsnnnsestninegeheeestetaneneehentsssgsneeshhensserssenhestereesersgeneeg 262 
StOIEUNE. a keiten lan 393, 398 
Steuerregister....uiuesnerdisiiensusnseeneenn ern este sessekniesd sdenreleren 304f 
SUMMensikseetniiisssnehnnnnehessuniennkennsn esse hasade three enkranleheTessgHrerEeNn 223 
SUStAIN..scisssisweckenesnnsnseskeresdsssnengessn engen enaeheerenesdesehhnsshrssesrnheschhee steinernen 223 
SWATT ee en ae ens del TesHens sr en Us LRRHEHREEESTRFENSENT 153 
TeZUsatziensns as en nssässliinsauienlienekemstitt 61, 65 
Tastatur... an ushan nen share imeentennesn 308, 370 
TEXTE Sean reretr hehe ee iren 106 
Textfenster::un. N lassen ans sesnenneee 164, 367 
Textmodus...n.isernssnnetelsemsinun she zeit 106, 309, 355 
Textseite:nkssshteistsiisessiestensigengsensänehtenbseehsengegese es gseesereTere ee Teen 108 
TRANS „a... sense else sten es tnnaseven een dar stenetäenensshnesecthersunghest 108 
TUNER 22a rw ernennen lnntnensesnieretnss inne 225 
VERBLÖBELN srereseenssesnsinsersessrnenneneenneneeneeshnnn sense ses een eenssnt sn rreeenee 123, 126 
VErgTößeFUNng.scccesscssceschedsekensnensenennnenenndge udn eng rtenerendehrgere stehen here 109, 430 
Verknüpfung. ten een ensehssshenttes hessen 193 
VErLNetZUNE een bnstilserssrsilsänsgesss sen euesessuuthassee 257 
Verschiebung. inserieren teens ner terrerelene 237 
Versteckte Linien .a...eserstiinsienisnieielessurennn sten sresrendelereeteen 258 
VErZer fung. esiiisnissdietenkeseihenenknennesseteetererefarenseenene 238 
VICisssssssisssestssigeiensigensereesessnetrnnngennsene 138, 271, 303, 316, 320f, 350, 384 
Video-RAM..sessssocenenessnneessennsennsnehessnteseneesnekeessnkresesnnsessennen 306, 323, 328 
Vıdeocontroller: 6967... arnnsnsiinsinreikigeetee 138 
Vielecks. hassen äniieentscennesktene nen ngdenendensheensheeestwehsese een nsereaehteteneradeeden 87 


VOLUMES... er anne erereneäuerntenin 223 
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Wecker... nn Rule neh nnsesse sage 94 
Wellenformi.nsisniteinenesnarissenssishunssedsitenisnnssennnn 223 
KERadIUS a. ressüiseeeerinneennssse sn eseneelee en sen ande nahe rdeneerueteheenrsenneensn teen hehe 83 
Zeichenfarbe.:........u.usesessusnensckensisensinsansansen 170, 174 
Zeichengeneräator.........csesscsonnsnnnnsssssnonnnnnnnnnnssennnnnssssnsnnne 312, 322, 329, 437 
Zeichenmodus.:.......0ssinssnsi isn ssesssshnnatsnenashen 31, 66 
Zeichensatz nu... 320, 352, 355, 436 
Zeichensätzspeicher......n. nannten hlalsesssilsshareehnteen 306 
Zeichentrick... rennninennuntessniltesckesneshente 151 


Zentral-Projektiön ..csisszsiesaensasnunnscntessanseusseuussnnennseienendinnshesnnsesuh essen 253 


Ken Bücher zum C64 


64 Intern ist ein Standardwerk zum Commodore 64, das vom 
ausführlich dokumentierten ROM-Listing über die detaillierte 
Hardwarebeschreibung bis zu nützlichen BASIC-Erweiterun- 
gen alles enthält, was man zum professionellen Einsatz des 
Commodore 64 wissen muß. 


Aus dem Inhalt: 


Bröckmann - Englisch - Felt - Speicherbelegungspläne 
Gelfand - Gerits - Krenik 


64 


Der Soundcontroller und seine 
Programmierung 

Die Handhabung des AD-Wandlers 
DerVideocontroller 

Programmierung von Farbe und Grafik 
Die Zeichengenerator-Schnittstelle 
Sprites 

Ein-/Ausgabesteuerung 

Timer und Echtzeituhr 
Joystickprogrammierung 

So arbeitet der BASIC-Interpreter 
Mathematische Routinen - selbst entwickelt 
Der serielle IEC-Bus 

Programmierung der RS-232 

Die Belegung der Zero-Page 

Der Commodore-64-Schaltplan 


IN ne 
zum 
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Angerhausen, Brückmann, Englisch, Gerits 
64 Intern 

Hardcover, 628 Seiten, DM 69,— 

ISBN 3-89011-000-2 


EEE Bücher zum C64 


64 Tips & Tricks Band 1, das auflagenstärkste deutsche Com- 
puterbuch, bringt in einer komplett überarbeiteten und stark 
erweiterten Neuauflage alle Tips & Tricks auf einen Blick. Spa- 
ren Sie sich das lästige Blättern und Suchen in anderen 
Büchern und Zeitschriften — mit dem Original können Sie Ihre 
Zeit sofort zum Programmieren verwenden! Jetzt noch mehr 
Fakten: BASIC-Programmierung effektiver und besser, Grafik 
für Fortgeschrittene, Soundprogrammierung, die Benutzer- 
schnittstellen, die Peripherie, Befehlserweiterungen, Schnitt- 
stellen und ein ganzes Kapitel mit Kurztips. 


Aus dem Inhalt: 


Hartwig : Löffelmann 


64 


Tips & Tricks 


—- Die drei Uhren des C-64 
Errechnen beliebiger Formeln 
Bubblesort in Assembler 
Grafikanimation 

Hochauflösende 3-D-Grafik 
Synthesizer in Stereo 
Maussimulation mit dem Joystick 
GEM-Simulation auf dem C-64 


Kopierschutz 
User-Port 
a Datenübertragung zu anderen Rech- 


nern 


EIN DATA BECKER BUCH Directory ohne Programmverlust 




















Englisch, Gerits, Hartwig, Löffelmann, Thrun 
64 Tips & Tricks Band 1 

418 Seiten, DM 49,— 

ISBN 3-89011-001-0 


EEE Bücher zum Commodore 64 


64 Tips & Tricks Bd. 2 enthält eine Fülle hochkarätiger Pro- 
gramme, Anregungen und viele nützliche Routinen. Ein Buch, 
das für jeden, der auf dem COMMODORE 64 eigene Pro- 
gramme schreiben will, eine unentbehrliche Hilfe ist. 


Aus dem Inhalt: 


— Softwareschutz 

- Befehlserweiterung - selbst 
gemacht 

- Grafik - Zeichendefinition 

— Spieleprogrammierung 

- Betriebssystem: ROM in RAM 

— Betriebssystem-Routinen 

- Wie speichert der Computer eine 

















BASIC-Zeile? 
Eine Fundgrube für den — Hardware-Tips 
Commodore 64 Anwender —- Laufschrift 
— Arbeiten mit zwei Bildschirmen 
EIN DATA BECKER BUCH — Modifiziertes Input 





und vieles mehr ... 


Weltner, Homig, Trapp 
64 Tips & Tricks Band 2 
259 Seiten, DM 39,— 
ISBN 3-89011-065-7 


EEE Bücher zum C64 


Das BASIC-TRAININGSBUCH zum Commodore 64 ist eine 
ausführliche, didaktisch gut geschriebene Einführung in das 
CBM-BASIC V2. Von den BASIC-Befehlen über die Problem- 
analyse bis zum fertigen Algorithmus lernt man schnell und 
sicher das Programmieren. Übungsaufgaben helfen, das 
Gelernte zu vertiefen. Gleichzeitig erhält der BASIC-Program- 
mierer ein praxisbezogenes Nachschlagewerk. 


Aus dem Inhalt: 


- Grundlagen des Programmierens 

— Datenfluß- und Programmablauf- 
pläne 

- Das Dualsystem 

Bit & Byte 

ASCII-Codes 

Programmablaufpläne 

Komplexere BASIC-Programme 
Be 64 — Unterprogramme und 

er Menütechniken 

zum - Cursorpositionierung 

—- Mehrdimensionale Felder 

Ein DATA BECKER Buch - Sortierverfahren 

— Einführung in die Grafik- und 
Soundprogrammierung 

- BASIC Intern 

— Dateiverwaltung 

— Tokentabelle 

- Ein Monitor und viele nützliche 











Utilites 
- Ausführliche Liste der BASIC- 
Befehle 
Kampow 
Das BASIC-Trainingsbuch zum Commodore 64 
344 Seiten, DM 39,- 


ISBN 3-89011-023-1 


EEE Bücher zum C64 


Dieses Buch erklärt Ihnen leichtverständlich den Umgang mit 
Peeks & Pokes. Es enthält eine Beschreibung aller nutzbaren 
Speicheradressen und führt in die Hardware Ihres C64 ein. 
Die vielen sofort einsetzbaren Programme haben schnell 
dafür gesorgt, daß dieses Buch schon in der ersten Auflage zu 
einem unverzichtbaren Nachschlagewerk für jeden interes- 
sierten Programmierer wurde. 


Aus dem Inhalt: 


- Die Arbeitsweise der CPU 

— Was ist ein Betriebssystem 

—- Wie arbeitet der BASIC-Interpreter 
—- Beschreibung und Nutzung der 
Zeropage 

Pointer & Stacks 
Speicherbelegungsplan 
Massenspeicherung & Peripherie 
Die Spriteregister 
Interruptprogrammierung 
Leichtverständliche Einführung in 
die Maschinensprache 
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Liesert 

Peeks & Pokes zum C 64 
196 Seiten, DM 29,- 
ISBN 3-89011-032-0 


DAS STEHT DRIN: 


Ein Grafikbetriebssystem für Ihren C64 - das bietet Ihnen 
dieses Buch. Und natürlich die Möglichkeit, wirklich alles 
über die C64-Grafik zu lernen. Der Schwierigkeitsgrad ist 
dabei frei wählbar: vom Einsteigen mit Hunderten von 
neuen Befehlen bis zum Programmieren von Grafikalgo- 
rithmen in Assembler. Vom CIRCLE-Befehl bis zu seinem 
kommentierten Source-Code. 


- Multicolorgrafik 

- CAD-Zeichner - das Zeichenpaket 

- Grafikfenster durch Raster-Interrupt 

- Text in hochauflösender Grafik 

- Shapes auf dem C64 

- 136 Farben auf dem C64 

- Einladen von Fremdgrafiken 

- Viele Utilities 

- 3-D-Grafik 

- Animation und Scrolling 

- Text und Grafik auf dem Low-Res-Bildschirm 
- Kommentiertes Source-Listing von Supergraphik 


UND GESCHRIEBEN HAT DIESES BUCH: 


Wer weiß wirklich alle Tips und Kniffe eines Top-Pro- 
gramms? Wer kennt die verborgenen Möglichkeiten? Wer 
kann ein vollständiges Paket wie Supergraphik am besten 
dokumentieren und seinen Aufbau erklären? Natürlich der 
Programmierer selbst: Axel Plenge. Er hat aber nicht nur 
das optimale Wissen, wenn es um seine Befehlserweite- 
rung Supergraphik geht, sondern auch mit mehreren 
Büchern bewiesen, daß er anschaulich und interessant 
schreiben kann. 


ISB N 3-89011-213-7 DM +049.00 


ÖS 382,- 
sFr 47,- 
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